📄 primsg.asp
字号:
<!--#include file="conn.asp" -->
<%
bg_id=1
on_web=L_PRIMSG_onweb1
%>
<!--#include file="session.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../function/nextpage.ASP" -->
<head>
<SCRIPT src="../js/win_js.js"></SCRIPT>
<SCRIPT src="../js/alt.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=3 cellspacing=0>"
RESPONSE.WRITE "<tr><td bgcolor='"&tr_bg_color&"' width=291 align=center>"
RESPONSE.WRITE L_PRIMSG_TITLE
RESPONSE.WRITE "</td><td bgcolor='"&tr_bg_color&"' width=130>"
RESPONSE.WRITE "<center>"&L_PRIMSG_SENDER&"<center></td>"
RESPONSE.WRITE "<td bgcolor='"&tr_bg_color&"' width=167>"
RESPONSE.WRITE "<center>"&L_PRIMSG_TIME&"</center></td>"
RESPONSE.WRITE "<td bgcolor='"&tr_bg_color&"' width=53>"
RESPONSE.WRITE "<center>"&L_PRIMSG_DEL&"</center></td>"
RESPONSE.WRITE "</tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from primsg where primsguser='"&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 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") & "</a>"
if rs("primsgtype")=1 then
RESPONSE.WRITE "<img src="&img_path&"/new.gif boder=0>"
end if
RESPONSE.WRITE "</td><td width=130 align=center>"
%>
<a href="#" onClick="javascript:window.open('member.asp?id=<%=rs("primsgsender")%>','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%
RESPONSE.WRITE "</a>"&rs("primsgsender")&"</td><td align=center>"
RESPONSE.WRITE rs("primsgtime")
RESPONSE.WRITE "</center></td><td width=53><center><a href=primsgdel.asp?id="&rs("primsgid")&">"
RESPONSE.WRITE L_PRIMSG_DEL&"</tr>"
rs.movenext:if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
RESPONSE.WRITE "</td></tr></table>"
RESPONSE.WRITE "<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 "</td></tr></table>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -