📄 head.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!----------------------------------------------
Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青创文章系统 - 测试版)
个人免费版
http://www.qcdn.net/
此版本只能在个人网站使用并要求保留青创网络版权！
-------------------------------------------------->
<HTML><HEAD><TITLE><%=NetName%> (<%=NetUrl%>)</TITLE>
<meta name="copyright" content="Copyright (C) 2001-2003 Jeff Jing" />
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="青创,asp,qcsky,qcdn,QCDN_NEWS">
<link href="<%=CssDir%>style.css" rel="stylesheet" type="text/css">
</head>
<body >
<table class="twidth" align=center cellpadding=0 cellspacing=0 >
<tr>
<td height="3" colspan="3" align="center"></td>
</tr>
<tr>
<td width="30%" align="center">
<%if Logo = "" then
Response.write ("<img src=http://www.qcdn.net/image/logo.gif")
else
Response.write Logo
end if%>
</td>
<td width="55%" align="center">
<%if Ads = "" then
Response.write ("<img src=http://www.qcdn.net/image/02.gif")
else
Response.write Ads
end if%></td>
<td width="15%" align="center" valign="middle">
<table width="100%">
<tr>
<td align="center"> <a href="javascript:window.external.AddFavorite('<%=Neturl%>',%20'<%=Netname%>')">添加收藏</a></td>
</tr>
<tr>
<td align="center"> <a href="admin_index.asp" target="_blank">系统管理</a></td>
</tr>
<tr>
<td align="center"> <a href="mailto:<%=Email%>">联系方式</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="3" colspan="3" align="center"></td>
</tr>
</table></TD>
</TR></TBODY></TABLE>
<table class="twidth" align=center cellpadding=0 cellspacing=0 >
<tr>
<td class="navbar-left">
</td>
<td class="navbar"> <a href=index.asp class='navlink'>首页</a>
<%
if MenuFlag then
Response.write "<script Language=Javascript1.2 src='inc/popmenu.js'></script>"
Call Qcdn.MenuJsList()
Response.write "<DIV class=menuskin id=popmenu onmouseover=""clearhidemenu();highlightmenu(event,'on')"" onmouseout=""highlightmenu(event,'off');dynamichide(event)"" style=""Z-index:100""></DIV>"
end if
Sql = "Select Unid,Classname from article_Class where flag = 0 order by OrderFlag asc"
Set Rs = Conn.Execute(Sql)
If Rs.eof and Rs.bof then
Response.Write("<span class='navlink'>还没有设置栏目。</span>")
Else
do while not Rs.eof
Response.Write("<img src="& CssDir &"navbar_Separator.gif align=absmiddle> ")
Response.Write("<a href=2j.asp?id=" & rs(0))
if MenuFlag then
sqlstr = "Select Unid from article_Class where flag = "& rs(0) & " order by orderflag asc"
Set Rsstr = conn.execute(sqlstr)
if not Rsstr.eof then
Response.write(" onmouseover=showmenu(event,"& rs(0) &",1,false) onmouseout=delayhidemenu()")
end if
Rsstr.close
end if
Response.Write(" class='navlink'>")
Response.Write(Rs(1))
Response.Write("</a> ")
Rs.movenext
loop
End If
Rs.close
%>
</td>
<td class="navbar-right">
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -