编辑器/阅读器

开发平台：

C#

wap.asp：源码内容

							﻿<!-- #include file="INCLUDE/head.asp" -->
<%dbcate="/"%>
<!-- #include file="INCLUDE/conn.ASP" -->
<!-- #include file="INCLUDE/function_wap.asp" -->
<% Response.ContentType = "text/vnd.wap.wml"%>
<?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 forua="true" http-equiv="Cache-Control" content="max-age=0" /></head>
<card title="<%=TU(XNA_Title)%>">
<p><a href="wap.asp"><%=TU(XNA_Title)%></a>
<br />
<%Public intPageCount:Const TFolder="WAP":Application.Lock:Application(SessionStr&"TFolder")=TFolder:Application.Unlock%>
<%
If isempty(Request.QueryString("List")) and isempty(Request.QueryString("page")) and isempty(Request.QueryString("cate")) and isempty(Request.QueryString("site")) then
  Call main
Else
  Call Articlemain
End If
%>
<%sub main%>
<%=ExportStatistics()%>
<br/>
<%=ExportCatelog()%>
<br/>
<%End Sub%>
<%Sub Articlemain%>
<%=Export(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("site"),Request.QueryString("date"),Request.QueryString("tags"),2)%>
<!--这里开始输出页码条，以下内容不要更改-->
<%=ExportBar(Request.QueryString("page"),intPageCount,Request.QueryString("cate"),Request.QueryString("site"),Request.QueryString("date"),Request.QueryString("tags"))%>
<!--这里结束输出页码条，以上内容不要更改-->
<%end Sub%>
<br /> Power by <a href="http://www.sxna.cn">SXNA <%=SXNAVersion%></a>
</p>
</card>
</wml>
<%
Function TU(Data)
	For i = 1 To Len(Data)
	unicode = unicode & chr(38) & chr(35) & chr(120) & Hex(Ascw(Mid(Data,i,1))) & chr(59)
	Next
	TU = unicode
End Function
%>

						