bg_id=1
on_web=L_PRIMSG_onweb1
%>
SL_open(735,400);
username=session_cookie_name
web_id="../language/"&l_id
web_id=web_id&"/USER_ADMIN.ASP"
call include(web_id)
RESPONSE.WRITE ""
RESPONSE.WRITE ""
RESPONSE.WRITE L_PRIMSG_TITLE
RESPONSE.WRITE ""
RESPONSE.WRITE ""&L_PRIMSG_SENDER&""
RESPONSE.WRITE ""
RESPONSE.WRITE ""&L_PRIMSG_TIME&""
RESPONSE.WRITE ""
RESPONSE.WRITE ""&L_PRIMSG_DEL&""
RESPONSE.WRITE ""
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 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
%>
title="
response.write (mid(p_text,1,10))
%>...">
if rs("re_primsg")=1 then
primsgimg="primsg_re_img.gif"
else
primsgimg="primsg_img.gif"
end if
RESPONSE.WRITE ""
RESPONSE.WRITE rs("primsgtitle") & ""
if rs("primsgtype")=1 then
RESPONSE.WRITE ""
end if
RESPONSE.WRITE ""
%>
RESPONSE.WRITE ""&rs("primsgsender")&""
RESPONSE.WRITE rs("primsgtime")
RESPONSE.WRITE ""
RESPONSE.WRITE L_PRIMSG_DEL&""
rs.movenext:if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
RESPONSE.WRITE ""
RESPONSE.WRITE "SL_close()"
RESPONSE.WRITE ""
RESPONSE.WRITE ""
call LastNextPage(maxpage,page,result_num)
RESPONSE.WRITE ""
%>
