📄 forum_display.asp
字号:
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文字符高位和低位反转，所以要先把中文的高低位先反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
bin2str = ccc
End Function
function ipaddress(txt)
dim i
i=instr(txt,".")
i=instr(i+1,txt,".")
ipaddress=left(txt,i)+"xxx.xxx"
end function
%>
<!-- #include file="begin.asp" -->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td height="8"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr><td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30" bgcolor=ffffff>
<tr>
<td width="20"> </td>
<td>欢迎光临<%=forumtitle%></td>
<td width="10"> </td>
</tr>
</table>
</td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/shadow1.jpg" height="8"></td>
</tr>
<tr>
<td bgcolor="#CDDCF2" height="1"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<%
sql="select * from forum where parentno="&keyno&" order by keyno asc"
rs.Open sql,cn,1,3
pagesize=20
rs.PageSize=pagesize
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then rs.AbsolutePage=pageno
pagecount=rs.PageCount
reccount=rs.RecordCount
if not rs.EOF then
title=trim(rs("title"))
content=trim(rs("content"))
if rs("grade")=1 then
rs("querycount")=rs("querycount")+1
rs.Update
end if
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="30" bgcolor="<%=barcolor%>">
<tr>
<td width="10"> </td>
<td width=30 align=center><img src="images/homeflag.gif"></td>
<%if classflag="1" then%>
<td><a href="forum.asp"><%=forumtitle%></a> > <a href="forum_list.asp?classcode=<%=classcode%>"><%=classname%></a> > 帖子列表</td>
<%else%>
<td><a href="forum_list.asp"><%=forumtitle%></a> > <a href="forum_list.asp?classcode=<%=classcode%>"><%=classname%></a> > 帖子列表</td>
<%end if%>
<td width="100" align="right"></td>
<td width="10"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="6"></td>
</tr>
</table>
<%if bz=2 then%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="<%=titlebgcolor%>">
<td height="26" width=30></td>
<td align="center"><b><font color=<%=titlecolor%>>出错信息</font></b></td>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<tr bgcolor="#ffffff">
<td width=180 height=30 align=center><font color=ff0000>出错原因可能如下：</font></td>
<td>
<%if sysmess="" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td height=20>
<li>用户名不正确，或没有此用户名</li>
</td></tr>
<tr><td height=20>
<li>密码不正确</li>
</td></tr>
<tr><td height=20>
<li>此用户已被系统管理员锁定</li>
</td></tr>
<tr><td height=20>
<li>上传文件太大，文件限制为100K以内</li>
</td></tr>
<tr><td height=5></td></tr>
</table>
<%
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td height=30>
<%=sysmess%>
</td></tr>
</table>
<%end if%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="10"></td>
</tr>
</table>
<%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width=10></td>
<td height="26" align="left">
<%if userqx="1" or userqx="9" then%>
<a href="forum_post.asp?classcode=<%=classcode%>"><img src="images/bt_post.gif" border=0></a></td>
<%else%>
<font color=ff6600>您对本版块具有只读权限</font></td>
<%end if%>
<td width=10></td>
<td align=center>您是本帖的第 <b><%=querycount+1%></b> 位阅读者</td>
<td align=right>
版主：<%=manager%>
</td>
<td width=10></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="<%=titlebgcolor%>">
<td width=10></td>
<td height="22" align="left"><b><font color=<%=titlecolor%>>帖子主题：<%=title%></b></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<form name=form2 method="post" action="<%=myurl%>&method=1">
<%
i=1
do while not rs.EOF and i<=pagesize
if i mod 2=1 then
color1="ffffff"
else
color1="#F1Fbf3"
end if
%>
<tr bgcolor="#e4f4e9">
<td height="22" bgcolor="<%=color1%>" width="180" align="center" valign=top>
<%
sql="select userno,usercode,intro,creadate,picflag,picfile,talkcount,grade,amount from userinfo where userno="&rs("userno")
rs2.Open sql,cn,1,1
if not rs2.EOF then
userintro=trim(rs2("intro"))
%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="6"></td>
</tr>
<tr>
<td align="left" height="20">
<a href="user_display.asp?userno=<%=rs2(0)%>" target=_blank><b><%=trim(rs2("usercode"))%></b></a></td>
</tr>
<tr>
<td>
<%if rs2("picflag")="1" then%>
<img src="userfiles/<%=trim(rs2("picfile"))%>" width=120>
<%end if%>
<%if rs2("picflag")="2" then%>
<img src="face/face<%=trim(rs2("picfile"))%>.gif">
<%end if%>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td height=20>
文章：<%=rs2("talkcount")%>
</td></tr>
<tr><td height=20>
积分：<%=rs2("amount")%>
</td></tr>
<tr><td height=20>
注册：<%=rs2("creadate")%>
</td></tr>
<tr><td height=20>
</td></tr>
<tr><td height=5></td></tr>
</table>
</td>
</tr>
<%if userqx="9" then%>
<tr>
<td class="font3">来自:[<%=trim(rs("ipaddress"))%>]</td>
</tr>
<%else%>
<tr>
<td class="font3">来自:[<%=ipaddress(trim(rs("ipaddress")))%>]</td>
</tr>
<%end if%>
</table>
<%end if
rs2.Close
%>
</td>
<td align="center" valign="top" bgcolor="<%=color1%>">
<%if i=pagesize or i=reccount then%>
<a name="new"></a>
<%end if%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="font1" height="30"><img src="images/icon_postcontent.gif" width="12" height="16">
发表于 <%=rs("creadate")%>
<%if userqx="9" and rs("grade")>1 then%>
<a href="Javascript:delmsg(form2,'<%=rs("keyno")%>')"><img src="../admin/images/delete.gif" border=0></a>
<%end if%>
<%if cstr(Session("userno"))=cstr(rs("userno")) then%>
[<a href="forum_post.asp?keyno=<%=rs("keyno")%>">编辑</a>]
<%end if%>
</td>
<td align=right>
<%
if i=1 then
Response.Write("<b>楼 主</b>")
else
Response.Write("第<b> "&i&" </b>楼")
end if
%>
</td>
</tr>
<tr>
<td colspan=2 bgcolor="<%=tablecolor%>" height="1"></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td style="line-height:180%" valign=top height=40>
<img src="emote/mood<%=trim(rs("emote"))%>.gif" border="0"><font color=000000><b><%Response.Write server.HTMLEncode(trim(rs("title")))%></b></font><br><br>
<%if rs("picflag")="1" then%>
<center><img src="pic_display.asp?code=forum&keyno=<%=rs("keyno")%>" border="0" name="oldpic<%=rs("keyno")%>"></center><br>
<%end if%>
<%=checkstr(trim(rs("content")),"1")%>
</td>
</tr>
<%if rs("updatetime")<>"" then%>
<tr>
<td height=10></td>
</tr>
<tr>
<td style="line-height:150%" valign=top height=20 align=center>
<font color=000077>[此帖已被作者于 <%=rs("updatetime")%> 编辑过]</font>
</td>
</tr>
<%end if%>
<tr>
<td height=10></td>
</tr>
<%if userintro<>"" then%>
<tr>
<td height=20><%=string(30,"-")%></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -