show.asp

留言薄系统

			  rs3.open sql3,conn,3,3
			if not rs3.eof then
			if Instr(rs3("levels"),"嘉宾")>0 then%>
                <font color=#000000><img src="images/fbz.gif" alt="嘉宾" width="16" height="16"></font> 
                <%end if
			if Instr(rs3("levels"),"版主")>0 then%>
                <font color=#000000><img src="images/bz.gif" alt="版主" width="16" height="16"></font> 
                <%end if
			if rs3("levels")="管理员" then%>
                <img src="images/gly.gif" alt="管理员" width="15" height="18"> 
                <%end if
			  end if
			%>
                <%if not rs3.eof then%>
                <%if rs3("sex")="1" then%>
                <img src="images/man.gif" alt="GG" width="20" height="14"> 
                <%end if%>
                <%if rs3("sex")="0" then%>
                <img src="images/woman.gif" alt="MM" width="20" height="14"> 
                <%end if%>
                <%else%>
                <%if rs1("sex")="1" then%>
                <img src="images/man.gif" alt="GG" width="20" height="14"> 
                <%end if%>
                <%if rs1("sex")="0" then%>
                <img src="images/woman.gif" alt="MM" width="20" height="14"> 
                <%end if%>
                <%end if%>
              </td>
            </tr>
          </table>
            <font color="#000000"> 
            <%if not rs3.eof then%>
            <img src="<%=rs3("face")%>"> 
            <%else%>
            <img src="<%=rs1("face")%>"> 
            <%end if%>
            </font> <br>
          <%
			  if not rs3.eof then
			  %>
          头衔：<%=rs3("levels")%><br>
            发言数：<%=rs3("counts")%> 
            <%end if%>
            <br>
        </p>        </td>
        <td height="146" colspan="2" Valign=top style=" BORDER-bottom:#0098c8 1PX SOLID"> 
          <br>
          <table border="0" width="100%" cellspacing="0" cellpadding="2" style="word-break:break-all">
            <tr valign=top>
              <td width="5%" ><img src="images/<%=rs1("pic")%>" > </td>
              <td width="95%"><%if not rs1("secret") then%>
                <%=rs1("replycontent")%>
                <%else 
			  response.Write "<font color=#FF0000>◎该留言为悄悄话◎</font><br>" 
			  if (session("useridname")=rs1("replyname")) or (session("admin")=1) or (session("admin")=2) or (session("useridname")=rs("username")) then%>
                <%=rs1("replycontent")%>
                <%end if%>
              <%end if%></td>
            </tr>
          </table></td>
      </tr>
      <tr> 
        <td width="61%" height="10" Valign=middle><font color="#000000"><img src="images/time.gif"> 
          <%if left(rs1("replydate"),1)=0 then response.write "20"&rs1("replydate") else response.write rs1("replydate")%>
          </font> <IMG SRC="images/mailto.gif"> 
          <%if not rs3.eof then%>
          <%if rs3("mail")<>"" then%>
          <a href="mailto:<%=rs3("mail")%>"> 
          <%end if%>
          邮件</a> 
          <%else%>
          <%if rs1("mail")<>"" then%>
          <a href="mailto:<%=rs1("mail")%>"> 
          <%end if%>
          邮件</a> 
          <%end if%>
          <img src="images/home.gif"> 
          <%if not rs3.eof then%>
          <%if rs3("homepage")<>"" then%>
          <a href="<%=rs3("homepage")%>" target="_blank"> 
          <%end if%>
          主页</a> 
          <%else%>
          <%if rs1("homepage")<>"" then%>
          <a href="<%=rs1("homepage")%>" target="_blank"> 
          <%end if%>
          主页</a> 
          <%end if%>
          <img src="images/qq.gif"> 
          <%if not rs3.eof then%>
          <%if rs3("qq")<>"" then%>
          <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs3("qq")%>" target="_blank"> 
          <%end if%>
          QQ</a> 
          <%else%>
          <%if rs1("qq")<>"" then%>
          <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs1("qq")%>" target="_blank"> 
          <%end if%>
          QQ</a> 
          <%end if%>
          <img src="images/ip.gif" <%if (session("admin")=1) or (session("admin")=2) then response.write("alt="&rs1("ip")) else response.write("alt=保密")%>> 
        IP </td>
        <td width="21%" Valign=middle> 
          <div align="right">
            <%if (session("admin")=1) or (session("admin")=2) then%>
            <img src="images/dele.gif" alt=Delete border="0"><a href="show.asp?del=ok&type1=ok&replyid=<%=rs1("replyid")%>&id=<%=rs1("id")%>">删除</a> 
            <%end if%>
            <%if not rs("lock") then%>
            <img src="images/edit.gif" width="13" height="15"><a href="reply_edit.asp?ID=<%=rs1("replyid")%>">修改</a> 
            <img src="images/reply.gif" alt=Reply border="0"><a href="guest_reply.asp?id=<%=rs("id")%>">回复</a> 
            <%end if%>        
        </div></td>
      </tr>
    </table>
    <%
bg=bg+1
RowCount = RowCount - 1
i=i-1
rs1.movenext
Loop%>
    <table width="100%" border="0" align="center">
      <tr> 
        <td width="93%"> 
          <%if TSum>1 then%>
          本主题共<%=TSum%>页，跳转到第：[ <strong> 
          <%
			for i=1 to TSum%>
          <a href="show.asp?PageNo=<%=i%>&id=<%=rs("id")%>"> 
          <%response.write i%></a><%response.write " "%>
          <%	   
			next
			%>
          </strong>]页<br> 
          <%else%>
          本主题只有一页 
        <%end if%>        </td>
        <td width="7%"> 
<div align="right"><% 
if TSum>1 Then
 If PageNo=TSum or PageNo<>1 Then 
   PrwePage=PageNo-1
   Response.Write "<A HREF=show.asp?Pageno=1"&"&id="&id&">第一页</A>  "         
   Response.Write "<A HREF=show.asp?Pageno="&PrwePage&"&id="&id&">上一页</A>  "              
 End If        
 If pageno=1 or TSum>PageNo Then 
   NextPage=PageNo+1             
   Response.Write "<A HREF=show.asp?PageNo="&NextPage&"&id="&id&">下一页</A>  "
   Response.Write "<A HREF=show.asp?Pageno="&rs.PageCount&"&id="&id&">末一页</A>  "          
 End If                    
End If          
%></div></td>
      </tr>
    </table> 
    <p>
<%if not rs("lock") then%>
<%
Set rs3=server.createobject("ADODB.RECORDSET")
rs3.open "Select * From option1" ,Conn,3,3
%>
	<%if not rs3("adminreply") or session("admin") then%>
	</p>
	<form action="reply_post.asp" method="post" name="form" id="form" onsubmit="return save_onclick()">
	<div align="center">
	<table width="100%" border="1" cellpadding="5" cellspacing="1" bgcolor="#E6F2FF" style="border-collapse: collapse" bordercolor="#000000" >
  <tr >
    <td colspan="4" bordercolorlight="#000000" bordercolordark="#C0C0C0">
      <p align="center"><strong>快速回复</strong> </td>
  </tr>
  <tr class="table001">
    <td width="220" align="center"><div align="left"><strong>用户名：<br>
    </strong></div></td>
    <td width="133" height="28" align="center"><div align="left"><font color="#00FF00">
        <input name="UserName" type="text" class="input1" value="<%=session("useridname")%>" size="15">
    </font></div></td>
    <td width="93" align="center"><div align="left"><strong>密码：</strong></div></td>
    <td width="481" align="center"><div align="left">
      <input name="password" type="password" class="input1" id="password3" value="<%=session("useridpassword")%>" size="15">
      <% Set rs=server.createobject("ADODB.RECORDSET")
   					rs.open "Select * From option1",Conn,3,3
					%>
      <%if rs("register") then%>
必填
<%else%>
(可不填，此项自动注册用户名)
<%end if%>
<%rs.close%>
</div></td>
  </tr>
  <tr class="table001">
    <td width="220" align="center"><div align="left"><strong>留言图标：</strong></div></td>
    <td height="28" colspan="3" align="center"><div align="left">
        <table border="0" width="59%" cellspacing="1" cellpadding="0">
          <tr>
            <td align="center">
              <input type="radio" value="p1.gif" name="pic">
            </td>
            <td><img border="0" src="images/p1.gif"></td>
            <td align="center">
              <input type="radio" value="p2.gif" name="pic">
            </td>
            <td><img border="0" src="images/p2.gif"></td>
            <td align="center">
              <input type="radio" value="p3.gif" name="pic">
            </td>
            <td><img border="0" src="images/p3.gif"></td>
            <td align="center">
              <input type="radio" value="p4.gif" name="pic">
            </td>
            <td><img border="0" src="images/p4.gif"></td>
            <td>
              <input type="radio" value="p5.gif" name="pic">
            </td>
            <td><img border="0" src="images/p5.gif"></td>
            <td>
              <input type="radio" value="p6.gif" name="pic">
            </td>
            <td><img border="0" src="images/p6.gif"></td>
            <td>
              <input type="radio" value="p7.gif" name="pic">
            </td>
            <td><img border="0" src="images/p7.gif"></td>
            <td>
              <input type="radio" value="p8.gif" name="pic">
            </td>
            <td><img border="0" src="images/p8.gif"></td>
            <td>
              <input type="radio" value="p9.gif" name="pic">
            </td>
            <td><img border="0" src="images/p9.gif" width="15" height="15"></td>
          </tr>
          <tr>
            <td align="center">
              <input type="radio" value="p10.gif" name="pic">
            </td>
            <td><img border="0" src="images/p10.gif" width="15" height="22"></td>
            <td align="center">
              <input type="radio" value="p11.gif" name="pic">
            </td>
            <td><img border="0" src="images/p11.gif" width="15" height="15"></td>
            <td align="center">
              <input type="radio" value="p12.gif" name="pic">
            </td>
            <td><img border="0" src="images/p12.gif" width="15" height="15"></td>
            <td align="center">
              <input type="radio" value="p13.gif" name="pic">
            </td>
            <td><img border="0" src="images/p13.gif" width="15" height="15"></td>
            <td>
              <input type="radio" value="p14.gif" name="pic">
            </td>
            <td><img border="0" src="images/p14.gif" width="15" height="15"></td>
            <td>
              <input type="radio" value="p15.gif" name="pic">
            </td>
            <td><img border="0" src="images/p15.gif" width="15" height="15"></td>
            <td>
              <input name="pic" type="radio" value="p16.gif" checked>
            </td>
            <td><img border="0" src="images/p16.gif" width="15" height="15"></td>
            <td>
              <input type="radio" value="p17.gif" name="pic">
            </td>
            <td><img border="0" src="images/p17.gif" width="15" height="15"></td>
            <td>
              <input type="radio" value="p18.gif" name="pic">
            </td>
            <td><img border="0" src="images/p18.gif" width="15" height="15"></td>
          </tr>
        </table>
    </div></td>
  </tr>
  <tr class="table001">
    <td width="220" align="center"><div align="left"><strong>回复内容：</strong><br>
      ·支持UBB代码</div></td>
    <td height="28" colspan="3" align="center"><div align="left">
        <font color="#00FF00">
        <textarea name="content" cols="65" rows="7" class="input1" id="textarea"></textarea>
        <input name="id2" type="hidden" id="id22" value="<%=id%>">
        <input name="all" type="hidden" id="all2" value="0">
</font></div></td>
  </tr>
  <tr class="table001">
    <td width="220" align="center"><div align="left"><strong>留言功能：</strong></div></td>
    <td height="28" colspan="3" align="center"><div align="left">
        <input name="secret" type="checkbox" id="secret2" value="1">
悄悄话(只有<strong>登录</strong>后才可看到自己的留言及回复的内容)    </div></td>
  </tr>
  <tr class="table001">
    <td height="28" colspan="4" align="center"><input name="join" type="submit" class="input2" id="join3" value=" 提 交 " >
　
  <input name="B12" type="reset" class="input2" id="B123"  value=" 重 写 "  >
(Ctrl+Enter提交)</td>
  </tr>
</table>
	</div>
</form>
<%end if%>
<%end if%>
<%rs3.close%>
    <table border=0 width=100% align=center>
      <tr> 
        <td width="100%"> 
          <%  
	  set guest=nothing 
      set rs = nothing
	  set rs1 = nothing
	  %>        </td>
      </tr>
      <tr> 
        <td height=12><HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0></td>
      </tr>
      <tr> 
        <td align=center> 
          <!--#INCLUDE FILE="bottom.asp"-->
      </tr>
    </table>
    <p>　</p></body>
</html>