show.asp

院校使用的一套心理在线咨询系统(免验证细节美化版) v2.6

                  <%if rs2("sex")="0" then%>
                  <img src="images/woman.gif" alt="MM" width="20" height="14"> 
                  <%end if%>
                  <%else%>
                  <%if rs("sex")="1" then%>
                  <img src="images/man.gif" alt="GG" width="20" height="14"> 
                  <%end if%>
                  <%if rs("sex")="0" then%>
                  <img src="images/woman.gif" alt="MM" width="20" height="14"> 
                  <%end if%>
                  <%end if%>
              </div></td>
            </tr>
          </table>        
          <br>
          <%if not rs2.eof then%>
          <img src="<%if rs2("myface")<>"" then %><%=rs2("myface")%>" width="<%=int(rs2("facewidth"))%>" height="<%=int(rs2("faceheight"))%>"><%else%><%=rs2("face")%>" width="72" height="122"> <%end if%>
          <%else if rs("face")="" then%>
          <img src="face/1.gif"> 
          <%else%>
          <img src="<%=rs("face")%>" width="72"> 
          <%end if%>
          <%end if%>
          <br>
          <%
			  if not rs2.eof then
			  %>
          
            发言数：<%=rs2("count1")%> 
            <%end if%>
        </p>        </td>
        <td height="150" colspan="2" valign="top" <%if rs("edituser")<>"" then%><%else%>class="tablebg<%=skin%>i"<%end if%>> 
          <br>          <table border="0" width="100%" cellspacing="0" cellpadding="2" style="word-break:break-all; text-align:justify;">
            <tr valign=top>
              <td width="5%" ><img src="images/<%=rs("pic")%>" > </td>
              <td width="95%"><%if not rs("secret") then%>
                <%=ubbcode(rs("content"))%>
                <%else 
			  response.Write "<font color=#FF0000>◎该留言为悄悄话◎</font><br>" 
			  if session("useridname")=rs("username") or (session("admin")=1 or session("admin")=2) then%>
                <%=ubbcode(rs("content"))%>
                <%end if%>
              <%end if%></td>
            </tr>
          </table></td>
      </tr><%if rs("edituser")<>"" then%>
      <tr>
        <td height="5" colspan="2" valign="top" class="tablebg<%=skin%>i"><div align="right">[本主题已被<%=rs("edituser")%>于<%=rs("edittime")%>编辑过]</div></td>
      </tr><%end if%>
      <tr> 
        <td width="49%" height="5" 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%>
          <%if ((session("admin")=1) or (session("admin")=2)) or (rs11("showmail")) then%><a href="mailto:<%=rs2("mail")%>"> <%end if%>
          <%end if%>
          邮件</a> 
          <%else%>
          <%if rs("mail")<>"" then%>
          <%if ((session("admin")=1) or (session("admin")=2)) or (rs11("showmail")) then%><a href="mailto:<%=rs("mail")%>"> <%end if%>
          <%end if%>
          邮件</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> 
          <%else%>
          <%if rs("homepage")<>"" then%>
          <a href="<%=rs("homepage")%>" target="_blank"> 
          <%end if%>
          主页</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%>
          <a title =<%if (session("admin")=1) or (session("admin")=2) then response.write(rs("ip")) else response.write("IP")%>>
          <img src="images/ip.gif" ></a> IP地址</td>
        <td width="33%" height="5" Valign=middle> 
          <div align="right">
            <%if (session("admin")=1) or (session("admin")=2) then%>
            <%if (not rs("mark")) and show then%><img src="images/sh.gif" alt=sh width="16" height="16" border="0"><a href="show.asp?sh=ok&id=<%=rs("id")%>">审核</a><%end if%>            <img src="images/dele.gif" alt=Delete border="0"><a href="javascript:exit('<%=rs("id")%>');">删除</a> 
            <%end if%>
            <%if not rs("lock") then%>
            <img src="images/edit.gif" width="13" height="15"><a href="guest_edit.asp?ID=<%=rs("ID")%>">修改</a> 
            <%if (not rs4("adminreply")) or (session("admin")=1) or (session("admin")=2) then%><%if rs11("muieditor")=1 then%><img src="images/yy.gif" width="16" height="16"><a href="guest_reply.asp?id=<%=rs("id")%>&quote=1">引用</a><%end if%>
			<img src="images/reply.gif" alt=Reply border="0"><a href="guest_reply.asp?id=<%=rs("id")%>">回复</a><%end if%> 
            <%end if%>        
        </div></td>
      </tr>
    </table>
	<%rs2.close%>
	<%end if%>
	<%bg=1%>
<% DO WHILE NOT rs1.EOF AND RowCount>0%> 
    <table width="100%" align="center" cellpadding="5" cellspacing="1" <%if bg mod 2=0 then%>class="tablebg<%=skin%>e"<%else%>class="tablebg<%=skin%>f"<%end if%>> 
      <tr> 
        <td width="18%" rowspan="3" align=center valign="top" class="tablebg<%=skin%>h">
<table width="100%" border="0" align="center" >
            <tr> 
              <td width="63%">  
                <div align="right"><font color=#0066CC><b>
                  <%if rs1("replyname")<>"" then%>
                  <%=rs1("replyname")%> 
                  <%else%>
                  无名氏 
                  <%end if%>
                    </b></font>
                </div></td>
              <td width="40%"> 
                <div align="left">
                  <%Set rs3=server.createobject("ADODB.RECORDSET")
			  sql3="SELECT * FROM register where username='"&rs1("replyname")&"'"
			  rs3.open sql3,conn,3,3
			if not rs3.eof then
			if Instr(rs3("level1"),"嘉宾")>0 then%>
                  <font color=#000000><img src="images/fbz.gif" alt="嘉宾" width="16" height="16"></font> 
                  <%end if
			if Instr(rs3("level1"),"版主")>0 then%>
                  <font color=#000000><img src="images/bz.gif" alt="版主" width="16" height="16"></font> 
                  <%end if
			if rs3("level1")="管理员" 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%>
              </div></td>
            </tr>
          </table>
            <font color="#000000"> 
            <%if not rs3.eof then%>
            <img src="<%if rs3("myface")<>"" then %><%=rs3("myface")%>" width="<%=int(rs3("facewidth"))%>" height="<%=int(rs3("faceheight"))%>"><%else%><%=rs3("face")%>" width="72" height="122"> <%end if%>
            <%else%>
            <img src="<%=rs1("face")%>" width="72"> 
            <%end if%>
            </font> <br>
          <%
			  if not rs3.eof then
			  %>
          头衔：<%=rs3("level1")%><br>
            发言数：<%=rs3("count1")%> 
            <%
			end if%>
            <br>
        </p>        </td>
        <td height="150" colspan="2" Valign=top <%if rs1("edituser")<>"" then%><%else%>class="tablebg<%=skin%>i"<%end if%>> 
          <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
                if not show then
					response.Write(ubbcode(rs1("replycontent")))
				else if not rs1("mark") then 
					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
                		response.Write(ubbcode(rs1("replycontent")))
                	end if
					else response.Write(ubbcode(rs1("replycontent")))
					end if
				end if
                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%>
                <%=ubbcode(rs1("replycontent"))%>
                <%end if%>
              <%end if%></td>
            </tr>
        </table></td>
      </tr><%if rs1("edituser")<>"" then%>
      <tr>
        <td height="5" colspan="2" Valign=top class="tablebg<%=skin%>i"><div align="right">[本回复已被<%=rs1("edituser")%>于<%=rs1("edittime")%>编辑过]</div></td>
      </tr><%end if%>
      <tr> 
        <td width="49%" height="5" 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%>
          <%if ((session("admin")=1) or (session("admin")=2)) or (rs11("showmail")) then%><a href="mailto:<%=rs3("mail")%>"><%end if%>
          <%end if%>
          邮件</a> 
          <%else%>
          <%if rs1("mail")<>"" then%>
          <%if ((session("admin")=1) or (session("admin")=2)) or (rs11("showmail")) then%><a href="mailto:<%=rs1("mail")%>"><%end if%> 
          <%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%>
          <a title =<%if (session("admin")=1) or (session("admin")=2) then response.write(rs("ip")) else response.write("IP")%>>
          <img src="images/ip.gif" ></a> IP地址</td>
        <td width="33%" height="5" Valign=middle> 
          <div align="right">
            <%if (session("admin")=1) or (session("admin")=2) then%>
            <%if (not rs1("mark")) and show then%><img src="images/sh.gif" alt=Delete width="16" height="16" border="0"><a href="show.asp?sh=ok&type1=ok&id=<%=rs1("id")%>&id1=<%=rs1("id1")%>">审核</a>
            <%end if%>            <img src="images/dele.gif" alt=Delete border="0"><a href="javascript:exit1('<%=rs1("id1")%>','<%=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("ID1")%>">修改</a>
			<%if (rs11("muieditor")=1) and (not rs4("adminreply")) or (session("admin")=1) or (session("admin")=2) then%>
			<%if rs11("muieditor")=1 then%><a href="guest_reply.asp?id=<%=rs1("id")%>&id1=<%=rs1("id1")%>&quote=1"><img src="images/yy.gif" alt=Reply width="16" height="16" border="0">引用</a><%end if%> 
            <img src="images/reply.gif" alt=Reply border="0"><a href="guest_reply.asp?id=<%=rs("id")%>">回复</a><%end if%> 
            <%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> 
          <div align="right">        </div>          <div align="right">
            <% call showpage(url,rs1.RECORDCOUNT,maxperpage,false,true,"条回复") %>
          </div></td>
      </tr>
    </table> 
    
<%if not rs("lock") then%>
	<%if (not rs4("adminreply")) or (session("admin")=1) or (session("admin")=2) then%>
	
		<form name=preview action="GuestPreview.asp" method=post target=GuestPreview>
		<input type=hidden name=title value=><input type=hidden name=content value=>
		</form>
<%end if%>
<%end if%>
<%
rs1.close
set rs4=nothing
	  set guest=nothing 
      set rs = nothing
	  set rs1 = nothing
	  set rs2 = nothing
	  set rs3 = nothing%>
<%if (session("admin")=1) or (session("admin")=2) then%>
		<div align="center">
<table width="90%" border="0">
  <tr>
    <td>        <div align="right"><span style="font-weight: bold">管理选项：</span><a href="show.asp?act=0&id=<%=request("id")%>&text=<%=rs("username")%>">修复</a> | <a href="show.asp?act=1&id=<%=request("id")%>&text=<%=rs("username")%>">固顶</a> | <a href="show.asp?act=2&id=<%=request("id")%>&text=<%=rs("username")%>">解固</a> | <a href="show.asp?act=5&id=<%=request("id")%>&text=<%=rs("username")%>">锁定</a> | <a href="show.asp?act=6&id=<%=request("id")%>&text=<%=rs("username")%>">解锁</a> | <a href="show.asp?act=7&id=<%=request("id")%>&text=<%=rs("username")%>">提前</a> | <a href="show.asp?del=ok&id=<%=request("id")%>&text=<%=rs("username")%>">删除</a> | <a href="show.asp?sh=ok&id=<%=request("id")%>&all=1&text=<%=rs("username")%>">审核全部</a>
    </div></td>
  </tr>
</table>
    	</div>
    <%end if%>
     <!--#INCLUDE FILE="bottom.asp"--></body>
</html>