view.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

	 set rs=nothing
	 end sub
	sub ca
	 dim rowcount,i,fa
Set rs = Server.CreateObject("ADODB.recordset")
sql="select * from bbs2 where bbsid= "&bbsid&" order by date"
cur=request.form("cur")
if cur="" or cur=1 then
cur=1
fa=1
else
fa=(cur-1)*10
end if
rs.pagesize=9
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>本帖还没有回复</center>"
else
rs.absolutepage=cint(cur)
rowcount=0
do while not rs.eof and rowcount<rs.pagesize
fa=fa+1%>
<TABLE 
      style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all; BORDER-COLLAPSE: collapse" 
      cellSpacing=0 cellPadding=0 width="100%" border=1>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle width="25%" bgColor=#f9f8f2>
            <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 
            width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="99%" height=28><div align="center"><A href="../datum.asp?username=<%=rs("username")%>">
				  <FONT color=blue><B>
	  <%
	set rt=conn.execute ("select name,money,homepage,bbscount,userface,bbsjob,width,height,joindate from user where username = '"&rs("username")&"'")%>
	  <%=rt("name")%></B></FONT></A></div></TD></TR>
              <TR>
                <TD width="89%"><div align="center"><A href="../datum.asp?username=<%=rs("username")%>"><%=showuserpic(rt("userface"),rt("width"),rt("height"))%></A></div></TD></TR>
              <TR>
                <TD width="89%">
                <P 
                  style="MARGIN: 4px; LINE-HEIGHT: 120%">金钱：<%=rt("money")%>元<BR>帖数：<%=rt("bbscount")%><BR>职业：<%=rt("bbsjob")%><BR>注册：<%=rt("joindate")%></P></TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top width="75%" bgColor=#ffffff>
            <TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 
            cellPadding=0 width="100%" bgColor=#f9f8f2 border=0>
              <TBODY>
              <TR>
                <TD style="BORDER-BOTTOM: 1px solid" width="80%">
                  <P style="MARGIN: 4px">&nbsp;<A href="../datum.asp?username=<%=rs("username")%>"><IMG 
                  src="image/info.gif" border=0> 资 料</A> &nbsp; <a href="../mail.asp?type2=add&uer=<%=rs("username")%>"><IMG 
                  src="image/newmail.gif" border=0> 短 信 </A> &nbsp; <A 
                  title=访问作者主页 href="http://<%=rt("homepage")%>" target=_blank><IMG 
                  src="image/home.gif" border=0> 主 页</A> &nbsp; <A 
                  href="edit.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=edit&out=0&id=<%=rs("id")%>"><IMG 
                  src="image/edit.gif" border=0> 编 辑</A>  &nbsp; <A 
                  href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>&id=<%=rs("id")%>&type2=del2&usern=<%=rs("username")%>" onClick="return confirm('真的要删除？')"><IMG 
                  src="image/del.gif" border=0 >删除</A> </P></TD>
                <TD style="BORDER-BOTTOM: 1px solid" align=right width="20%">第 <%=""&fa&""%> 楼 </TD>
              </TR></TBODY></TABLE>
            <BLOCKQUOTE><IMG src="face/<%=rs("face")%>" border=0><%
		   content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
		   %>
           </BLOCKQUOTE></TD></TR>
        <TR>
          <TD align=middle width="25%" bgColor=#f9f8f2 height=28><IMG src="image/ip.gif" align=absMiddle 
            border=0>&nbsp; <FONT color=#799ae8>IP：<%=rs("ip")%></FONT></TD>
          <TD width="75%" bgColor=#f9f8f2>&nbsp;<IMG src="image/xie.gif" 
            border=0><%=rs("date")%></TD>

        </TR></TBODY></TABLE>
		<%rowcount=rowcount+1
				rs.movenext
      loop%> <TABLE 
      style="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-COLLAPSE: collapse" 
      cellSpacing=0 cellPadding=3 width="100%" background=image/lbg.gif 
      border=0>
        <TBODY>
       <tr><form name="form2" method="post" action=""><TD width="80%" align=left><font color="#000000">共<%=rs.recordcount%>个　 分<%=rs.pagecount%>页　　每页20条　当前页次：<%=cur%>/<%=rs.pagecount%></font>
    </span></td>
           <TD width="20%" align=left>转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
  <%for i = 1 to rs.pagecount%>              
    <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
    <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%></td>
       </form>
  </tr></TBODY></TABLE>
<%end if%></TD></TR></TBODY></TABLE>
<%end sub
  sub del
  set rr=conn.execute ("select * from bbs where bbsid="&bbsid&" and username='"&session("wzname")&"'")
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and rr.eof and Session("sitejob")<>3 then
	%>
                        你在找我的系统漏洞？如果找到请告诉我噢<br>
<a href='javascript:history.go(-1)'></a>
<%exit sub
end if
  set rs=conn.execute ("delete from bbs where bbsid = "&bbsid&"")
   set rs=conn.execute ("delete from bbs2 where bbsid = "&bbsid&"")
   rs.open "select * from user where username='"&usern&"'",conn,1,3
		rs("money")=rs("money")-7
		rs("bbscount")=rs("bbscount")-1
	Rs.Update
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbsbm where bmid="&bm&"",conn,1,3
		rs("count")=rs("count")-1
	Rs.Update
response.Write("删除成功！")
	Response.Write("<br>")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
	<a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>">返回<%=rs("bmname")%></A><br>
<%rs.close
	 set rs=nothing
end sub
sub del2
 set rr=conn.execute ("select * from bbs2 where id="&id&" and username='"&session("wzname")&"'")
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and rr.eof and Session("sitejob")<>3 then
	%>
                            你在找我的系统漏洞？<br>
						   如果找到请告诉我噢<br>
<a href='javascript:history.go(-1)'></a>
<%exit sub
end if
set rs=conn.execute ("delete from bbs2 where id = "&id&"")
rs.open "select * from user where username='"&usern&"'",conn,1,3
		rs("money")=rs("money")-3
		rs("bbscount")=rs("bbscount")-1
	Rs.Update
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbsbm where bmid="&bm&"",conn,1,3
		rs("count")=rs("count")-1
	Rs.Update
	response.Write("删除成功！")
		Response.Write("<br>")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
	<a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>">返回<%=rs("bmname")%></A><br>
<a href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>">返回刚才的帖子</a>
<%rs.close
	 set rs=nothing
end sub
  sub good
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and Session("sitejob")<>3 then
	%>
                        用不着这样虚荣吧，有本事发个好帖子出来让管理员来帮你做这些事<br>
<%exit sub
end if
  if df=1 then  
  set rs=conn.execute ("update bbs set good=1 where bbsid = "&bbsid&"")
rs.open "select * from user where username='"&usern&"'",conn,1,3
		rs("money")=rs("money")+2
	Rs.Update
  else
   set rs=conn.execute ("update bbs set good=0 where bbsid = "&bbsid&"")
	rs.open "select * from user where username='"&usern&"'",conn,1,3
		rs("money")=rs("money")-2
	Rs.Update
   end if
  response.Write("操作成功！")
  		Response.Write("<br>")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
  <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>">返回<%=rs("bmname")%></A><br>
<a href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>">返回刚才的帖子</a>
  <%end sub
  sub top
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and Session("sitejob")<>3 then
	%>你的权限不够<br>
  <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>">返回<%=rs("bmname")%></A><br>
<a href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>">返回刚才的帖子</a>
<%exit sub
end if
  set rw=server.createobject("adodb.recordset")
sql="select * from bbs where bbsid = "&bbsid&""
rw.open sql,conn,1,3
 rw("top")=df
 rw.update
   response.Write("操作成功！")
   Response.Write("<br>")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
  <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>">返回<%=rs("bmname")%></A><br>
<a href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>">返回刚才的帖子</a>
  <%
	rw.close
  end sub
  sub savehf
   dim content
If session("wzname")="" Then%>
<font color=red>你可能长时间没有活动，已经掉了，请重新登录吧</font>
 <%exit sub
 End If
  face=request.form("face")
  content=request.form("content")
	if content="" then
		Response.Write("这么害羞，有什么话就说吧，别空着")
		Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color='#FF0000'>回头是岸</font></a>")
	exit sub
	end if
  set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbs2 where 1=2",conn,1,3
Rs.addnew()
rs("bbsid")=bbsid
		rs("content")=content
		rs("username")=Session("wzname")
		rs("face")=face
		rs("ip")=Request.ServerVariables("REMOTE_ADDR")
		rs("date")=now()
	Rs.Update
	rs.close
	rs.open "select * from bbs where bbsid="&bbsid&"",conn,1,3
		rs("lastuser")=Session("wzname")
		rs("lastdate")=now()
		rs("hf")=rs("hf")+1
	Rs.Update
	rs.close
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from user where username='"&Session("wzname")&"'",conn,1,3
		rs("bbscount")=rs("bbscount")+1
		rs("money")=rs("money")+2
	Rs.Update
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbsbm where bmid="&bm&"",conn,1,3
		rs("count")=rs("count")+1
	Rs.Update
	Response.Write("<br>")
	response.Write("操作成功")
	Response.Write("<br>")
	set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
	<a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><%=rs("bmname")%></A><br>
	<A href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>"> 返回刚才发布的帖子</A>
<%end sub%>
</center>
<!--#include file="../bottom.asp" -->
</BODY></HTML>