WAP_紧急事件查询系统_初稿

基本初稿已经完成，界面预览：

配置文件源代码如下：

WapConfig.asp

 

<%
'设置网站信息。
Wap.SiteName="紧急事件查询系统::.."            '设置网站的名称。
Wap.SiteTitle="紧急事件查询系统::.."            '设置IE浏览时网站的标题。
Wap.SiteWebUrl=""        '网站WEB地址
Wap.SiteWapUrl=""        '网站WAP地址
Wap.SiteLogo="Images/JCTJ.png"            '设置首页的LOGO图片。

PAlign="left"                        '默认对齐方式Left
WrapMode="wrap"                    '当一行无法显示时，是否换行。
'设置默认数据库的路径。
Wap.MdbPath="MyDatabase/#System.mdb"
TextLong="500"                    '每页字数
'设置系统关于联系信息
CompanyPhone="137********"
CompanyEmail="rdfedcwg@163.com"
CompanyInfo="WAP_紧急事件查询系统。版权所有，违者必究 CopyRight(2006)"
'以下为发邮件的信息设置。
Wap.MailServerUserName="rdfedcwg@163.com"
Wap.MailServerPassword=""
Wap.MailSmtp="smtp.163.com"
Wap.MailSiteName="..::紧急事件查询系统::.."
Wap.MailResultFileName="Success.asp"
'以下为系统注册序列号。

'设置简体繁体
Wap.ChineseType="Simple"            '设置语言简繁体中文，简体:Simple ，繁体:Complex
%>

 

 

WapHeader.asp

 

 <%
Set Wap=Server.CreateObject("QWAP.WAP2005")
%>
<!--#Include File="WapConfig.asp"-->
<%
Wap.PutFileType("utf-8")
Wap.PutPageHeader "no-cache",True
'以下为文件正文。

Wap.WriteOut Wap.Card("FirstCard",Wap.SiteName,PAlign,WrapMode,False,True)
%>

 

WapFooter.asp

 

 <%
Wap.writerow "********************"
Response.Write Wap.Ascii("欢迎您光临！^0^") & "<br/>"
Response.Write Wap.Ascii("今天是:") & Date() & "<br/>" & Wap.Ascii("现在时刻:") & Time() & "<br/>"

Wap.WriteRow "在线人数:" & Application("OnLine") & "人"
%>

<%
Wap.Writeout Wap.DoPrev("prev", "返回", "ToBack")
wap.writeout "                        "
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "首页")

Wap.PutPageFooter
Set Wap=NoThing

%>