'nav1.asp 
<% 
option explicit 
dim out,tar 
dim fontcolor,bordercolor,bgcolor 
if Request.QueryString ("bgcolor")="" then 
bgcolor="#ffffff" 
else 
bgcolor=Request.QueryString ("bgcolor") 
end if 
if Request.QueryString ("fontcolor")="" then 
fontcolor="#666666" 
else 
fontcolor=Request.QueryString ("fontcolor") 
end if 
if Request.QueryString ("bordercolor")="" then 
bordercolor="#000000" 
else 
bordercolor=Request.QueryString ("bordercolor") 
end if 
tar=trim(Request.QueryString ("action")) 
'if tar="" then 
' tar="home" 
'end if 
''''''''''''''''''''''' 
out = "<table border=""0"" width=""100%"" style=""font-family: 宋体; font-size: 10pt; color: " & fontcolor & ";border:1 solid " & bordercolor & """ cellspacing=""0"" bgcolor=""" & bgcolor &""">" 
out = out & "  <tr>" 
'''''' 
out = out & "    <td align=""center"" valign=""middle"" width=""11%"">" 
if tar<>"home" then 
   out = out & "     <a href=""http://www.xyz.com/index.html"" target=_top>主页" 
else 
   out = out & "     <font color=""#ff0000"">主页" 
end if 
out = out & "  </td>" 
''''''''''''' 
out = out & "    <td align=""center"" valign=""middle"" width=""11%"">" 
if tar<>"news" then 
   out = out & "     <a href=""http://news.xyz.com/index.html"" target=_top>新闻" 
else 
   out = out & "     <font color=""#ff0000"">新闻" 
end if 
out = out & "  </td>" 
''''''''''''''' 
.... 
.... 
... 
out = out & " </tr>" 
out = out & "</table>" 
' 
Response.Write  "document.write('" & out &  "')" 
%> 


用 
<script language="JavaScript1.1" src="http://www.xyz.com/navigator/nav1.asp?action=home"></script> 
引用。