📄 wap_article.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%
ArticleID=Request.QueryString("ID")
If ArticleID="" Then ArticleID=0
set Rs=server.createobject("adodb.recordset")
Rs.open "select * from Article where ArticleID="&ArticleID&"",Conn,1,1
If Rs.eof And Rs.bof Then
ArticleName="文件未找到..."
Content="内容为空。<br/>"
Else
ArticleID=Rs("ArticleID")
ArticleName=Rs("ArticleName")
Content=Wap.HTMLCode(Rs("Content"))
End If
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?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="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="<%=ArticleName%>">
<p>
<%
MMText = Replace(Content,"[/page]"," [/page] ")
MMfText = Split(MMText,"[/page]")
ContentNum = UBound(MMfText)
Page = Clng(Request("Page"))
If Page < 1 Then Page = 1
If Page > ContentNum + 1 Then Page = ContentNum + 1
For i=Page to Page
Response.Write MMfText(i-1)
Next
If Cint(ContentNum) > 0 then
If Page <> 1 then
Response.Write "<br/><a href=""Wap_Article.asp?id="&ArticleID&"&Page="&Page-1&""">[上一页]</a> "
End if
If Page <> ContentNum + 1 then
Response.Write "<a href=""Wap_Article.asp?id="&ArticleID&"&Page="&Page+1&""">[下一页]</a> "
End if
Response.Write "<br /> <input name=""pagenum"" format=""*N"" emptyok=""true"" size=""3"" type=""text"" value=""" & (Page+1) & """ title=""请输入页码"" maxlength=""9""/>"
Response.Write "<anchor><go href=""Wap_Article.asp?id="&ArticleID&"&"" method=""post""><postfield name=""page"" value=""$(pagenum)""/></go>[转到该页]</anchor><br/>"
Response.Write "第"&Page&"页,共"&ContentNum+1&"页"
Response.Write "<br/>"
End if
%>
--------<br/>
<a href="index.asp"><%=ChannelName%></a><br/>
<%
Rem 显示整合后的返回首页
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首页</a><br/>"
Rem 读取网站底部开始
Response.write Wap.DefineContents("9")
Rem 显示网站访问
Response.write Wap.Online()
set wap=nothing
%>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -