right.asp

不是我做的一个留言板

<!--
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'        请保留此信息 
计8工作窒制作 http://j8pc.126.com/  
'
'海军第一职业技术学校 J8工作室
' 作者：陈峰
' 网名：浪の小石 ,湛江.小浪石
' QQ:1972717   
'email:[e-mail]
'
'''''''''''''''''''''''''''''''''''''''''''''''''
-->

<center>
<%
web_id="../language/"&l_id
web_id=web_id&"/left_right.asp"
call include(web_id)
call mon_rigth_a(x)
        RESPONSE.WRITE "<tr align=center><td nowrap width=153>"
        RESPONSE.WRITE "<table border=0 align=center cellpadding=0 width=100% ><tr><td colspan=2 width=100% >"
        RESPONSE.WRITE "<center><b>"&l_right_info&"</b></center></td></tr><tr><td width=93>"
        RESPONSE.WRITE l_right_name&":"&session_cookie_name
        RESPONSE.WRITE "</td><td width=29 rowspan=2 align=center><img border=0 src="&fice_inof&"></td>"
        RESPONSE.WRITE "</tr><tr><td width=93>"&l_right_netname&":"&realname_inof
        RESPONSE.WRITE "</td></tr><tr><td colspan=2 width=116>"&l_right_zw&":<font color=ff0000>"&zw_inof
        RESPONSE.WRITE "</font></td> </tr> <tr><td colspan=2 width=116>"&l_right_group&":"
user_group_inof=session_cookie_group
call user_group_f(user_group_inof,1)
        RESPONSE.WRITE "</td></tr><tr><td colspan=2 width=116>"&l_right_momey&":"
        RESPONSE.WRITE "<img src="&img_path&"/money.gif><font color=ff0000>"&momey_inof	
        RESPONSE.WRITE "</font></td></tr><tr><td colspan=2 width=116>"&l_right_log&":"
logno_a=logno_inof
logno_inof_f(logno_a)
        RESPONSE.WRITE"</td></tr><tr><td colspan=2>"&l_right_ip&"<font color=ff0000>"&ip_inof
	RESPONSE.WRITE "</font></td></tr><form method=post action=../main/uplang.asp>"
	RESPONSE.WRITE"<tr><td colspan=2>" &l_right_language& ":<font color=ff0000>"
	RESPONSE.WRITE "<select name=lang>"
        RESPONSE.WRITE "<option value=china>"&l_right_lang1&"</option>"
	RESPONSE.WRITE "<option value=en>"&l_right_lang3&"</option>"
        RESPONSE.WRITE "</select>"
	RESPONSE.WRITE "<input type=image src="&img_path&"/play1.gif width=16></font></td></tr></form>"
        RESPONSE.WRITE(monrigth)     
        RESPONSE.WRITE"<table border='0'WHEITH=1000% cellspacing='0' cellpadding='0'><tr><td> </td></tr></table>"
call mon_rigth_a(x)  
       %>

<td width="40%" nowrap height='165' VALIGN='TOP' align=center>
<table height="1" BORDER='0'>
<tr>
<td height="1" align=center VALIGN='TOP' colspan='2'>
  :::<%=l_right_login1%>:::
</td>
</tr>
<%
	set new_logon_rs=server.CreateObject("adodb.recordset")
	m_sql="SELECT username,logno FROM [user] where g_id='"&session_cookie_gid&"' order by int(logno) desc"
	new_logon_rs.open m_sql,conn,1,1
	new_i=new_logon_rs.RecordCount

if new_i>7 then
new_i=8
end if
money_i=0
do while  money_i<new_i
money_i=money_i+1
%>
<tr>
<td>
<a href="#"
onClick="javascript:window.open('member.asp?id=<%=new_logon_rs("username")%> ','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">

<%
response.write new_logon_rs("username")
response.write "</a></td><td>"
logno=new_logon_rs("logno") 
logno_inof_f(logno) 
response.write "</td></tr>"
new_logon_rs.movenext
loop
new_logon_rs.close
%> 


<%
        RESPONSE.WRITE "</TD></TR></TABLE></TABLE>"
	RESPONSE.WRITE "<table border='0' height='1' cellspacing='0' cellpadding='0'><tr><td> </td></tr></table>"
call mon_rigth_a(x)   
%>
<tr align="center">   

<td width="160" nowrap>   
         <SCRIPT>SL_open(144,175);</SCRIPT>  
<table border="0" align="center" cellpadding="2">   
         
<% 
   dim strmonth   
   strmonth=month(date)   
   set rs5=conn.execute("select userid,username,birthday from [user] where month(birthday)='"&strmonth&"' and g_id='"&session_cookie_gid&"' order by birthday")   
							
  if not rs5.eof then			   
	RESPONSE.WRITE "<tr><td ALGIN=CENTER><font color=ff0000>"& l_right_birthday&"</font></td></tr>"   
Do While NOT rs5.EOF   
	RESPONSE.WRITE "<tr><td>"
%>   
<a href="#" onClick="javascript:window.open('member.asp?id=<%=rs5("username")%>','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')"> 
  
<%
	RESPONSE.WRITE rs5("username")&"</a>:"&month(rs5("birthday"))&l_right_month&day(rs5("birthday"))&l_right_date
	RESPONSE.WRITE "<img src="&img_path&"/birthday.gif></td></tr>"
rs5.MoveNext   
Loop
	RESPONSE.WRITE "<tr><td><p align=right>"&l_right_hap&"</td></tr>"
else   
	RESPONSE.WRITE "<tr><td>"&l_right_NOHap&"</TD></TR>"  
end if   
rs5.close   
set rs5=nothing
        RESPONSE.WRITE "</table><SCRIPT>SL_close()</SCRIPT></TD></TR></table></center>"
%>