show.asp

主要功能如下：1、不用注册也可以发言

          <option value="6" <%if skin=6 then response.write("selected")%>>橘子红了</option>
        </select></td>
        <td width="20%"><div align="center">您是本讨论第 <span style="font-weight: bold"><%=rs("yd")%></span> 个阅读者 </div></td>
        <td width="3%" valign="middle"> <div align="right"> <a href="show.asp?up=ok&id=<%=rs("ID")%>"><img src="images/prior.gif" width="12" height="11" border="0"></a></div></td>
        <td width="8%" valign="middle"><div align="center"><a href="show.asp?up=ok&id=<%=rs("ID")%>">上一条讨论</a></div></td>
        <td width="8%" valign="middle"><div align="center"><a href="show.asp?next=ok&id=<%=rs("ID")%>">下一条讨论</a></div></td>
        <td width="3%" valign="middle"><a href="show.asp?next=ok&id=<%=rs("ID")%>"><img src="images/next.gif" width="12" height="11" border="0"></a></td>
      </tr>
    </table>
    
  </td>
</tr>
        <tr>
		 
  <td align=left> 
    <table width="760" cellpadding="5" cellspacing="1" align="center" class="tablebg<%=skin%>b">
      <tr class="tablebg<%=skin%>a"> 
        <td> <div align="left"><strong>* 讨论主题： 
            <%if rs("subject")="" then %>
            无标题 
            <%else%>
            <font color="<%=rs("fontcolor")%>"><%=rs("subject")%></font> 
            <%end if%>
            <input name="id" type="hidden" id="id" value="<%=request("id")%>">
</strong> </div></td>
      </tr>
    </table>
	<%
	if (rs1.recordcount=0) or (PageNo=1) then%>
    <table width="760" 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="61%"> 
                <div align="right"><font color=#0066CC><b>
                  <%if rs("username")<>"" then%>
                  <%=rs("username")%> 
                  <%else%>
                  无名氏 
                  <%end if%>
                    </b></font>
                </div></td>
              <td width="40%"> 
                <div align="left">
                  <%
			  Set rs2=server.createobject("ADODB.RECORDSET")
			  sql2="SELECT * FROM register where username='"&rs("username")&"'"
			  rs2.open sql2,conn,3,3
			  if not rs2.eof then
			if Instr(rs2("level1"),"嘉宾")>0 then%>
                  <font color=#000000><img src="images/fbz.gif" alt="嘉宾" width="16" height="16"></font> 
                  <%end if
			if Instr(rs2("level1"),"版主")>0 then%>
                  <font color=#000000><img src="images/bz.gif" alt="版主" width="16" height="16"></font> 
                  <%end if
			if rs2("level1")="管理员"  then%>
                  <img src="images/gly.gif" alt="管理员" width="15" height="18"> 
                  <%	end if
			  end if
			%>
                  <%
			  if not rs2.eof then
			  %>
                  <%if rs2("sex")="1" then%>
                  <img src="images/man.gif" alt="GG" width="20" height="14"> 
                  <%end if%>
                  <%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("level1")%><br>
            发言数：<%=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%>
          <img src="images/ip.gif" > <%if (session("admin")=1) or (session("admin")=2) then response.write(rs("ip")) else response.write("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="760" 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>