QuickWAP建站指南[摘选]

QuickWAP建站指南

一.规划网站目录，
　　　 直接在您的域名下建立文件夹，文件名随意。例如如下所示：

一级目录文件名	二级目录文件名	作用说明
WebContent		用于存放WEB站点的文件夹，可以为整个网站。
WapContent	Index.asp SiteNewList.asp SiteNewShow.asp	用于存放所有WAP代码的文件夹。
WapConfig	WapConfig.asp WapHeader.asp WapFooter.asp	用于存放WAP站点的配置文件。
MyDataBase	#VisitCount.mdb	用于存放Access数据库等。
Images	hotup.png IndexImage.PNG logo.PNG Dotlist.png nextpage.png prepage.png help.png	用于存放网站用到的图片等。
Index.asp		用于判断终端浏览器的文件，并根据其类型转到引导用户到WapContent或WebContent。
Admin		用于管理WAP站点的WAP或WEB页面。

二、文件实现

1.配置文件的代码。
有关函数请参考QuickWAP V1.0免费版和精简版

WapConfig.asp代码如下：

<%
'以下为一些图片的初始化设置
Wap.NextPage = "../images\NextPage.Png"
Wap.PrePage = "../images\PrePage.Png"
Wap.IndexImage = "../images/Dotlist.png"
'Wap.IsShowImage=False '默认为显示。设为不显示。
%>
<%
Public Sub WriteOut(ByVal Content)
On Error Resume Next
Response.Write Content
End Sub
%>

WapHeader.asp代码如下：

<%
Set Wap= Server.CreateObject("QuickWap.WapNetSdk")
Wap.PutFileType("utf-8")
Wap.PutPageHeader("no-cache")
'以下为文件头设计
Wap.WriteOut Wap.Card("FirstCard","中国被爱可以在线","left","wrap","false",True,"")
%>

WapFooter.asp代码如下：

<%
If Lcase(Wap.FileName)<>Lcase("Index.asp") Then
Wap.WriteRow Wap.ImgA("","index.asp","栏目首页")
Else
Wap.WriteRow "在线人数:" & Application("OnLine") & "人"
Wap.WriteRow "bicyle.org Copyright 2005"
End If
Wap.WriteRow Wap.BackFooter("options","回首页","index.asp")
Wap.WriteRow Wap.DoPrev("accept", "后退", "Prev", "false")
Wap.PutPageFooter
set Wap=NoThing
%>

2.新闻模块的实现

文件组成：SiteNewList.asp、SiteNewShow.asp

SiteNewList.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.WriteOut Wap.P("left","nowrap") Wap.Mdb_Path="../MyDatabase/#SiteNew.mdb" Wap.Mdb_StrSql="Select Id,Title from SiteNew Order By DateTime desc" 'Wap.Mdb_EveryPageSize=10 'Wap.Mdb_FieldShow="Title" 'Wap.Mdb_FieldId="Id" Wap.Mdb_GoFileName="SiteNewShow.asp" Wap.Mdb_IsShowImage=False 'Wap.Mdb_ErrorPapePath="" Wap.MdbList() '以下为返回链接等 WriteOut Wap.ImgA("","index.asp","返回上级") & "<br/>" %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

SiteNewShow.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.Mdb_Path="../MyDatabase/#SiteNew.mdb" Dim ListKey : ListKey=Request.QueryString("ListId") If ListKey="" Then ListKey= Session("FindId") Wap.Mdb_StrSql="Select * From SiteNew Where Id =" & ListKey ShowContent=Wap.MdbShow("Content") ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "来源:" & Wap.MdbShow("FromSite") & "<br/>-----<br/>" & Wap.DelSpecialMark(ShowContent) Wap.MorePage(ShowContent) '以下为返回链接等 Wap.WriteRow Wap.ImgA("","SiteNewList.asp?Page=" & Session("MyPage"),"返回上级") %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

新闻模块的数据库设计，表名SiteNew：

3.发表文章模块实现
比较典型的一种应用 ，例如数据库列表中含有含有前缀或后缀，并实现反转排序的效果。

文件组成：FreeWordList.asp、FreeWordShow.asp、FreeWordRandom.asp

FreeWordList.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.WriteOut Wap.P("left","nowrap") Wap.Mdb_Path="../MyDatabase/#FreeWord.mdb" Wap.Mdb_StrSql="Select Id,Title,PersonName From FreeWord order by DateTime desc" 'Wap.Mdb_EveryPageSize=10 'Wap.Mdb_FieldShow="Title" Wap.Mdb_FieldHeader="PersonName" 'Wap.Mdb_FieldFooter="Id" 'Wap.Mdb_FieldId="Id" Wap.Mdb_GoFileName="FreeWordShow.asp" Wap.Mdb_IsShowImage=False 'Wap.Mdb_ErrorPapePath="" Wap.MdbList() '以下为返回链接等 Wap.WriteRow Wap.ImgA("","index.asp","返回上级") %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

FreeWordShow.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.Mdb_Path="../MyDatabase/#FreeWord.mdb" Dim ListKey : ListKey=Request.QueryString("ListId") If ListKey="" Then ListKey= Session("FindId") Wap.Mdb_StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ListKey ShowContent=Wap.MdbShow("Content") ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "发表人:" & Wap.MdbShow("PersonName") & "<br/>" & Wap.DelSpecialMark(ShowContent) Wap.WriteOut Wap.MorePage(ShowContent,False) '以下为返回链接等 Wap.WriteOut Wap.ImgA("","FreeWordList.asp?Page=" & Session("MyPage"),"返回上级") & "<br/>" %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

FreeWordRandom.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文，利用ASP函数的部分。 ToShowPage=Trim(Request.QueryString("ToShowPage")) If ToShowPage<>"" Then Session("ToShowPage")=ToShowPage Else ToShowPage=Session("ToShowPage") If Session("ToShowPage")="" Then ToShowPage=1 End If End If '以下是数据库的设置信息 Wap.Mdb_Path="../MyDatabase/#FreeWord.mdb" Wap.Mdb_StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ToShowPage Wap.Mdb_EveryPageSize=10 Wap.Mdb_FieldShow="Title" Wap.Mdb_FieldId="Id" ShowContent=Wap.MdbShow("Content") ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "发表人:" & Wap.MdbShow("PersonName") & "<br/>" & Wap.DelSpecialMark(ShowContent) Wap.MorePage(ShowContent) '以下查询数据库的总数 Wap.Mdb_StrSql="Select Title,Content from FreeWord" Wap.MdbDo ZongShu=Wap.RecordCount Wap.WriteRow Wap.ImgA("",Wap.ThisFileName & "?ToShowPage=" & Wap.RndNumber(ZongShu),"随机阅读") & "<br/>" Wap.WriteRow Wap.ImgA("","SuiJiYuLe.asp","返回上级") %> <!--*(^O^)纯WML文件的内容写在下边。(^O^)*--> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

发表文章模块的数据库设计，表名FreeWord：

4.访问记录统计模块

文件组成：VisitCountList.asp、VisitCountShow.asp

VisitCountList.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.WriteOut Wap.P("left","nowrap") Wap.Mdb_Path="../MyDatabase/#VisitCount.mdb" Wap.Mdb_StrSql="Select Id,phone_useragent,visit_time,visit_datetime from VisitCount order by visit_datetime desc" 'Wap.Mdb_EveryPageSize=10 Wap.Mdb_FieldShow="phone_useragent" 'Wap.Mdb_FieldHeader="" Wap.Mdb_FieldFooter="visit_datetime" 'Wap.Mdb_FieldId="Id" Wap.Mdb_GoFileName="VisitCountShow.asp" Wap.Mdb_IsShowImage=False 'Wap.Mdb_ErrorPapePath="" Wap.MdbList() '以下为返回链接等 Wap.WriteRow Wap.ImgA("","index.asp","返回上级") %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

VisitCountShow.asp代码如下：

<!--#include FILE="../WapConfig/WapHeader.asp"--> <!--#include FILE="../WapConfig/WapConfig.asp"--> <% '以下为文件正文。 '以下是数据库的设置信息 Wap.Mdb_Path="../MyDatabase/#VisitCount.mdb" Dim ListKey : ListKey=Request.QueryString("ListId") If ListKey="" Then ListKey= Session("FindId") Wap.Mdb_StrSql="Select * from VisitCount Where Id=" & ListKey Wap.WriteRow "手机号码:" Wap.WriteRow Wap.A("呼叫","wtai://wp/mc;" & Wap.MdbShow("phone_number"),Wap.MdbShow("phone_number")) Wap.WriteRow "终端类型:" Wap.WriteRow Wap.MdbShow("phone_useragent") Wap.WriteRow "IP地址:" Wap.WriteRow Wap.MdbShow("phone_ip") Wap.WriteRow "访问时间:" Wap.WriteRow Wap.MdbShow("visit_datetime") Wap.WriteRow "支持类型:" Wap.WriteRow Wap.MdbShow("phone_accept") '以下为返回链接等 Wap.WriteRow Wap.ImgA("","VisitCountList.asp?Page=" & Session("MyPage"),"返回上级") %> <!--#include FILE="../WapConfig/WapFooter.asp"-->

源代码

效果图

访问记录模块的数据库设计，表名VisitCount：