📄 showdiary.asp

📁 情缘天空美化版 v3.68 强大的公告

💻 ASP

字号:

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<%
stats="查看日记"
dim founderr,errmsg
founderr=false
errmsg=""

if request.querystring("id")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
else
if not isInteger(request.querystring("id")) then
founderr=true
errmsg=errmsg+"<br>"+"<li>非法的日记id参数。"
end if
end if

if founderr then
call diserror()
response.end
else
%>
<html>
<head>
<title><%=webname%>-查看日记</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Sams.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" background="images/bg1.gif">
<%
opendiary
sql="select * from diary where d_id="&cint(request.querystring("id"))
set rs=conn.execute(sql)
%>
<table width="760" border="0" cellspacing="1" cellpadding="6" align="center" bgcolor="#293863">
<tr>
<td class="diaryhead">查看日记</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"><br>
<%=ubb2html(formatStr(autourl(rs("d_content"))), true, true)%>
<div align="right"><br>
<br>
<img src="images/SIGN.GIF" width="299" height="12"><br>
第<span class="newshead"><%=rs("d_id")%></span>篇，发表于-<span class="newshead"><%=rs("d_date")%></span></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">[<a href="#;" onclick="window.close()">关闭窗口</a>]</td>
</tr>
</table>
<%rs.close
set rs=nothing%>
</body>
</html>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -