📄 prim_cz.asp
字号:
<%
bg_id=1
%>
<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../function/nextpage.ASP" -->
<head>
<SCRIPT src="../js/win_js.js"></SCRIPT>
</HEAD>
<center>
<SCRIPT>SL_open(735,400);</SCRIPT>
<%
username=session_cookie_name
web_id="../language/"&l_id
web_id=web_id&"/USER_ADMIN.ASP"
call include(web_id)
RESPONSE.WRITE "<table width=99% bgcolor='"&tr_bg_color&"' border=1 cellpadding=0 cellspacing=0>"
RESPONSE.WRITE "<tr><td bgcolor='"&tr_bg_color&"' width=80><center>"
RESPONSE.WRITE L_PRIMSG_user&"<center></td><td bgcolor='"&tr_bg_color&"' width=167>"
RESPONSE.WRITE "<center>"&L_PRIMSG_TIME&"</center></td>"
RESPONSE.WRITE "<td bgcolor='"&tr_bg_color&"' width=291 align=center>"
RESPONSE.WRITE L_PRIMSG_TITLE& "</td><td bgcolor='"&tr_bg_color&"' width=70 align=center>"
RESPONSE.WRITE L_PRIMSG_off&"</center></td></tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from primsg where primsgsender='"&session_cookie_name&"'and g_id='"&session_cookie_gid&"' order by primsgtime desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize =primsg_page '每页记录条数
result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
page=request("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
if not rs.eof then
for i=1 to rs.PageSize
%>
<tr style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
<td width="130" align="center">
<a href="#" onClick="javascript:window.open('member.asp?id=<%=rs("primsguser")%>','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%=rs("primsguser")%></a></td>
<td width="167" align=center>
<%=rs("primsgtime")%>
</td>
<td style="padding-left: 10px; padding-right: 10px; padding-top: 1px" width="273">
<a href="#" onClick="javascript:window.open('primsg_open.asp?id=<%=rs("primsgid")%>','','width=395,height=220,left=300,top=200')"
title="<font color='#ff0000'><% p_text=trim(rs("primsgcontent")): RESPONSE.WRITE (mid(p_text,1,10))%>...</font>">
<%
if rs("re_primsg")=1 then
primsgimg="primsg_re_img.gif"
else
primsgimg="primsg_img.gif"
end if
RESPONSE.WRITE "<img src='"&web_background&"/"&primsgimg&"' border=0>"
RESPONSE.WRITE rs("primsgtitle")
RESPONSE.WRITE "</a></td><td width=70><center>"
if rs("primsgtype")=1 then
RESPONSE.WRITE L_PRIMSG_off1&"<a href=primsgdel.asp?id="&rs("primsgid")&"&z_id=1>"&L_PRIMSG_DEL&"</a>"
else
RESPONSE.WRITE L_PRIMSG_off2
end if
RESPONSE.WRITE "</td></tr>"
rs.movenext:if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
RESPONSE.WRITE "</table><SCRIPT>SL_close()</SCRIPT>"
RESPONSE.WRITE "<table width=100% bgcolor='"&tr_bg_color&"' border=1 cellpadding=3 cellspacing=0>"
RESPONSE.WRITE "<tr><td colspan=4 bgcolor='"&tr_bg_color&"' align=center>"
call LastNextPage(maxpage,page,result_num)
RESPONSE.WRITE "</table></body></html>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -