default1.asp

留言薄系统

            <%end if%>
            <br> <br>
          第<%=i%>条留言</td>
          <td height="17" colspan="2" bgcolor="#E6F2FF" > <strong><img src="images/foot.gif" width="16" height="16">标题：</strong>
            <%if rs("subject")="" then %>
            无标题
            <%else%>
            <%=rs("subject")%> 
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td height="41" colspan="2" > <table border="0" width="100%" cellspacing="0" cellpadding="2" style="word-break:break-all">
              <tr valign=top>
                <td width="10" ><img src="images/<%=rs("pic")%>" > </td>
                <td width="95%"><%if not rs("secret") then%>
                  <%=rs("content")%>
                  <%else 
			  response.Write "<font color=#FF0000>◎该留言为悄悄话◎</font><br>" 
			  if (session("useridname")=rs("username")) or ((session("admin")=1) or (session("admin")=2)) then%>
                  <%=rs("content")%>
                  <%end if%>
                <%end if%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="110" colspan="2" valign="top" style=" BORDER-bottom:#0098c8 1PX SOLID"> 
            <table width="100%" border="0" cellpadding="0">
              <tr> 
                <td > 
                  <% 
sql1="select * from reply where reply.id="&rs("id")
rs1.open sql1,conn,1,1
skipi=1
DO while (not rs1.eof) and skipi<4
%>
                </td>
              </tr>
              <tr> 
                <td valign="top"><table width="100%" border="0" style="word-break:break-all">
                    <tr> 
                      <td colspan="2" valign="top" style=" BORDER-bottom:#0098c8 1PX SOLID"><img src="images/dot.gif" width="10" height="10"><font color=#FF0000>回复人：</font>
                        <%
			  Set rs3=server.createobject("ADODB.RECORDSET")
			  sql3="SELECT * FROM register where username='"&rs1("replyname")&"'"
			  rs3.open sql3,conn,1,1
			  if not rs3.eof then			  
			  %>
                          <%=rs1("replyname")%> 
                          <%if rs3("levels")="管理员" then%>
                          <img src="images/gly.gif" alt="管理员" width="15" height="18"> 
                          <%end if%>
                          <%if Instr(rs3("levels"),"版主")>0 then%>
                          <img src="images/bz.gif" alt="嘉宾" width="15" height="18"> 
                          <%end if%>
                          <%if rs3("levels")="嘉宾" then%>
                          <img src="images/fbz.gif" alt="嘉宾" width="16" height="16"> 
                          <%
			  end if
			  end if
			  %>
                          <font color=#FF0000>回复日期：</font>
                          <%if rs1("replydate")<>"" then%>
                          <%if left(rs1("replydate"),1)=0 then response.write "20"&rs1("replydate") else response.write rs1("replydate")%>
                          <%else%>
                          未知
                          <%end if%>
                          <img src="images/edit.gif" width="13" height="15"> <a href="reply_edit.asp?PageNo=<%=PageNo%>&ID=<%=rs1("replyid")%>">修改</a>
                          <%if (session("admin")=1) or (session("admin")=2) then%>
                          <img src="images/dele.gif" alt=Delete border="0"><a href="default1.asp?page=<%=pageno%>&del=ok&type1=ok&id=<%=rs1("replyid")%>&id1=<%=rs1("id")%>">删除</a>
                          <%end if%>
                      </td></tr>
                    <tr> 
                      <td width="10" valign="top"><img src="images/<%=rs1("pic")%>" ></td>
                      <td width="95%"> 
                        <%if not rs1("secret") then%>
                        <font color="#0000FF"><%=rs1("replycontent")%></font> 
                        <%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%>
                        <font color="#0000FF"><%=rs1("replycontent")%></font> 
                        <%end if%>
                        <%end if%>
                      </td>
                    </tr>
                  </table>
                  <% 
rs1.movenext
skipi=skipi+1
Loop
if rs1.recordcount>3 then%>
                  <div align="right">共<%=rs1.recordcount%>条回复记录— <a href="show.asp?ID=<%=rs("ID")%>">>>查看全部回复内容<</a>< 
                    <%end if%>
                    <%rs1.close%>
                  </div></td>
              </tr>
            </table>
            
          </td>
        </tr>
        <tr> 
          <td width="59%" Valign=middle><font color="#000000"><img src="images/time.gif" width="16" height="15"> 
            <%if left(rs("lydate"),1)=0 then response.write "20"&rs("lydate") else response.write rs("lydate")%>
            </font> <IMG SRC="images/mailto.gif"  BORDER="0"> 
            <%if not rs2.eof then%>
            <%if rs2("mail")<>"" then%>
            <a href="mailto:<%=rs2("mail")%>"> 
            <%end if%>
            </a><a href="mailto:<%=rs2("mail")%>">邮件</a> 
            <%else%>
            <%if rs("mail")<>"" then%>
            <a href="mailto:<%=rs("mail")%>"> 
            <%end if%>
            </a><a href="mailto:<%=rs("mail")%>"> 邮件</a> 
            <%end if%>
            <img src="images/home.gif" width="16" height="16"> 
            <%if not rs2.eof then%>
            <%if rs2("homepage")<>"" then%>
            <a href="<%=rs2("homepage")%>" target="_blank"> 
            <%end if%>
            </a><a href="<%=rs2("homepage")%>" target="_blank">主页</a> 
            <%else%>
            <%if rs("homepage")<>"" then%>
            <a href="<%=rs("homepage")%>" target="_blank"> 
            <%end if%>
            </a><a href="<%=rs("homepage")%>" target="_blank"> 主页</a> 
            <%end if%>
            <img src="images/qq.gif"> 
            <%if not rs2.eof then%>
            <%if rs2("qq")<>"" then%>
            <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs2("qq")%>" target="_blank"> 
            <%end if%>
            QQ</a> 
            <%else%>
            <%if rs("qq")<>"" then%>
            <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("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="&rs("ip")) else response.write("alt=±￡?ü")%>> IP          </td>
          <td width="24%" 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="default1.asp?page=<%=pageno%>&del=ok&id=<%=rs("id")%>">删除</a>
              <%end if%>
		      <%if not rs("lock") then%>
              <img src="images/edit.gif" width="13" height="15"> <a href="guest_edit.asp?PageNo=<%=PageNo%>&ID=<%=rs("ID")%>">修改</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>
      <%RowCount = RowCount - 1
	  i=i-1
	  bg=bg+1
      rs.MoveNext 
      Loop%>
      <table width="100%" border="0" align="center">
        <tr> 
          <td width="69%">跳转到第：[<strong>
            <%for i=PageNo to TSum%>
            <%if j>10 then%>
            ....<a href="default1.asp?PageNo=<%=TSum%>">
            <%response.write TSum%>
            </a> 
            <%exit for%>
            <%end if%>
            <a href="default1.asp?PageNo=<%=i%>">
            <%response.write i%>
            </a>
            <%response.write " "%>
            <%  j=j+1 
			next
			%>
          </strong>]页</td>
          <td width="31%"> <div align="right"> 
              <% 
if TSum>1 Then
 If PageNo=TSum or PageNo<>1 Then 
   PrwePage=PageNo-1
   Response.Write "<A HREF=default1.asp?Pageno=1"&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">第一页</A>  "         
   Response.Write "<A HREF=default1.asp?Pageno="&PrwePage&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">上一页</A>  "              
 End If        
 If pageno=1 or TSum>PageNo Then 
   NextPage=PageNo+1             
   Response.Write "<A HREF=default1.asp?PageNo="&NextPage&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">下一页</A>  "
   Response.Write "<A HREF=default1.asp?Pageno="&rs.PageCount&"&text="&text&"&option="&option1&"&jinghua="&jinghua
   Response.Write ">最末页</A>  "          
 End If                    
End If          
%>
          </div></td>
        </tr>
        <tr> 
          <td colspan="2"><form action="default1.asp" method="post" name="form" id="form">
              <p align="center">搜索：
                <INPUT 
      class=input1 size=25 name=text>
                <INPUT name=option type=radio value=1 CHECKED>
                发言主题
                <INPUT type=radio value=2 name=option>
                发言内容
                <INPUT type=radio value=4 name=option>
                注册名称
                <INPUT name="submit" type=submit class=input2 value="搜索">
              </p>
                </form>
          </td>
        </tr>
      </table>   
    <table border=0 width=100% align=center>
      <tr> 
        <td width="100%" height=12><HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0></td>
      </tr>
      <tr> 
        <td align=center> 
          <!--#INCLUDE file="bottom.asp"-->
      </tr>
    </table>