📄 lgbook.asp

📁 自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

💻 ASP

字号:

<!--#include file="tra.asp"-->
<!--#include file="cconst.asp"-->
<!--#include file="conn.asp"-->
<% 
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"%>
<%
Function HtmlUNEncode(str)
	dim tempstr
	tempstr=str
    If Trim(tempstr)="" Or IsNull(tempstr) Then Exit Function
		tempstr=Replace(tempstr,"<br>",Chr(10))
 		tempstr=Replace(tempstr,"<p></p>",Chr(10) & Chr(10) )
 		tempstr=Replace(tempstr,"",Chr(13))
 		tempstr=Replace(tempstr,"&#39;",Chr(39))
 		tempstr=Replace(tempstr,"&quot;",Chr(34))  
  		tempstr=Replace(tempstr,"&nbsp;",Chr(9))
 		tempstr=Replace(tempstr,"&nbsp;",Chr(32))
 '		tempstr=Replace(tempstr,"&lt;","<") 
 '		tempstr=Replace(tempstr,"&gt;",">")
 for pic=1 to 14
if len(cstr(pic))=1 then 
pic2="0"&cstr(pic)
else 
pic2=cstr(pic)
end if

tempstr=Replace(tempstr,"[em"&pic2&"]","<img src='../images/UBBicon/em"&pic2&".gif' alt='em"&pic2&"'/>")
 next
 		
HtmlUNEncode=tempstr
End Function
%>
<?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"/></head>
<card id="&#x67E5;&#x770B;&#x7559;&#x8A00;" title="<%=tra(clgb)%>">
<%
dim i,discnt,startpos
if session("name")="" then 
response.redirect("error.asp")
end if 
startpos=cint(request.querystring("page"))
if startpos<=0 then 
startpos=1
end if
set rs=server.createobject("adodb.recordset")
rs.pagesize=3
rs.open "select ec.*,forum.* from ec,forum where ec.studentid=forum.studentid order by forum.id desc",conn,1,1
if startpos > rs.PageCount then 
startpos=rs.PageCount
end if
rs.AbsolutePage=startpos
for ipage=1 to rs.pagesize 
data=rs("pubtime")
content=rs("content")
sname=rs("sname")
%>
<p><%=tra(cgbookdate)%><br/><%=data%></p>
<p><%=tra(cgbookname)%><br/><%=HtmlUNEncode(sname)%></p>
<p><%=tra(cgbookcontent)%><br/><%=HtmlUNEncode(content)%></p>
<p>------</p>
<%
rs.movenext
if rs.eof then exit for
next		
%>
<% startpos=startpos+1
if (not rs.eof) then 
txt="'lgbook.asp?page="&cstr(startpos)&"'"
%>
<p><a href=<%=txt%>><%=tra(cnext)%></a></p>
<p><%=tra(cgoto)%><input name="goto" title="goto" value="0" format="*N"/><%=startpos-1%>/<%=rs.pagecount%>&#x9875;</p>
<p>
<anchor title="gotopage">Goto
<go href="lgbook.asp" method="get">
<postfield name="page" value="$(goto)"/>
</go>
</anchor>
</p>
<p><a href="gbook.asp"><%=tra(cback)%></a></p>
<%
else 
response.write("<p align='center'>"&tra(cend)&"</p>")
response.write("<p align='center'><anchor title='Back'>"&tra(cback)&"<go href='gbook.asp'/></anchor></p>")
end if 
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -