📄 admnews.asp
字号:
<!--#include file="mdb.asp"-->
<%
'##检查cookies中的密码,错误侧自动返回
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from admin"
rsadm.open sqladm,conn,1,1
if request.cookies("adminok")<>rsadm("pwd") or request.cookies("adminok")="" or request.cookies("user")<>rsadm("user") or request.cookies("user")="" then
response.redirect "glydl.asp"
end if
'###检查结束
exec="select * from new where ID="&request.querystring("ID")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看新闻</title>
</head>
<body background="pic/line.gif">
<div align="center">
<table border="0" width="90%" id="table1" style="border-collapse: collapse" height="145">
<tr>
<td colspan="4" height="22">
<p align="center"> <%=rs("biaoti")%></td>
</tr>
<tr>
<td colspan="4" height="18">
<p align="center"><%=rs("fubiaoti")%></td>
</tr>
<tr>
<td width="263" height="18"></td>
<td width="121" height="18">
<p align="center"><%=rs("mm")%>月<%=rs("dd")%>日</td>
<td width="137" height="18"> <%=rs("zuozhe")%></td>
<td width="226" height="18"></td>
</tr>
<tr>
<td width="752" colspan="4">
<%
Dim sContent
sContent=RS("zhuti")
sContent=Replace(sContent,"<","<")
sContent=Replace(sContent,">",">")
sContent=Replace(sContent,Chr(13) & Chr(10),"<Br>")
sContent=Replace(sContent," "," ")
Response.Write(sContent)
%> </td>
</tr>
</table>
</div>
<p align="center">【<a href="admnew.asp">返回</a>】【<a href="javascript:window.close()">关闭窗口</a>】</font></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -