\'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>
引用。  来源：收集整理于互联网