 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'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.4ico.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.4ico.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.4ico.com/navigator/nav1.asp?action=home"></script> 引用。 返回类别: 教程 上一教程: ASP创建对象及中文显示解决技巧 下一教程: FSO的几个应用函数 您可以阅读与"页顶导航条示例"相关的教程: · ASP里使用MD5加密的函数及示例 · ASP中查询数据库记录写入XML文件示例 · Microsoft 脚本编码器(4) --- 编码示例 · 《支持中文的无组件文件上传》-- 示例 · 一个完整的SQL SERVER数据库全文索引的示例 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
