📄 news_display.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>合肥市泉州商会</title>
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(images/news/bg_1.gif);
}
-->
</style></head>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) or keyno = "" then response.end
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
sql = "select * from miscell where state='1' and keyno="&keyno
rs.Open sql,cn,0,3,1
if not rs.EOF then
title=trim(rs("title"))
content=trim(rs("content"))
classcode=rs("classcode")
picflag=rs("picflag")
picflag2=rs("picflag2")
flag=rs("flag")
baseclass=rs("baseclass")
creadate=rs("creadate")
rs("querycount")=rs("querycount")+1
picalign=trim(rs("picalign"))
infocount=rs("infocount")
rs.Update
else
Response.End
end if
rs.Close
%>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/news/bg_1.gif">
<table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%"><img src="images/news/logo1.gif" width="344" height="93"></td>
<td width="56%" valign="top"><table width="100%" height="70" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" bgcolor="#FFFFFF"><table width="80%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="font5"><font color="#336600" size="4"><strong><%=title%></strong></font></td>
</tr>
</table>
<table width="80%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"></td>
</tr>
</table>
<table width="80%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font2">
<%
if infocount > 0 then
sql = "select * from miscell_info where miscellno="&keyno&" order by sortnum"
rs.Open sql, cn, 0, 1, 1
do while not rs.EOF
if rs("picflag")="1" then
if rs("picalign") = "center" then
%>
<div align=center class="font2">
<%if rs("picflag2")="1" then%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0"></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0">
<%end if%>
</div>
<%if rs("flag")="1" then%>
<div align=center><%=trim(rs("title"))%></div>
<%end if%>
<%
else
if rs("picflag2") = "1" then
%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=rs("picalign")%>></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=picalign2%>>
<%
end if
end if
end if
Response.Write(checkstr(trim(rs("content")),"1")&"<br>")
rs.MoveNext
loop
rs.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>
<br>
<%else%>
<img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>"><br>
<%
end if
end if
Response.Write checkstr(content,"1")
end if
%>
</td>
</tr>
<tr>
<td class="font2"><p class="font2">
</p>
</td>
</tr>
</table>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="80%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/company/line_point1.gif"></td>
</tr>
</table>
<table width="80%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="font3">o><a href="#" class="a02" onclick="window.close()"><font color="#990000">[关闭窗口]</font></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="35" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -