📄 view.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<!--#include file="set.asp"-->
<!--#include file="func.asp"-->
<%
id=request.querystring("id")
if id="" or isempty(id) then id=1
set reco=server.createobject("adodb.recordset")
sqlstr="select * from book where id=" &id
reco.open sqlstr,conn,1,1
reco.movefirst
if not reco.eof then
bid=cint(reco("bid"))
if htmlyn="" or htmlyn<>1 or htmlyn<>0 then
htmlyn=0
end if
%>
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF" background="images/bg.gif">
<center>
<%
title=reco("title")
wdate=reco("wdate")
ldate=reco("ldate")
username=reco("username")
usermail=reco("usermail")
content=reco("content")
reply=reco("reply")
faceimg=reco("faceimg")
hits=reco("hits")+1
retype=reco("type")
if usermail<>"" then
userlink="<a href='mailto:" &trim(usermail)& "' title='给 " &username& " 发封妹儿'>" &username& "</a>"
else
userlink=username
end if
wdate=year(wdate) &"/"& month(wdate) &"/"& day(wdate) &" "& hour(wdate) &":"& minute(wdate)
ldate=year(ldate) &"/"& month(ldate) &"/"& day(ldate) &" "& hour(ldate) &":"& minute(ldate)
recoinfo=""
recoldate=""
if retype=0 then
recoinfo="人气：" &hits& " 回复：" &reply
recoldate="更新于：" &ldate
end if
%>
<table width="420" border="0" cellspacing="2" cellpadding="2" class=buinput>
<tr>
<td align='right'>[ <a href="del.asp?id=<%=id%>" title="删除此帖子">删除</a> ] [ <a href="edit.asp?id=<%=id%>" title="修改此帖子">修改</a> ] [ <a href="#" onclick="javascript:self.close()" title='关闭此窗口'>关闭</a> ]</td>
</tr>
</table>
<br>
<table width="420" border="0" cellspacing="2" cellpadding="2" class=buinput>
<tr>
<td height="15" width="20"><img src='images/<%=faceimg%>.gif'></td>
<td height="15" width="400"><b><%=title%></b></td>
</tr>
<tr>
<td height="50" width="20"> </td>
<td height="50" width="400" valign='top' class=trtop>
<%if htmlyn=0 then%>
<%showbody(content)%>
<%else%>
<%=content%>
<%end if%>
</td>
</tr>
<tr>
<td height="15" width="20"> </td>
<td height="15" width="400" class=trtop>发言人：<%=userlink%> <%=recoinfo%></td>
</tr>
<tr>
<td height="15" width="20"> </td>
<td height="15" width="400" class=trtop>发表于：<%=wdate%> <%=recoldate%></td>
</tr>
</table>
</center>
</body>
</html>
<%else
errmsg="您 输 入 的 I D 无 效 ！"
errshow(errmsg)
end if
set reco=nothing
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -