页顶导航条示例_VC++编程实例_VC++_编程开发

页顶导航条示例

日期：2008-10-20 20:01:26　　　　来源：互联网

'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>
引用。　[1]

Photoshop打造玲珑可爱的云朵Web导航

配置配置数据库属性的代码示例

Tags:　导航示例

◎→	本类最新
利用ASP技术开发基于WWW的数据库 ASP分页显示详论 Asp中一些FSO方面的函数 VC++中STL的使用 VC＋＋6.0将数据文件图像化 C++ Builder让你的任务栏图标动起怎样用C++Builder存取Excel

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VC++编程视频教程下载 VC++编程实例

◎→	热门资源
如何让图片自动缩放以适合界面大用ASP生成Chart 中国将成世界新软件中心如何用ASP编写网站统计系统用ASP建立网站地图使用函数自动生成n层目录 ASP中处理数据库图像的方法