<!--#include file="../conn/conn.asp"-->
<!--#include file="../conn/config.asp"-->
<!--#include file="../conn/nosql.asp"-->
<!--#include file="../conn/page.asp"-->
<%
'购买贴子
act=nosql(request("act"))
if isChkInteger(request("id")) then
id=request("id")
else
Response.Redirect ("../../index.asp")
end if
if act="view" then

if session("id")="" then
			   response.write "<script language='javascript'>"
                    response.write "alert('对不起，请登录后再访问本页！');"
                    response.write"javascript:history.go(-1)</SCRIPT>"
			        response.End()
end if



			sql="select * from snsn_bbs where id="&id&" and replyid=0"
			 Set rs= Server.CreateObject("ADODB.Recordset") 
			rs.open sql,conn,1,1
		    if  rs.eof then
				response.write "<script language='javascript'>"
                response.write "alert('没有找到您要的贴子！');"
                response.write"location.href='view.asp?id="&id&"'</SCRIPT>"
				response.End()
		    else
			
		if   isnull(rs("gm")) or len(rs("gm"))=0 then			
				gma="no"			
		else
				gma="no"	      
			 tempgm=split(rs("gm"),"|") 
				 if tempgm(0)="1"then
				 gma="yes"
				 end if		 
		 end if
		 
		 
		 if  gma<>"yes" then
		 response.write "<script language='javascript'>"
                response.write "alert('此贴不需要购买！');"
                response.write"location.href='view.asp?id="&id&"'</SCRIPT>"
				response.End()
		 else
					 sql="select id,jifen from snsn_user where id="&session("id")
        			 Set rsjf= Server.CreateObject("ADODB.Recordset") 
        			 rsjf.open sql,conn,1,3

                    if rsjf("jifen")<5 then
			        response.write "<script language='javascript'>"
                    response.write "alert('您的银两不够了，请返回！');"
                    response.write"javascript:history.go(-1)</SCRIPT>"
			        response.End()
			        else
			        rsjf("jifen")=rsjf("jifen")-5
			        rsjf.update
					session("jifen")=rsjf("jifen")
					 sql="select id,jifen from snsn_user where username='"&rs("username")&"'"
        			 Set rsjf1= Server.CreateObject("ADODB.Recordset") 
        			 rsjf1.open sql,conn,1,3
					  rsjf1("jifen")=rsjf1("jifen")+5
			        rsjf1.update
					session("viewgm"&id)="ok"
					response.write "<script language='javascript'>"
                    response.write "alert('购买""临时查看证明""完成!!!\n你可以临时查看本贴了！');"
                    response.write"location.href='view.asp?id="&id&"'</SCRIPT>"
			        response.End()					
					end if
		end if			
		end if
end if
'end 购买贴子
%>
<%
if isChkInteger(request("id")) then
id=request("id")
else
Response.Redirect ("../../index.asp")
end if
if nosql(request("action"))="reply" then
title=nosql(trim(Replace(Request.Form("title"),vbcrlf," ")))
body=nosql(request.form("body"))
username=nosql(session("user"))
userid=nosql(session("id"))
if len(body)<1  then
response.write"<script language='javascript'>alert('对不起，内容不能小于一个字符')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from snsn_bbs"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("body")=body
rs("username")=username
rs("faceimg")=1
rs("hits")=0
rs("reply")=0
'rs("wdate")=now()
rs("ldate")=now()
rs("userid")=userid
rs("replyid")=id
rs.update
set jifen=conn.execute("update snsn_user set jifen=jifen+2 where id="&userid&"")
'雨露(会员回复量)
Set hua1= Server.CreateObject("ADODB.Recordset") 
hua1.open "select snsn_bbs.username,snsn_user.id from snsn_bbs,snsn_user where snsn_bbs.username=snsn_user.username and snsn_bbs.id="&id,conn,1,3
if hua1(0) <>session("user")   then

Set hua= Server.CreateObject("ADODB.Recordset") 
hua.open "select * from snsn_hua where userid="&hua1(1),conn,1,3
if not hua.eof then 
if hua("yl")<hua("max1")  then
if datediff("d",hua("yldate"),now)>=1 then
hua("dayyl")=0
hua("yldate")=now()
hua.update
end if
if hua("dayyl")<8 then
hua("dayyl")=hua("dayyl")+1
hua("yl")=hua("yl")+1
hua.update

end if
end if
end if
end if
'end 雨露


rid=rs("id")
rs.close
set rs=nothing
set rs1=conn.execute("update snsn_bbs set reply=reply+1,ldate=getdate() where id="&id&"")
Response.Redirect ("view.asp?id="&id&"&#r"&rid&"")
'删除
elseif nosql(request("action"))="del" then
sid=nosql(request("sid"))
if isChkInteger(request("userid")) then
userid=request("userid")
else
Response.Redirect ("../../index.asp")
end if
sql="delete from [snsn_bbs] where id="&id
conn.execute sql
sql="delete from [snsn_bbs] where replyid="&id
conn.execute sql
if sid="" then
set jifen=conn.execute("update snsn_user set jifen=jifen-10 where id="&userid&"")
Response.Redirect ("index.asp")
else
set jifen=conn.execute("update snsn_user set jifen=jifen-4 where id="&userid&"")
Response.Redirect ("view.asp?id="&sid&"")
end if
'固顶
elseif nosql(request("action"))="gd" then
if isChkInteger(request("userid")) then
userid=request("userid")
else
Response.Redirect ("../../index.asp")
end if
conn.execute("update [snsn_bbs] set gd=2 where id="&id)
Response.Redirect ("view.asp?id="&id&"")
'取消固顶
elseif nosql(request("action"))="gd1" then
if isChkInteger(request("userid")) then
userid=request("userid")
else
Response.Redirect ("../../index.asp")
end if
conn.execute("update [snsn_bbs] set gd=0 where id="&id)
Response.Redirect ("view.asp?id="&id&"")
'总固顶
elseif nosql(request("action"))="zgd" then
if isChkInteger(request("userid")) then
userid=request("userid")
else
Response.Redirect ("../../index.asp")
end if
conn.execute("update [snsn_bbs] set gd=3 where id="&id)
Response.Redirect ("view.asp?id="&id&"")
'取消总固顶
elseif nosql(request("action"))="zgd1" then
if isChkInteger(request("userid")) then
userid=request("userid")
else
Response.Redirect ("../../index.asp")
end if
conn.execute("update [snsn_bbs] set gd=0 where id="&id)
Response.Redirect ("view.asp?id="&id&"")


else
sql="select * from snsn_bbs where id="&id
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
	if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此页，请确认后或联系管理员再访问本页！');"
response.write"this.location.href='index.asp';</SCRIPT>"
response.end
	else
rs("hits")=rs("hits")+1
rs.update
retitle = rs("title") 
parent = rs("id")
bbsclass = rs("bbsclass")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员论坛-<%=webname%></title>
<link href="../css.css" REL="stylesheet" TYPE="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style2 {color: #FF0000}
.style2 {color: #0000FF}
.style3 {	color: #FF3300;
	font-weight: bold;
}
.style4 {color: #FF3300}
.style6 {color: #FF0000; font-weight: bold; }
.unnamed10 {font-size: 12px;
	line-height: 18px;
	font-weight: normal;
	color: #666467;
}
.style8 {color: #FF9900; font-weight: bold; }
-->
</style>

<SCRIPT language=javascript>
//--检测登陆-->

	   function DoLogin() {

	      var UsernameGet = trim(document.loginForm.UsernameGet.value);
		  var PasswordGet = trim(document.loginForm.PasswordGet.value);
		  var Verifycode = trim(document.loginForm.Verifycode.value);

          if(UsernameGet == "") {
		    alert("请输入会员登录名！");
			document.loginForm.UsernameGet.focus();
		    return false;
		  } 
		  if(PasswordGet == "") {
		    alert("请输入您的会员密码！");
			document.loginForm.PasswordGet.focus();
		    return false;
		  } 
		  if(Verifycode == "") {
		    alert("请输入您的登录验证码！");
			document.loginForm.Verifycode.focus();
		    return false;
		  }  
		  
		  
		 }

           function trim(inputString) {
	   
              if (typeof inputString != "string") { return inputString; }
              var retValue = inputString;
              var ch = retValue.substring(0, 1);
              while (ch == " ") { 
	          //检查字符串开始部分的空格
                  retValue = retValue.substring(1, retValue.length);
                  ch = retValue.substring(0, 1);
              }
              ch = retValue.substring(retValue.length-1, retValue.length);
              while (ch == " ") {
                 //检查字符串结束部分的空格
                 retValue = retValue.substring(0, retValue.length-1);
                 ch = retValue.substring(retValue.length-1, retValue.length);
              }
              while (retValue.indexOf("  ") != -1) { 
	         //将文字中间多个相连的空格变为一个空格
                 retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); 
              }
              return retValue;
           } 

//-->
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body >
<!--#include file="top.asp"-->
<table width=780 align="center">
  <tr>
    <td height="30"><a href="index.asp">论坛首页</a> &gt; 
      <%set rs3=conn.execute("select * from [snsn_bbsclass] where id="&bbsclass&"")
									if rs3.eof or rs3.bof then
Response.Redirect ("../../index.asp")
else
bz=rs3("bbsbz")
%>
      <a href="list.asp?id=<%=bbsclass%>&page=<%=session("bbspage")%>"><%=rs3("bbsname")%></a>
      <%end if%>
&gt; <%=retitle%></span></td>
    <td><div align="right"><a href="/bbs/list.asp?id=<%=bbsclass%>&page=<%=session("bbspage")%>"><font color="#FF0000"><b><img src="img/fh.gif" border="0"></b></font></a> <a href="bbs_add.asp?id=<%=bbsclass%>"><img src="img/fbbbs.gif" border="0"></a> <a href="bbs_reply.asp?id=<%=id%>&bbsclass=<%=bbsclass%>"><img src="img/hfbbs.gif" border="0"></a></div></td>
  </tr>
</table>
<table cellspacing="0" cellpadding="0" width="780" border="0" class="a2" align="center">
  <tr bgcolor="#FFFFFF" class="a1">
    <td colspan="4">
      <table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="6" height="30"><img src="img/v_1.gif" width="6" height="30"></td>
          <td background="img/v_2.gif"><table width=98% border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="81%"><b><img src="img/icon_03.gif" width="14" height="14"> 主题：<font color="#0000FF"><%=rs("title")%></font></b></td>
              <td width=19% align=center>&nbsp;</td>
            </tr>
          </table></td>
          <td width="6"><img src="img/v_3.gif" width="6" height="30"></td>
        </tr>
    </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table></td>
  </tr>
  <tr class="a3">
    <td width="75" colspan="2" align="center" valign="top" bgcolor="#FFFFFF"><table width="150" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="img/v_1_1.gif" width="150" height="5"></td>
      </tr>
      <tr>
        <td background="img/v_2_2.gif"><table width="130" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="15" align="center"></td>
            </tr>
            <tr>
              <td align="center"><%set rs3=conn.execute("select * from [snsn_user] where username='"&rs("username")&"'")
								  									if rs3.eof or rs3.bof then
lj="<a href=#>"
else
lj="<a href=""javascript:;"" onClick=""window.open('/web/"&rs3("url")&"/index.asp?web_id="&rs3("id")&"','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')"" class=over>"
end if
bbshfid=rs3("id")%>
                  <span class="S"><img id=face src="/ico/<%=rs3("face")%>-2.gif"></span> </td>
            </tr>
          </table>
            <table  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><div align="center"> </div></td>
              </tr>
              <tr>
                <td height="22"><strong><a href="javascript:;" onClick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" ><%=rs("username")%></a><span class="link_redblank">
                  <%if rs3("ch")="先生" then%>
                  <img src="../ico/ico_man.gif" width="11" height="12">
                  <%else%>
                  <img src="../ico/ico_women.gif" width="11" height="12">
                  <%end if%>
                </span></strong></td>
              </tr>
              <%if rs("username")="mysnsn" then%>
              <tr>
                <td height="22"><span class="style6"><strong>论坛管理员</strong></span></td>
              </tr>
              <%elseif rs("username")=bz then%>
              <tr>
                <td height="22"><span class="style8">论坛版主</span></td>
              </tr>
              <%end if%>
              <tr>
                <td height="22"><%set ujilu=conn.execute("select name from online where name='"&rs3("username")&"'")                                                                                      
if not ujilu.eof then
set yshy=server.CreateObject("adodb.recordset")
yshy.open"select username,name,url,id,cz from snsn_user where username='"&ujilu("name")&"'",conn,3,3%>
                    <%if yshy("cz")="1" then%>
                    <span class="style2">在线</span>
                    <%else%>
            隐身或离线
            <%end if%>
            <%else%>
            隐身或离线
            <%end if%></td>
              </tr>
              <tr>
                <td height="22">等级：
                    <%set rsdj=conn.execute("select * from [snsn_zy] where dj="&rs3("dj")&"")%>
                    <%=rsdj("djname")%></td>
              </tr>
              <tr>
                <td height="22">银两：<%=rs3("jifen")%></td>
              </tr>
              <tr>
                <td height="22">最近：<%=FormatDate(rs3("logindate"),2)%></td>
              </tr>
          </table></td>
      </tr>
      <tr>
        <td><img src="img/v_3_3.gif" width="150" height="5"></td>
      </tr>
    </table>
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table></td>
    <td width="5" align="center" valign="top" bgcolor="#FFFFFF">&nbsp;</td>
    <td valign="top"><table border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="img/v_b_1.gif" width="625" height="10"></td>
      </tr>
      <tr>
        <td background="img/v_b_2.gif">&nbsp;&nbsp;<img src="../images/icon_comm3.gif" width="15" height="15" border="0"> <a href="/my/love/addfriend.asp?user=<%=rs("username")%>">加为好友</a> <span class="link_redblank"><img src="../images//icon_comm2.gif" width="13" height="15"> <a href="/my/getprice/sendnewmessage.asp?selected_friend_id=<%=rs("username")%>">发送信息</a> </span> <img src="../images//icon_comm.gif" width="14" height="15"> <%=lj%>迷你主页</a>&nbsp;<img src=img/time.gif> <%=rs("ldate")%> 浏览：<span class="style2"><%=rs("hits")%></span> 回复：<%=rs("reply")%>		<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="1" background="../images/bj_x.gif"></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td background="img/v_b_2.gif"><table width="600"  border="0" align="center" cellpadding="5" cellspacing="0">
          <tr  style="word-break:break-all;">
            <td width="600"  style="word-break:break-all;">
                <%
									if	 isnull(rs("gm")) or len(rs("gm"))=0 then
								tempgma="0|0"
								else
							tempgma=rs("gm")
									 end if	
									 	 tempgm=split(tempgma,"|")										
if session("viewgm"&id)="" and   tempgm(0)="1" then 
										  %>
      该帖子使用了道具：[一本万利]，必需花<font color=red>5两</font>购买"临时查看证明"后才能查看!!<a href="?id=<%=id%>&act=view"><font color=red>[点此购买]</font></a>
      <%
										  else
										
										  
										  show=rs("body")
if rs("zshow")=1 then
response.write Plus_ChkPicWords(htmltotext(show))
else
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\[qq@*([0-9]*)\]"
show=re.Replace(show,"&nbsp;<img src=/web/QQ/gif/$1.gif border=0 alt='点击看我超酷表演' onmouseover=ShowQQ('$1'); style='cursor: hand;border:1px border-collapse: collapse; border-style: dotted;'>")

response.write show
end if
end if
if instr(rs("title"),"<font color=red>")>0 then
%>
      <br>
      <br>
      该帖子使用了道具：[醒目红灯]，详情请查看<a href="javascript:;" onClick="window.open('/minishow/gmhua.asp?l=6','daoju1')">藏宝阁</a>
      <%end if
if rs("gd")=1 then
%>
      <br>
      <br>
      该帖子使用了道具：[唯我独尊]，详情请查看<a href="javascript:;" onClick="window.open('/minishow/gmhua.asp?l=6','daoju1')">藏宝阁</a>
      <%end if%></td>
          </tr>
          <tr>
            <td  style="word-break:break-all;"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="1" background="../images/bj_x.gif"></td>
          </tr>
        </table>
                <img src="../images/shows.gif" width="45" height="32"><%=rs3("h_xxy")%></td>
          </tr>
          <tr>
            <td  style="word-break:break-all;"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="1" background="../images/bj_x.gif"></td>
          </tr>
        </table><%
          url=""&weburl&"view.asp?id="&id&""
		  url1="view.asp?id="&id&""%>
                <a href="<%=url1%>"><%=url%></a><a href=javascript: onClick=clipboardData.setData('Text','<%=url%>') >复制</a> <a href=#replay class="style4">回复</a> <span class="365ye">
                <%'是不是版主
									  if bz<>"" then 
	 								  bsort2=split(bz,",")
	 								    for i=0 to ubound(bsort2)
	  								    	if session("user")=bsort2(i) then
											session("bbsbz")="yes"										
											end if
	  									next
									  end if
										'结束 是不是版主
	  if session("bbsbz")="yes" or session("user")=rs("username")  then%>
                <a href="bbs_save.asp?id=<%=rs("id")%>&bid=<%=id%>"> <span class="style2">编辑</span></a> <a href="javascript:;"  onClick="window.open('bbs_m.asp?id=<%=rs("id")%>&userid=<%=rs3("id")%>','dueihuan','scrollbars=no,resizable=no,width=280,height=140,menubar=no,top=188,left=188')"><span class="style2">转移</span></a> <a href="?action=del&id=<%=rs("id")%>&userid=<%=rs3("id")%>"><span class="style2">删除</span></a>
                <%if session("bbsbz")="yes" then%>
                <%if rs("gd")=2 then%>
                <a href="?action=gd1&id=<%=rs("id")%>&userid=<%=rs3("id")%>"><span class="style2">取消固顶</span></a>
                <%else%>
                <a href="?action=gd&id=<%=rs("id")%>&userid=<%=rs3("id")%>"><span class="style2">固顶</span></a>
                <%end if%>
                <%end if%>
                <%if session("user")="mysnsn" then%>
                <%if rs("gd")=2 then%>
                <a href="?action=zgd1&id=<%=rs("id")%>&userid=<%=rs3("id")%>"><span class="style2">取消总固顶</span></a>
                <%else%>
                <a href="?action=zgd&id=<%=rs("id")%>&userid=<%=rs3("id")%>"><span class="style2">总固顶</span></a>
                <%end if%>
                <%end if%>
                <%end if%>
              </span></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="img/v_b_3.gif" width="625" height="10"></td>
      </tr>
    </table>      </td>
  </tr>
  <%rs.movenext
sql="select * from snsn_bbs where replyid = "& id &" order by id"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then 
rs.PageSize =8 '每页记录条数
		iCount=rs.RecordCount '记录总数
		iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    	per_page=rs.PageSize
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	For i=1 To x
%>
  <tr bgcolor="#FFFFFF" class="a1">
    <td colspan="4">
      <table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="6" height="30"><img src="img/v_1.gif" width="6" height="30"></td>
          <td background="img/v_2.gif"><table width=98% border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="81%"><span class="style3"><img src="img/icon_c5.gif" width="10" height="12"> <%=rs("title")%></span><a name="r<%=rs("id")%>"></a></td>
              <td width=19% align=center><strong></strong></td>
            </tr>
          </table></td>
          <td width="6"><img src="img/v_3.gif" width="6" height="30"></td>
        </tr>
      </table>    
      <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table></td>
  </tr>
  <tr bgcolor="#FFFFFF" class="a3">
    <td valign="top"><div align="center">
        <table width="150" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="img/v_1_1.gif" width="150" height="5"></td>
          </tr>
          <tr>
            <td background="img/v_2_2.gif"><table width="130" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="12" align="center"></td>
              </tr>
              <tr>
                <td align="center"><%set rs3=conn.execute("select * from [snsn_user] where username='"&rs("username")&"'")
								  									if rs3.eof or rs3.bof then
lj="<a href=#>"
else
lj="<a href=""javascript:;"" onClick=""window.open('/web/"&rs3("url")&"/index.asp?web_id="&rs3("id")&"','cheng','scrollbars=no,resizable=no,width=920,height=565,menubar=no,top=10,left=10')"" class=over>"
end if
bbshfid=rs3("id")%>
                    <span class="S"><img id=face src="/ico/<%=rs3("face")%>-2.gif"></span> </td>
              </tr>
            </table>
              <table  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><div align="center"> </div></td>
                </tr>
                <tr>
                  <td height="25"><strong><a href="javascript:;" onClick="showmenuie5(<%=rs3("url")%>,<%=rs3("id")%>,'<%=rs3("username")%>')" ><%=rs("username")%></a><span class="link_redblank">
                    <%if rs3("ch")="先生" then%>
                    <img src="../ico/ico_man.gif" width="11" height="12">
                    <%else%>
                    <img src="../ico/ico_women.gif" width="11" height="12">
                    <%end if%>
                  </span></strong></td>
                </tr>
                <%if rs("username")=bz then%>
                <tr>
                  <td height="25"><span class="style6"><strong>论坛超级管理员</strong></span></td>
                </tr>
                <%end if%>
                <tr>
                  <td height="25"><%shen=split(rs3("shenri"),"-")%>
                      <img src="/images/ico/
			<%	if shen(4)= "白羊座" then
			response.Write("01")
			end if
			if shen(4)= "水瓶座" then
			response.Write("02")
			end if
			if shen(4)= "双鱼座" then
			response.Write("03")
			end if
			if shen(4)= "摩羯座" then
			response.Write("04")
			end if
			if shen(4)= "金牛座" then
			response.Write("05")
			end if
			if shen(4)= "双子座" then
			response.Write("06")
			end if
			if shen(4)= "巨蟹座" then
			response.Write("07")
			end if
			if shen(4)= "狮子座" then
			response.Write("08")
			end if
			if shen(4)= "处女座" then
			response.Write("09")
			end if
			if shen(4)= "天秤座" then
			response.Write("10")
			end if
			if shen(4)= "天蝎座" then
			response.Write("11")
			end if
			if shen(4)= "射手座" then
			response.Write("12")
			end if
			
			
			
			%>.gif" alt="星座:<%=shen(4)%>" width="19" height="19">
                      <%set ujilu=conn.execute("select name from online where name='"&rs3("username")&"'")                                                                                      
if not ujilu.eof then
set yshy=server.CreateObject("adodb.recordset")
yshy.open"select username,name,url,id,cz from snsn_user where username='"&ujilu("name")&"'",conn,3,3%>
                      <%if yshy("cz")="1" then%>
                      <span class="style2">在线</span>
                      <%else%>
      隐身或离线
      <%end if%>
      <%else%>
      隐身或离线
      <%end if%>
      <span class="link_redblank"> </span></td>
                </tr>
                <tr>
                  <td height="25">等级：
                      <%set rsdj=conn.execute("select * from [snsn_zy] where dj="&rs3("dj")&"")%>
                      <%=rsdj("djname")%></td>
                </tr>
                <tr>
                  <td height="25">银两：<%=rs3("jifen")%></td>
                </tr>
                <tr>
                  <td height="25">最近：<%=FormatDate(rs3("logindate"),2)%></td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td><img src="img/v_3_3.gif" width="150" height="5"></td>
          </tr>
        </table>
        <table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
    </div></td>
    <td colspan="2" valign="top">&nbsp;</td>
    <td valign="top"><table border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><img src="img/v_b_1.gif" width="625" height="10"></td>
        </tr>
        <tr>
          <td background="img/v_b_2.gif">&nbsp;<span class="link_redblank"></span> <span class="link_redblank"><img src="../images//icon_comm3.gif" width="15" height="15"> <a href="/my/love/addfriend.asp?user=<%=rs("username")%>">加为好友</a> </span><span class="link_redblank"><img src="../images//icon_comm2.gif" width="13" height="15"> <a href="/my/getprice/sendnewmessage.asp?selected_friend_id=<%=rs("username")%>">发送信息</a> <img src="../images//icon_comm.gif" width="14" height="15"> <%=lj%>迷你主页 </a></span>&nbsp;<img src=img/time.gif> <%=rs("ldate")%>          <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="1" background="../images/bj_x.gif"></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td background="img/v_b_2.gif"><table width="600"  border="0" align="center" cellpadding="4" cellspacing="0">
            <tr>
              <td style="word-break:break-all;">
                  <%show=rs("body")
if rs("zshow")=1 then
response.write Plus_ChkPicWords(htmltotext(show))
else
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\[qq@*([0-9]*)\]"
show=re.Replace(show,"&nbsp;<img src=/web/QQ/gif/$1.gif border=0 alt='点击看我超酷表演' onmouseover=ShowQQ('$1'); style='cursor: hand;border:1px border-collapse: collapse; border-style: dotted;'>")
response.write show
end if
%></td>
            </tr>
            <tr  style="word-break:break-all;">
              <td  style="word-break:break-all;"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="1" background="../images/bj_x.gif"></td>
          </tr>
        </table>
                <img src="../images/shows.gif" width="45" height="32"><%=rs3("h_xxy")%></td>
            </tr>
            <tr  style="word-break:break-all;">
              <td  style="word-break:break-all;"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="1" background="../images/bj_x.gif"></td>
          </tr>
        </table><%									  
          url=""&weburl&"view.asp?id="&id&""
		  url1="view.asp?id="&id&""%>
                <a href="<%=url1%>"><%=url%></a><a href=javascript: onClick=clipboardData.setData('Text','<%=url%>') >复制</a> <a href=#replay class="style4">回复</a><span class="365ye">
                <%if session("user")=rs("username") or session("bbsbz")="yes" then%>
                <a href="bbs_save.asp?id=<%=rs("id")%>&bid=<%=id%>"> <span class="style2">编辑</span></a> </span> <a href="?action=del&id=<%=rs("id")%>&sid=<%=id%>&userid=<%=rs3("id")%>"> <span class="style2">删除</span></a>
                <%end if%></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td><img src="img/v_b_3.gif" width="625" height="10"></td>
        </tr>
        </table></td>
  </tr>
  <%RS.MoveNext
next
end if
%>
</table>
<TABLE width="100%" 
        border=0 align="center" cellPadding=4 cellSpacing=0>
  <TBODY>
    <TR>
      <TD class=M noWrap align=middle><%
					call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>",per_page)
				  %></TD>
    </TR>
  </TBODY>
</TABLE>
<%if session("user")<>"" then%>
<table cellspacing="1" cellpadding="2" width="410" border="0" class="a2" bgcolor="#FFFFFF" align="center">
  <tr background="img/xbj.gif" height="1">
    <td height="1" background="img/xbj.gif"></td>
  </tr>
  <form method="POST" action="?web_id=<%=bbshfid%>&action=reply&id=<%=id%>">
    <tr class="a1">
      <td><br>
          <b>　回复此内容帖</b><a name=#replay></a><b> ( 带 <font color="#FF0000">*</font> 为必填选项 )</b></td>
    </tr>
    <tr class="a4">
      <td>　姓名：&nbsp;
          <input name="username" type="text" class="wenbenkuang" id="username" value="<%=session("user")%>" size="21"  maxlength="8">
          <font color="#FF0000">*</font> </td>
    </tr>
    <tr class="a4">
      <td>　标题：&nbsp;
          <input name="title" type="text" class="wenbenkuang" value="回复：<%=retitle%>" size="34"  maxlength="25">
          <font color="#FF0000">*</font></td>
    </tr>
    <tr class="a3">
      <td>　内容：&nbsp;
          <textarea name="body" cols="52" rows="6" class="wenbenkuang" id="body"></textarea>
          <font color="#FF0000">*</font></td>
    </tr>
    <tr class="a4">
      <td align="center"><input name="B1" type="submit" class="go-wenbenkuang" value="确认发表">
        　　
          <input name="B2" type="reset" class="go-wenbenkuang" value="取消发送"></td>
    </tr>
  </form>
</table>
<%end if
end if
end if%>
<table width="90%" height="10"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table><!--#include file="../end.asp"-->
</body>
</html>