default1.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

			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%>
                  <font color=#000000><img src="images/fbz.gif" alt="嘉宾"></font> 
                  <%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%>
                </td>
              </tr>
            </table>
          <%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" height="122"> 
		  <%end if%>
          <%end if%>
            <br> 
            <%
			  if not rs2.eof then
			  %>
            头衔：<%=rs2("level1")%><br>
            发言数：<%=rs2("count1")%> 
            <%end if%>
            <br> <br>
          第<%=i%>条留言</td>
          <td height="17" colspan="2" class="tablebg<%=skin%>j"> <strong><img src="images/foot.gif" width="16" height="16">标题：</strong>
            <%if rs("subject")="" then %>
            无标题
            <%else%>
            <font color="<%=rs("fontcolor")%>"><%=rs("subject")%></font> 
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td height="70" colspan="2" > <table border="0" width="100%" cellspacing="0" cellpadding="2" style="word-break:break-all; text-align:justify;">
              <tr valign=top>
                <td width="10" ><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>
        <tr> 
          <td height="52" colspan="2" valign="top" <%if rs("edituser")<>"" then%><%else%>class="tablebg<%=skin%>i"<%end if%>> 
            <table width="100%" border="0" cellpadding="0">
              <tr> 
                <td > 
                  <% 
sql1="select * from reply where reply.id="&rs("id")&" order by id1"
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; text-align:justify;">
                    <tr> 
                      <td colspan="2" valign="top" class="tablebg<%=skin%>i"><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("level1")="管理员" then%>
                          <img src="images/gly.gif" alt="管理员" width="15" height="18"> 
                          <%end if%>
                          <%if rs3("level1")="版主" then%>
                          <img src="images/bz.gif" alt="版主" width="15" height="18"> 
                          <%end if%>
                          <%if rs3("level1")="嘉宾" then%>
                          <img src="images/fbz.gif" alt="嘉宾" width="16" height="16"> 
                          <%
			  				end if
			  else
			  	response.Write(rs1("replyname"))
			  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%>
						  <%if not rs("lock") then%>
                          <img src="images/edit.gif" width="13" height="15"> <a href="reply_edit.asp?PageNo=<%=PageNo%>&ID=<%=rs1("ID1")%>">修改</a>
                          <%if (not reply) 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%>
                          <%end if%>
						  <%end if%>
						  <%if (session("admin")=1) or (session("admin")=2) then%>
                          <img src="images/dele.gif" alt=Delete border="0"><a href="javascript:exit1('<%=rs1("id1")%>','<%=rs1("id")%>');">删除</a>
<%if (not rs1("mark")) and show then%><img src="images/sh.gif" alt=Delete width="16" height="16" border="0"><a href="default1.asp?sh=ok&type1=ok&id=<%=rs1("id")%>&id1=<%=rs1("id1")%>">审核</a>
            <%end if%>
						  <%end if%>
                      </td></tr>
                    <tr> 
                      <td width="10" valign="top"><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>
                  <% 
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><%if rs("edituser")<>"" then%>
        <tr>
          <td height="19" colspan="2" valign="top" class="tablebg<%=skin%>i"><div align="right">[本主题已被<%=rs("edituser")%>于<%=rs("edittime")%>编辑过]</div></td>
        </tr><%end if%>
        <tr> 
          <td width="52%" 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">主页</a> 
          <%else response.Write("主页")%>
		  <%end if%>
          <%else%>
          <%if rs("homepage")<>"" then%>
          <a href="<%=rs("homepage")%>" target="_blank">主页</a>  
          <%else response.Write("主页")%>
		  <%end if%>
          <%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="31%" 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="default1.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?PageNo=<%=PageNo%>&ID=<%=rs("ID")%>">修改</a> 
			  <%if (not reply) 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=show.asp?ID=<%=rs("ID")%>#replay> 
                </a><a href=guest_reply.asp?id=<%=rs("id")%>>回复</a><%end if%>
	            <%end if%>		  
          </div></td>
        </tr>
      </table>
      <%RowCount = RowCount - 1
	  i=i-1
	  bg=bg+1
      rs.MoveNext 
      Loop
	  end if%>
      <table width="100%" border="0" align="center">
        <tr> 
          <td><div align="right">
              <% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题") %>
          </div>
            <div align="right"> 
          </div></td>
        </tr>
        <tr> 
          <td><form action="default1.asp" method="post" name="form" id="form">
              <p align="center"><IMG src="images/search.gif" width="16" height="16" align=absMiddle>搜索：
                <INPUT 
      class=input1 size=25 name=text>
                <INPUT name=option type=radio value=1 CHECKED>
                发言主题
                <INPUT type=radio value=2 name=option>
                发言内容
                <INPUT name="submit" type=submit class=input2 value="搜索">
              </p>
                </form>
          </td>
        </tr>
      </table>

<%
rs.close
set rs=nothing
set rs1=nothing
set rs2=nothing
%>
          <!--#INCLUDE file="bottom.asp"-->
      </tr>
    </table>