showpost.asp

一个超市管理系统

end if
If replies/pagesetup > (replies\pagesetup) then
TotalPage=(replies\pagesetup)+1
else TotalPage=(replies\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1

if Not Response.IsClientConnected then
responseend
end if


sql="select * from user where username='"&rs("username")&"'"
rs1.Open sql,Conn
sign=rs1("sign")
if sign<>"" then
sign=replace(sign,chr(34),"'")
sign="<table style=TABLE-LAYOUT:fixed><tr><td style=HEIGHT:100px align=right valign=bottom>——————————<br>"&sign&"</td></tr></table>"
end if


if rs1("userhome")<>"" and rs1("userhome")<>"http://" then
userhome="<a target=_blank href="&rs1("userhome")&"><img alt=访问"&rs("username")&"的主页 src=images/homepage.gif border=0></a>"
else
userhome=""
end if

%>



<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2">
  <tr>
    <td valign="top" align="left" height="78">
    <table width="100%" border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
      <tr>
        <td valign="top" class="a3" width="160"><br>
        <table cellspacing="0" cellpadding="0" width="90%" align="center" border="0">
          <tr>
            <td align="left">
            <table style="FILTER:glow(color=a4b6d7)">
              <caption><b><font color="ffffff" style="font-size:10pt"><%=rs("username")%></font></b></caption>
            </table>
            <%=rs1("honor")%></td>
          </tr>
          <tr>
            <td align="left" height="10" colspan="2">
<Script>
if (getCookie('showface')!='0'){
document.write("<img src=images/face/<%=rs1("userface")%>.gif height=32 width=32>　　")
}
if ("<%=rs1("sex")%>"!=''){
document.write("<img src=images/<%=rs1("sex")%>.gif> ")
}
if ("<%=rs1("constellation")%>"!=''){
document.write("<img src=images/star/<%=rs1("constellation")%>.gif>")
}
</Script>

            </td>
          </tr>
          <tr>
<td align="left" colspan="2"><Script>document.write(level(<%=rs1("experience")%>,<%=rs1("membercode")%>)+levelimage+"<br>等　　级:"+levelname);</Script><br>
            门　　派:<%
if ""&rs1("faction")&""="" then
response.write "无"
else
response.write rs1("faction")
end if
%><br>
            经 验 值:<%=rs1("experience")%> <br>
            社区银两:<%=rs1("money")%><br>
            总发贴数:<%=rs1("posttopic")+rs1("postrevert")%> <br>
            注册日期:<%=rs1("regtime")%><br>
            体 力 值:<img border="0" src="images/red.gif" width="<%=rs1("userlife")/2%>" height="9" alt="<%=rs1("userlife")%>">
            </td>
          </tr>
        </table>
        </td>
        <td valign="bottom" align="middle" height="100%" class="a3">
        <table height="100%" cellspacing="0" cellpadding="0" width="1" class="a2">
          <tr>
            <td width="1"></td>
          </tr>
        </table>
        </td>
        <td valign="top" align="left" height="100%" class="a3">
        <table cellspacing="0" cellpadding="0" width="100%" border="0">
          <tr>
            <td colspan="3">
            <a onclick="document.location='loading.htm';" target="yuzi_frame" href="Profile.asp?username=<%=rs("username")%>">
            <img alt="查看<%=rs("username")%>的个人资料" src="images/Profile.gif" border="0"></a>
            <a href="#" onclick="javascript:open('friend.asp?menu=post&amp;incept=<%=rs("username")%>','','width=320,height=170')">
            <img src="images/pm.gif" border="0" alt="发送短讯息给<%=rs("username")%>"></a>
            <a href="friend.asp?menu=add&username=<%=rs("username")%>">
            <img alt="把<%=rs("username")%>加入好友" src="images/friend.gif" border="0"></a>
            <a onclick="document.location='loading.htm';" target="yuzi_frame" href="ShowForum.asp?forumid=<%=rs("forumid")%>&search=author&key=<%=rs("username")%>">
            <img alt="搜索<%=rs("username")%>在『<%=bbsname%> 』的所有主题" src="images/find.gif" border="0"></a>
            <a href="mailto:<%=rs1("usermail")%>">
            <img alt="发送电邮给<%=rs("username")%>" src="images/email.gif" border="0"></a>
            <%=userhome%>
            <a href="javascript:copyText(document.all.yu<%=rs("id")%>);">
            <img alt="复制这个帖子" src="images/copy.gif" border="0"></a>
            <a onclick="document.location='loading.htm';" target="yuzi_frame" href="retopic.asp?id=<%=rs("topicid")%>&retopicid=<%=rs("id")%>&quote=1&topic=<%=act%>">
            <img alt="引用回复这个帖子" src="images/reply.gif" border="0"></a>
            <a onclick="document.location='loading.htm';" target="yuzi_frame" href="retopic.asp?id=<%=rs("topicid")%>&retopicid=<%=rs("id")%>&topic=<%=act%>">
            <img src="images/replynow.gif" border="0" alt="回复这个帖子"></a></td>
          </tr>
          <tr>
            <td colspan="3"><hr width="100%" color="#777777" size="1"></td>
          </tr>
          <tr valign="top" height="140">
            <td colspan="3"><Script>document.write(ybbcode("<span id=yu<%=rs("id")%>><%=replace(rs("content"),chr(34),"'")%></span><p><%=sign%></p>"));</Script></td>
          </tr>
          <tr valign="top">
            <td height="7" colspan="3">
            <hr width="100%" color="#777777" size="1"></td>
          </tr>
          <tr valign="top">
            <td>
            <a onclick="document.location='loading.htm';" target="yuzi_frame" href="EditTopic.asp?id=<%=id%>&retopicid=<%=rs("id")%>&topic=<%=act%>">
            <img src="images/edit.gif" border="0"></a>
            <a target="yuzi_frame" onclick="checkclick('您确定要删除回贴?');onclick=document.location='loading.htm';" style="text-decoration: none; color: #000000" href="manage.asp?menu=delretopic&id=<%=id%>&retopicid=<%=rs("id")%>">
            <img src="images/del.gif" border="0"></a></td>
            <td><img src="images/posttime.gif"> 发表时间：<%=rs("posttime")%>　</td>
            <td align="right"><img src="images/ip.gif"> IP：<a href="manage.asp?menu=lookreip&id=<%=id%>&retopicid=<%=rs("id")%>">已记录</a></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%
RS1.Close
RS.MoveNext
loop
RS.Close


if i=0 then
replies=conn.execute("Select count(id)from reforum where topicid="&id&"")(0)
conn.execute("update [forum] set replies="&replies&" where id="&id&"")
end if


end if



if TotalPage=0 then
TotalPage=1
PageCount=1
end if
%><table cellspacing="4" cellpadding="0" width="97%" border="0" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td width="61%"><b>本主题共有 <font color="#990000"><%=TotalPage%></font> 页</b></td>
    <td width="39%" align="right">页：[ <%



ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?id="&id&"&topage=1>1</a> ... "
end if


for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?id="&id&"&topage="& i &">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... <a href=?id="&id&"&topage="&TotalPage&">"&TotalPage&"</a>"
end if


acturl="ShowPost.asp?id="&id&""








%> ] </td>
  </tr>
</table>
<form name="form" method="post" action="retopic.asp" target="yuzi_frame" onsubmit="return formCheck()">
  <input type="hidden" value="<%=id%>" name="id">
  <input type="hidden" value="<%=act%>" name="topic">
  <table height="120" cellspacing="1" cellpadding="5" width="97%" border="0" class="a2">
    <tr>
      <td width="160" height="20" class="a1"><b>&nbsp;快速回复主题</b></td>
      <td class="a1"><b>Re:<%=act%></b></td>
    </tr>
    <tr>
      <td class="a4" height="20">&nbsp;输入用户名和密码</td>
      <td class="a4">用户名： 
      <input size="15" name="username" value="<%=Request.Cookies("username")%>" maxlength="20">
      <a onclick="document.location='loading.htm';" target="yuzi_frame" href="register.asp">
      没有注册？</a>　　　　密码： 
      <input type="password" size="15" name="userpass" value="<%=Request.Cookies("userpass")%>">
      <a onclick="document.location='loading.htm';" target="yuzi_frame" href="modification.asp">
      忘记密码？</a></td>
    </tr>
    <tr>
      <td class="a4" valign="bottom">
<script>
document.write("<BR>&nbsp;YBB 代码：")
if (getCookie('ybbcode')!='0'){
document.write("支持")
}else{
document.write("禁止")
}


document.write("<BR>&nbsp;表情字符：")
if (getCookie('ybbbrow')!='0'){
document.write("支持")
}else{
document.write("禁止")
}


document.write("<BR>&nbsp;[IMG]代码：")
if (getCookie('ybbimg')!='0'){
document.write("支持")
}else{
document.write("禁止")
}

document.write("<BR>&nbsp;[FLASH]代码：")
if (getCookie('ybbflash')!='0'){
document.write("支持")
}else{
document.write("禁止")
}

      </script>
    <br><br><br>  </td>
      <td valign="top" class="a4">
      <textarea name="content" rows="6" cols="79" onkeydown="presskey()"></textarea>
      <br>
      <input tabindex="4" type="submit" value="Ctrl+Enter 回复主题">　　<input onclick="runEx()" type="button" value=" 调试代码 ">　　<input type="reset" value=" 重 写 " name="reset" onclick="checkclick('该项操作要清除全部的内容，您确定要清除吗?')"></td>
    </tr>
  </table>
</form>
<script>
document.write("<DIV id=yuzi style='POSITION:absolute;TOP:1px;right:12pt'><a href=loading.htm title='关闭'><img border=0 src='images/skins/bbs_close.gif'></a></div>");
lastScrollY=0;
function heartBeat(){
diffY=document.body.scrollTop;
percent=.1*(diffY-lastScrollY);
if(percent>0)percent=Math.ceil(percent);else 
percent=Math.floor(percent);
document.all.yuzi.style.pixelTop+=percent;
lastScrollY=lastScrollY+percent;
}
window.setInterval("heartBeat()",1);
</script>
<!-- #include file="inc/line.asp" --><%
if membercode>2 then
%>
<table cellspacing="0" cellpadding="0" width="97%" align="center" border="0">
  <tr>
    <td align="middle">管理选项: <%
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=movenew&id="&id&">拉前主题</a> | "
if locktopic=1 then
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=dellocktopic&id="&id&">开放主题</a>"
else
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=locktopic&id="&id&">关闭主题</a>"
end if
response.write " | "
if toptopic=1 then
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=deltoptopic&id="&id&">取消置顶</a>"
else
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=toptopic&id="&id&">主题置顶</a>"
end if
response.write " | "
if instr(act," <font color=red>(荐)</font>")>0 then
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=unrecommend&id="&id&">取消推荐</a>"
else
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=recommend&id="&id&">推荐主题</a>"
end if
response.write " | "
if goodtopic=1 then
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=delgoodtopic&id="&id&">移出精华区</a>"
else
response.write "<a onclick=document.location='loading.htm'; target=yuzi_frame href=manage.asp?menu=goodtopic&id="&id&">添加到精华区</a>"
end if
%>| <a onclick="document.location='loading.htm';" target="yuzi_frame" href="move.asp?id=<%=id%>">
    移动主题</a> |
    <a onclick="checkclick('您确定要删除主题?');onclick=document.location='loading.htm';" target="yuzi_frame" href="manage.asp?menu=deltopic&id=<%=id%>">
    删除主题</a> </td>
  </tr>
</table>
<%
end if

htmlend
%></body>