📄 message.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<%response.buffer=true%><% Response.ContentType="text/vnd.wap.wml" %>
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id="card1" title="<%=String(2-Len(hour(time)),"0") & hour(time) %>:<%=String(2-len(minute(time)),"0") & minute(time)%>最新公告"><p>

<%
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  conn.CommandTimeOut = 999
if session("union") = mywaphost then
  ssql="select * from message order by msgtime desc "
  else 
  ssql="select * from message where IsViewMsg=true order by msgtime desc "
end if  
  objgbrs.open ssql,conn,1,1
 objgbrs.PageSize=myunionpagesize
  page=CLng(Request("page"))
 if page<1 then
    page=1
  End if
 if page>objgbrs.pagecount then
    page=objgbrs.pagecount
  End if
if objgbrs.eof then
   Response.write ""
%>
公告<br/>
=*=*=*=<br/>
本站导航系统特色：<br/>
1、自动按最后链入本站链接动态排列站点；<br/>
2、自动识别移动IP，屏蔽所有模拟器；<br/>
3、自动追踪非法访问的手机UA信息；<br/>
4、自动隐藏超过7天没有链入的站点；<br/>
<%
Else
 objgbrs.absolutepage=page
   if page=1 then
     bihao=0
    else
     bihao=page*myunionpagesize-myunionpagesize
   End if
For i=1 to objgbrs.PageSize
    id=objgbrs("msgid")
  bihaocont=bihaocont+1

if objgbrs("IsViewMsg")=true then
  Response.write ""& bihao+bihaocont & "." & "<a href='msgview.asp?id=" & objgbrs("msgid") & "'>" & objgbrs("msgtitle") &"</a> " 
  else 
  Response.write ""& bihao+bihaocont & "." & objgbrs("msgtitle") & "  <a href='msgview.asp?id=" & objgbrs("msgid") & "'>查阅</a> " 
end if
  
 if Session("union")=mywaphost then
Response.write "&nbsp;&nbsp;<a href='/you/admin/msg_edit.asp?id=" & objgbrs("msgid") &  "&amp;desc=" & desctmp & "'>编辑</a><br/>"
else
Response.write "<br/>" 
End if

    objgbrs.Movenext
  if objgbrs.EOF then Exit for
    Next
    response.write "－－－－－<br/>"
If Page<objgbrs.PageCount then
    Response.Write "<a href='siteslist.asp?page=" & (page+1) & "'>下页</a>"
End if
If page>1 then
    Response.Write "&nbsp;<a href='siteslist.asp?page=" & (page-1) & "'>上页</a>"
End if
'response.write "<br/>" &  Page & "/" & objgbrs.PageCount & "" '& "共" & objgbrs.RecordCount & "个"
'if objgbrs.PageCount>1 then
'response.write "到<input name='page' title='输入页码' type='text' format='*N' emptyok='true' size='2' maxlength='3' value='"&(page+1)&"' />页<a href='siteslist.asp?page=$(page)'>GO</a>"
'response.write "<br/>" & tip
'End if
End if
if Session("union")=mywaphost then
Response.write "<a href='/you/admin/msg_add.asp'>添加公告</a><br/>"
end if
Response.write "<br/><a href='"& mywaphome &"'>" &mywapname&"</a>"
Response.write "<br/><b>"& mywaphost &" </b>"
Response.write "<br/>" & mywapcatchword & "</p></card></wml>"

objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -