📄 showdiary.asp

📁 ASP源码

💻 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="site_css.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 + -