📄 inc.asp
字号:
<%sub head'页面顶部
Response.Write "<html>" & vbCrLf
Response.Write "<HEAD>" & vbCrLf
Response.Write "<title>"&webname&" - "&start&"</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<META NAME =""keywords"" CONTENT=""www.qf0393.cn，SBDN，校内动态，世博电脑，舞曲，文章，下载，特效，图片，查分"">" & vbCrLf
Response.Write "<META NAME=""description"" CONTENT=""校内动态，舞曲，文章，下载，特效，图片，查分，清丰，濮阳，世博电脑，www.qf0393.cn,连接，统计,留言"">" & vbCrLf
Response.Write "<META NAME=""robots"" CONTENT=""all""><META name=""AUTHOR"" content=""SBDN,tdtx99@126.com"">"
if request.cookies("Usercolor")("lanyu")="" then
Response.Write "<link rel=""stylesheet"" href=""inc/style.css"" type=""text/css"">" & vbCrLf
elseif request.cookies("Usercolor")("lanyu")="green" then
Response.Write "<link rel=""stylesheet"" href=""inc/style2.css"" type=""text/css"">" & vbCrLf
elseif request.cookies("Usercolor")("lanyu")="red" then
Response.Write "<link rel=""stylesheet"" href=""inc/style3.css"" type=""text/css"">" & vbCrLf
end if
Response.Write "<SCRIPT language=javaScript src=""inc/js.js"" type=text/javascript></SCRIPT>" & vbCrLf
Response.Write "<BASE onmouseover=""window.status='我们一直在超越……';return true"">" & vbCrLf
Response.Write "</HEAD>" & vbCrLf
Response.Write "<BODY>" & vbCrLf
Response.Write "<DIV class=lanyubk>" & vbCrLf
Response.Write "<TABLE id=lanyuhead cellSpacing=0 cellPadding=0 align=center border=0>" & vbCrLf
Response.Write "<TBODY><TR><TD class=l></TD><TD class=m>" & vbCrLf
Response.Write "<TABLE width=""100%"" align=center>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD width=200 align=center valign=middle>"&weblogo&"</TD>" & vbCrLf
Response.Write "<TD align=middle>"&webbanner&"</TD>" & vbCrLf
Response.Write "<TD style=""LINE-HEIGHT: 180%"" align=middle width=100><a style=""cursor:hand"" onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('"&weburl&"');"">设为首页</a><BR><a href=""javascript:window.external.addFavorite('"&weburl&"','"&webname&"');"">加入收藏</a><BR>" & vbCrLf
Response.Write "<a href=""skin.asp?skin="" title=""我的爱好""><font color=blue>蓝</font></A> <a href=""skin.asp?skin=green"" title=""我的爱好""><font color=green>绿</font></A> <a href=""skin.asp?skin=red"" title=""我的爱好""><font color=ff6600>黄</font></A>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE></TD><TD class=r></TD></TR></TBODY></TABLE>"
end sub
sub menu'导航菜单
Response.Write "<TABLE id=navbar cellSpacing=0 cellPadding=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD class=m id=""dlSortNav"">" & vbCrLf
Response.Write "<a href='index.asp'>首 页</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='news.asp'>学校动态</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='bm.asp' target=_blank>报名咨询</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='down.asp'>下载中心</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='art.asp'>技术文章</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='js.asp'>网页特效</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='pic.asp'>学员作品</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='web.asp'>学校名片</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='book.asp'>站内留言</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='/pr/index.asp' target=_blank title=网站信息查询工具>查询工具</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='http://www.qf0393.cn' target='_blank'>招聘就业</a>" & vbCrLf
Response.Write " <img border=0 src='img/nav.gif' width='2' height='11'> <a href='/bbs/' target='_blank'>程序讨论区</a>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>"
end sub
sub footer
time2=timer
Response.Write "<table id=footer border='0' cellspacing='0' cellpadding='0' align='center'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write " <td class='lanyubg' height='3' colspan='2'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height='31' align='center' background='img/bottombg.gif' colspan='2'>" & vbCrLf
Response.Write " <table width='600' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width='8'><img src='img/bottom_01.gif' width='8' height='34'></td>" & vbCrLf
Response.Write " <td background='img/bottom_02.gif' align='center'><a href='about.asp'>关于我们</a> | <a href='about.asp?ly=lx'>联系我们</a> | <a href='about.asp?ly=gg'>广告合作</a> | <a href='about.asp?ly=dt'>网站地图</a> | <a href='admin.asp' target='_blank' Title='后台管理'>后台管理</a> | <script language='JavaScript' src='counter.asp'></script></td>" & vbCrLf
Response.Write " <td width='9'><img src='img/bottom_03.gif' width='9' height='34'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <TR style='LINE-HEIGHT: 130%' align=middle>" & vbCrLf
Response.Write "<TD height=50>Copyright©2005 <a href='"&weburl&"' target=_blank title='"&WebName&"'><font color='#ff6600'>"&WebName&"</font></a> All Rights Reserved<br><a href=http://www.qf0393.cn.net target=_blank><font color='#999999'>Version 6.0 耗时："&FormatNumber((time2-time1)*1000,2)&" MS</font></a>" & vbCrLf
Response.Write "<br><a href=""http://www.alexa.com/data/details/traffic_details?q=&url="&weburl&""" target=""_blank""><img src=""img/alexa.gif"" width=""20"" height=""18"" border=""0"" title='查看本站世界排名'></a> <script language='JavaScrip' type='text/javascript' src='http://w.50bang.com/click.js?user_id=142392'></script>ICP备案编号：豫ICP备05017919" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</table></DIV>" & vbCrLf
Response.Write "</BODY>" & vbCrLf
Response.Write "</HTML>"
end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -