1000字范文 > 中国被爱可以WAP站点首页源代码

中国被爱可以WAP站点首页源代码

时间：2021-02-06 12:50:49

相关推荐

中国被爱可以WAP站点首页源代码

中国被爱可以在线WAP站点首页源代码

中国被爱可以在线WAP站点首页效果图如图1所示：

图1

中国被爱可以在线一直专注于WAP领域[WAP开发、软件、WAP建站、企业行业应用等。]

Bicyle开发的部分工具均有免费版本供网友使用：BicyleWapTool、WapDisplayer、QuickWap等,均可在/WebContent/download.asp下载。

QuickWAP的开发是为了更好的让WAP开发人员迅速完成WAP网页的编写，快速建设WAP站点。

WAP站点首页代码如下：

Index.asp代码：

'以下为文件正文。

Wap.WriteRow Wap.P("left","wrap")

Wap.WriteRow Wap.Image("../images/GuoQing","")

Wap.WriteRow "您好，今天是" & Date() & Wap.QueryWeek & "。"

'Wap.WriteRow Wap.A("","GuoQingList.asp","庆祝伟大祖国56岁生日")

''''''''''''''''''''''''''''''''''''''''

'Wap.WriteOut "随机:"

Wap.Mdb_Path="../MyDatabase/#FreeWord.mdb"

Wap.Mdb_StrSql="Select Title,Content from FreeWord"

Wap.MdbDo

ZongShu=Wap.RecordCount : ZongShu=Wap.RndNumber(ZongShu)

Wap.Mdb_StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ZongShu

Wap.WriteOut Wap.Image("../images/Top","")

Wap.WriteRow Wap.A("","FreeWordRandom.asp?ToShowPage=" & ZongShu,Wap.MdbShow("Title"))

''''''''''''''''''''''''''''''''''''''''

'Wap.WriteOut "文章:"

Wap.WriteOut Wap.Image("../images/RedHeart","")

Wap.Mdb_Path="../MyDatabase/#FreeWord.mdb"

Wap.Mdb_StrSql="Select Top 1 Id,Title,PersonName From FreeWord order by DateTime Desc"

Wap.Mdb_EveryPageSize=1

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.RsInfoPlace="None"

Wap.MdbList()

''''''''''''''''''''''''''''''''''''''''

Wap.WriteOut Wap.Image("../images/xianYN","")

'Wap.WriteOut "娱乐:"

Wap.Mdb_Path="../MyDatabase/#163Search.mdb"

Wap.Mdb_StrSql="Select Top 1 Id,Title,Date,DateTime From 163Search order by DateTime Desc"

Wap.Mdb_EveryPageSize=1

Wap.Mdb_FieldShow="Title"

Wap.Mdb_FieldHeader=""

'Wap.Mdb_FieldFooter="Date"

'Wap.Mdb_FieldId="Id"

Wap.Mdb_GoFileName="HotSearchShow.asp"

Wap.Mdb_IsShowImage=False

'Wap.Mdb_ErrorPapePath=""

Wap.RsInfoPlace="None" '表示不显示记录总数。文章页数等

Wap.MdbList()

''''''''''''''''''''''''''''''''''''''''

Wap.WriteRow Wap.A("","SiteNewList.asp","本站新闻")

Wap.WriteRow Wap.A("","HotSearchList.asp","娱乐热门") & Wap.Image("../images/newico","")

Wap.WriteRow Wap.A("","Class_Women.asp","被爱读城")

Wap.WriteRow Wap.A("","FreeWordList.asp","发表文章") & Wap.Image("../images/newico","")

Wap.WriteRow Wap.A("","../WapChat/Index.asp","被爱聊城")

'Wap.WriteRow Wap.A("","../WapBBs/Index.asp","被爱社区")

'Wap.WriteRow Wap.A("","SelfLinkList.asp","自助链接")

Wap.WriteRow Wap.A("","../KaiXinYingDi/joyzone.asp","开心营地")

Wap.WriteRow Wap.A("","QingGanList.asp","情感文章")

Wap.WriteRow Wap.A("","NetArticlesList.asp","网文经典")

Wap.WriteRow Wap.A("","XiaoHuaType.asp","笑话全集")

Wap.WriteRow Wap.A("","SuiJiYuLe.asp","随机娱乐")

Wap.WriteRow Wap.A("","/bike/index.aspx","新闻浏览")

Wap.WriteRow Wap.A("","WishList.asp","美丽许愿")

Wap.WriteRow Wap.A("","WapLinkType.asp","网址大餐")

Wap.WriteRow Wap.A("","ToolList.asp","实用工具")

Wap.WriteRow Wap.A("","MessageList.asp","请您留言")

Wap.WriteRow Wap.A("","SelfLinkList.asp","自助链接")

Wap.WriteRow Wap.A("","QuickWapSite.asp","免费建站")

'Wap.WriteRow Wap.A("","../SiteShow/Index.asp","建站展示")

Wap.WriteRow Wap.A("","HeZuo.asp","合作加盟")

Wap.WriteRow Wap.A("","/wap1/hudong3Q/Wap_bbs/selectgo.asp","互动３Ｑ")

Wap.WriteRow Wap.A("","AboutUs.asp","关于我们")

Wap.WriteRow Wap.A("","VisitCountList.asp","访问统计")

Wap.WriteRow Wap.A("","Partner.asp","合作伙伴")

'Wap.WriteRow Wap.A("","","联系方式")

If Wap.Displayer="Phone" Then

Wap.WriteRow "〈--收费栏目--〉"

Wap.WriteRow Wap.A("","","精品铃声")

Wap.WriteRow Wap.ImgA("","SohuList.asp","搜狐经典")

End If

Wap.WriteRow Wap.Image("../images/BenZhanFuWu","")

Wap.WriteRow Wap.A("","HeZuo.asp","广告新媒体合作新商机")

'以下为访问统计

Wap.Mdb_Path=("../MydataBase/#VisitCount.mdb")

Wap.VisitCount("Phone")

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 Wap.ImgA("","AboutSite.asp","{基于QuickWAP组件}")

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

Wap.WriteRow ""

End If

Wap.WriteRow Wap.BackFooter("options","回首页","index.asp")

Wap.WriteRow Wap.DoPrev("accept", "后退", "Prev", "false")

Wap.PutPageFooter

set Wap=NoThing

也许你看了，感觉没有一点WML的味道，呵呵。

QuickWAP简介：

QuickWAP是一款基于WAP1.2协议，利用MicrosoftVisualBasic6.0开发的一个辅助ASP+WML语言编写WAP网页的组件,它集成了常见WAP开发中所遇到问题的多种解决方案。比如中文编码问题。因为它被Windows系统直接调用，所以服务器加快了WAP网页处理的速度，与IIS处理ASP+WML文件相比，速度提高了5倍以上。

功能和特点

（1）简化WAP代码

QuickWAP封装了多种模块，从而使您简化了WAP代码的编写。使用QuickWAP可以制作出多数应用会用到的页面，可以由产品策划人员直接制作出浏览类的产品，创建基于WAP的门户网站。也可以由软件员进行部分页面的改造，从而产生带有逻辑功能的页面比如游戏、竞猜等多种应用。

（2）终端适配功能

可对各种所需访问手机型号进行适配，即系统能识别用户手机型号，根据终端适配的原则，产生相应内容。有利于权限控制和内容显示优化。

免费版本仅做了对WEB与WAP、手机均能访问的适配功能。

（3）数据库支持

对MSAccess、SqlServer2000数据库等支持，通过维护数据库内容，更新WAP页面内容。WAP页面也可调用WEB数据库内容，达到同步互联。

免费版本提供了一个基于Access2000的数据库的留言本、新闻查看、短文幽默查看等的功能。如若需要，可以根据实际情况定制。

应用领域

可以用于个人计算机调试WAP使用，也可利用于企业或空间提供商。

QuickWAP功能相对完善、易维护扩展，适合中国移动、中国联通的SP以及任何需要提供WAP网站服务的企业和个人。