📄 bbsview.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="head.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename&"-网址："&Sitehttp%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body onkeydown="if(event.ctrlKey&&event.keyCode=='13') bbsadd.submit.click();">
<%call sitehead
aid=clng(request("aid"))
if aid="" or aid<1 then ShowError("访问的帖子不存在")
if lockbbs=1 and session("xyluserid")="" then ShowError("论坛暂时禁止游客访问，请登录后再查看")
rs.open "select top 1 lock,title,bbsbm,hf,view from bbs where id="&aid&"",conn,1,3
If Rs.eof and Rs.bof Then ShowError("访问的帖子不存在")
Set rc = Server.CreateObject("Adodb.Recordset")
rc.open "select * from bbsbm where id="&rs("bbsbm")&"",conn,1,1
If Rc.eof and Rc.bof Then ShowError("访问的版面不存在")
bmname=rc("bmname")
bmadmin=rc("bmadmin")
bid=rc("id")
rc.close
atitle=rs("title")
alock=rs("lock")
hf=rs("hf")
view=rs("view")
rs("view")=rs("view")+1
rs.update
rs.close
if bmadmin<>"" then
isbz=0
bmadmin=Split(bmadmin,",")
upnun=ubound(bmadmin)
for StartID=0 to upnun
if session("xyluserid")=int(bmadmin(StartID)) then
isbz=1
exit for
end if
next
end if%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f9f8f2" class="border">
<tr>
<td height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="index.asp"></a><a href="index.asp">首页</a> >> <a href="bbs.asp"></a><a href="bbsbm.asp?bid=<%=bid%>"></a><a href="bbs.asp">论坛</a> >> <a href="bbs.asp"></a><a href="bbsbm.asp?bid=<%=bid%>"></a><a href="bbsbm.asp?bid=<%=bid%>"><%=bmname%></a> >> <a href="bbs.asp"></a><a href="bbsbm.asp?bid=<%=bid%>"></a>查看帖子</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="545" height="30"> 帖子信息：查看<%=view%>次 回复<%=hf%>次 <%if alock=1 then Response.write("<font color=red>帖子已锁定</font>") end if%></td>
<td width="215"><%if session("xyluserid")<>"" then%><a href="bbsadd.asp?bid=<%=bid%>&aid=<%=aid%>"><img src="skins/1/bbsface/fabiao.gif" width="90" height="28" border="0"></a> <%if alock<>1 then%>
<a href="bbsadd.asp?aid=<%=aid%>&bid=<%=bid%>&action=reply"><img src="skins/1/bbsface/huifu.gif" width="90" height="28" border="0"></a>
<%end if%><%end if%></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
<tr>
<td height="25" bgcolor="#FFCCCC" colspan="2"> <span class="style3">标题：<%=atitle%></span></td>
</tr>
<%rs.open "select * from bbs where bbsid="&aid&" order by laye,id",conn,1,1
If Rs.eof and Rs.bof Then
Response.write("<center>帖子不存在</center>")
else
dim strFileName,i,j,totalPut,CurrentPage,TotalPages
totalPut=rs.recordcount
const MaxPerPage=10
strFileName="?aid="&aid&""
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
if currentPage<>1 and (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
else
currentPage=1
end if
i=0
mm=0
if currentPage>1 then mm=(currentPage-1)*10
do while not rs.eof
mm=mm+1%>
<tr bgcolor="#F7F7F7">
<td width="160" height="160" valign="top" bgcolor="#F7F7F7"><%if rs("userid")<>"" then
set rc=conn.execute ("select realname,sitemoney,bbscount,bbsjob,face,width,height,joindate,printcm,email,homepage,msn,qq from user where id ="&rs("userid")&"")
if rc.eof then
response.write "此人已被删除"
else%> <b><A href="datum.asp?userid=<%=rs("userid")%>"><%=rc("realname")%></a></b><br>
<%=rc("bbsjob")%><BR> <%=obj.rank(rc("sitemoney"))%><BR> <%=obj.exportface(rc("face"),rc("width"),rc("height"),siteskins)%>
<BR>
积分:<%=rc("sitemoney")%><BR> 注册:<%=rc("joindate")%>
<%printcm=rc("printcm")
end if
else
response.write "发布人帐号丢失"
end if%></td>
<td width="600" valign="top" bgcolor="#F7F7F7">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top"><img src="skins/1/bbsface/<%=rs("face")%>"><BR><%=rs("content")%></td>
</tr>
<tr>
<td height="60" valign="top"><img src="skins/1/bbsface/sigline.gif" width="363" height="16"><br>
<%=printcm%> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="76%"> <%=rs("adddate")%></td>
<td width="24%"><div align="right">#<%=mm%></div></td>
</tr>
</table></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%"><%if rs("userid")<>"" and not rc.eof then%>
<A href="datum.asp?userid=<%=rs("userid")%>"><img src="skins/1/bbsface/PROFILE.GIF" width="45" height="18" border="0"></a> <a href="mail.asp?type2=add&toid=<%=rs("userid")%>"><img src="skins/1/bbsface/message.gif" width="48" height="18" border="0"></a> <a href="<%=rc("homepage")%>" target="_blank"><img src="skins/1/bbsface/homepage.gif" width="47" height="18" border="0"></a> <a href="mailto:<%=rc("email")%>"><img src="skins/1/bbsface/EMAIL.GIF" width="45" height="18" border="0"></a> <a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rc("qq")%>&Site=yvsy.com&Menu=yes" target="_blank"><img src="skins/1/bbsface/oicq.gif" width="45" height="18" border="0"></a> <img src="skins/1/bbsface/msn.gif" alt="<%=rc("msn")%>" width="45" height="18" border="0"></a>
<%else
response.write "发布人帐号丢失"
end if%></td>
<td><%if session("xyluserid")<>"" then%><a href="bbsadd.asp?aid=<%=aid%>&bid=<%=bid%>&repquote=<%=rs("id")%>&action=reply"><img src="skins/1/bbsface/reply.gif" width="45" height="18" border="0"></a> <%if session("sitejob")=3 or isbz=1 or rs("userid")=session("xyluserid") then%><a href="bbsedit.asp?aid=<%=aid%>&bid=<%=bid%>&eid=<%=rs("id")%>"><img src="skins/1/bbsface/edit.gif" width="48" height="18" border="0"></a><%end if%><%if session("sitejob")=3 or isbz=1 then%> <a href="bbsmanage.asp?aid=<%=aid%>&eid=<%=rs("id")%>"><img src="skins/1/bbsface/TopicManage.gif" width="70" height="18" border="0"></a><%end if%><%end if%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" bgcolor="#FFFFFF" colspan="2"></td>
</tr>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if%>
<tr>
<td height="25" bgcolor="#f9f8f2" colspan="2"><div align="center"><%=obj.showpage(strFileName,totalput,MaxPerPage,true,true,"条",currentPage)%></div></td>
</tr>
</table>
<%rs.close
set rs=nothing
if session("xyluserid")<>"" then
if alock<>1 then%>
<br>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
<form name="bbsadd" method="post" action="bbsadd.asp?aid=<%=aid%>&bid=<%=bid%>&action=re2"><tr bgcolor="#F7F3F7">
<td width="167" height="25"><div align="center">
快捷回复</div></td>
<td width="587"><%=session("xyluser")%> [<A href="login.asp?action=out">退出登录</A>]</td>
</tr>
<tr bgcolor="#FFFBF7">
<td height="100" valign="top"><%for i=1 to 18%>
<input type="radio" name="bbsface" value="face<%=i%>.gif"<%if i=1 then response.write " checked" end if%>>
<img src="skins/1/bbsface/face<%=i%>.gif">
<%if i mod 3=0 then response.write "<br>"
next%></td>
<td><textarea name="Form_Content" cols="75" rows="8" id="Form_Content"></textarea>
<br> <INPUT name=submit type=submit class="bottom" tabIndex=3 value=发表帖子>
<INPUT name=topicsreset type=reset class="bottom" tabIndex=5 value=清空内容>
[完成后可按 Ctrl+Enter 发布]</td>
</tr></form>
</table>
<br>
<%end if
end if
call sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -