📄 ad.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
keyno=Request.QueryString("keyno")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
if keyno="" then Response.End
sqltext="select * from miscell where state='1' and keyno="&keyno
rs.Open sqltext,cn,0,1,1
if not rs.EOF then
keyno=rs("keyno")
title=trim(rs("title"))
sortnum=rs("sortnum")
content=trim(rs("content"))
classcode=rs("classcode")
picflag=rs("picflag")
picflag2=rs("picflag2")
flag=rs("flag")
website=trim(rs("website"))
baseclass=rs("baseclass")
creadate=rs("creadate")
picalign=trim(rs("picalign"))
infocount=rs("infocount")
else
Response.End
end if
rs.Close
%>
<HTML>
<HEAD>
<TITLE>公告</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="style.css" TYPE="TEXT/CSS">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.t3 {font:14px 宋体;color:000000}
.bt1 {font:16px 宋体;color=000000}
.bt2 {font:12px 宋体;color:ffffff}
.bt3 {font:16px 宋体;color:ff6600}
A:link {font-size:12px;text-decoration:none;color:#000000;}
A:visited {font-size:12px;text-decoration:none;color:#000000;}
A:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
A.r3:link {font-size:12px;text-decoration:none;color:#000000;}
A.r3:visited {font-size:12px;text-decoration:none;color:#000000;}
A.r3:hover {font-size:12px;text-decoration:none;color:#cc0000;}
A.r4:link {font-size:12px;text-decoration:none;color:#ffffff;}
A.r4:visited {font-size:12px;text-decoration:none;color:#ffffff;}
A.r4:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
A.r5:link {font-size:12px;text-decoration:underline;color:#000077;}
A.r5:visited {font-size:12px;text-decoration:underline;color:#000077;}
A.r5:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
-->
</style>
</HEAD>
<BODY bgcolor="#ffffff" TEXT="#000000" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td width="100%" valign="top" align=center height=260>
<%
if infocount>0 then
sqltext="select * from miscell_info where miscellno="&keyno&" order by sortnum"
rs2.Open sqltext,cn,0,1,1
do while not rs2.EOF
if rs2("picflag")="1" then
picalign2=trim(rs2("picalign"))
if picalign2="center" then
%>
<div align=center>
<%if rs2("picflag2")="1" then%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs2("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0"></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0">
<%end if%>
</div>
<%if rs2("flag")="1" then%>
<div align=center><%=trim(rs2("title"))%></div>
<%end if
else
if rs2("picflag2")="1" then
%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs2("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0" align=<%=picalign2%>></a>
<% else %>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs2("keyno")%>" border="0" align=<%=picalign2%>>
<%end if
end if
end if
Response.Write(checkstr(trim(rs2("content")),"1")&"<br>")
rs2.MoveNext
loop
rs2.Close
else
if picflag="1" then
piccode="miscell"
if picflag2="1" then piccode="miscell2"
if picalign="center" then
%>
<center><img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0"></center>
<%
else%>
<img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>">
<% end if
end if
end if
if content<>"" then
Response.Write checkstr(content,"1")
end if
%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -