class_member.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../templet/top.asp" -->
<!--#include file="../function/nextpage.asp" -->
<!--#include file="../function/function.asp" -->
<%
web_id="../language/"&l_id
web_id=web_id&"/USER_INFO.ASP"
call include(web_id)

on_web=L_CLASS_MEMBER
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM [user] where g_id='"&session_cookie_gid&"'"

rs.open sql,conn,1,1
if not rs.eof then
    rs.PageSize =user_page '每页记录条数
    
	result_num=rs.RecordCount '记录总数

	maxpage=rs.PageCount 
	page=request("page")
	s=(page-1)*user_page
	
	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

	else
	result_num=0
	maxpage=0
	page=0
end if
      

              RESPONSE.WRITE "<table border=0 cellpadding=0 cellspacing=0 width=100% >"
              RESPONSE.WRITE "<tr>"
              RESPONSE.WRITE "<td>"
              RESPONSE.WRITE "</div>"
              RESPONSE.WRITE "<div align=center>"                         
y=L_CLASS_MEMBER
call Mon(y)
              RESPONSE.WRITE "<tr>"
              RESPONSE.WRITE "<td align=center colspan=6>"
              RESPONSE.WRITE "<table border=1 width=100% bgcolor='"&top_bg_color&"' bordercolor='"&top_borderbg_color&"'>"
              RESPONSE.WRITE "<tr>"
              RESPONSE.WRITE "<td bgcolor='"& tr_bg_color &"' align=center>"
              RESPONSE.WRITE L_CLASS_ROW
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=10% bgcolor='"& tr_bg_color &"' align=center>"
              RESPONSE.WRITE L_USER_USERNAME
              RESPONSE.WRITE "</td>"
      
              RESPONSE.WRITE "<td width=18% bgcolor='"& tr_bg_color &"' align=center>"
              RESPONSE.WRITE L_USER_NETNAME   
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=4% bgcolor='"& tr_bg_color &"' align=center>"
              RESPONSE.WRITE L_USER_USERWEB     
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=1 bgcolor='"&tr_bg_color&"' align=center>"
              RESPONSE.WRITE L_USER_MAIL
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=13% bgcolor='"&tr_bg_color&"' align=center>"
              RESPONSE.WRITE L_USER_OICQ
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=12% bgcolor='"&tr_bg_color&"' align=center>"
              RESPONSE.WRITE L_USER_GROUP
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=8% bgcolor='"&tr_bg_color&"' align=center>"
 	      RESPONSE.WRITE L_USER_MONEY
              RESPONSE.WRITE "</td>"
              RESPONSE.WRITE "<td width=8% bgcolor='"&tr_bg_color&"' align=center>"
              RESPONSE.WRITE L_USER_LOGIN&"</td>"
              RESPONSE.WRITE "<td bgcolor='"&tr_bg_color&"' align=center>"
              RESPONSE.WRITE L_USER_TIME&"</td>"
              RESPONSE.WRITE "</tr>"
 
s=(page-1)*user_page
if not rs.eof then                                                                            
for i=1 to rs.PageSize 
addtime=year(rs("logtime"))&"/"&month(rs("logtime"))&"/"&day(rs("logtime"))& vbCrLf &hour(rs("logtime"))&":"&minute(rs("logtime"))&":"&second(rs("logtime"))
s=s+1
 %>
<tr style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
   
 <td >
<img src="<%=web_background%>/rigth1.gif"><%=s%></td>
 <td>
<a href="#" title="
<%
      RESPONSE.WRITE "<font color=#ff0000>"& L_USER_USERNAME &":"& rs("username") &"<br>"
      RESPONSE.WRITE L_USER_USERGROUP &":"& rs("usergroup") &"<br>"
      RESPONSE.WRITE L_USER_IP& ":"& rs("ip") &"<br>"
      RESPONSE.WRITE L_USER_webonline &":"&rs("on_web")&"<br>"
      RESPONSE.WRITE L_USER_TIME &":("& rs("logtime") &")</font>"
%>
  " onClick="javascript:window.open('member.asp?id=<%=rs("username")%> ','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%
sex_i=rs("sex")
sex_f(sex_i)
      RESPONSE.WRITE rs("username")
      RESPONSE.WRITE "</a></td></td><td align=center>"&rs("realname")
      RESPONSE.WRITE "</td><td align=center><a target='_blank' href="&rs("website")&">"
      RESPONSE.WRITE "<img src="&img_path&"/home.gif border=0></a><td align=center>"
%>
<a href="#" onClick="javascript:window.open('send_mail.asp?mail_id=<%=rs("email")%> ','','width=395,height=300,left=300,top=200')">

<%
      RESPONSE.WRITE "<IMG src="&img_path&"/email.gif border=0/></a></td><td align=center>"
      RESPONSE.WRITE "<a target=_blank href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="& rs("oicq") &">"
      RESPONSE.WRITE "<IMG src="&img_path&"/oicq.gif border=0>"&rs("oicq")
      RESPONSE.WRITE "</a></td><td align=center>" 
user_group_inof=CINT(rs("usergroup")) 
       f_id=1
call user_group_f(user_group_inof,f_id) 
      RESPONSE.WRITE "</td><td align=center><img src="&img_path&"/money.gif border=0>"&rs("momey") 
      RESPONSE.WRITE "</td><td align=center>" 
logno_a=rs("logno") 
logno_inof_f(logno_a) 
      RESPONSE.WRITE "</td><td alig=center>"&addtime&"</td></tr>"
rs.movenext:if rs.EOF then Exit For 
next 
end if
      RESPONSE.WRITE "</table><table><tr><td><centre>" 
call LastNextPage(maxpage,page,result_num)  
      RESPONSE.WRITE(mon_foot) 
%> 
</centre>                            
</td> 
<table border='0' height='1' cellspacing='0' cellpadding='0'><tr><td> </td></tr></table>
<!--#include file="../templet/foot.asp" -->