中国被爱可以在线[博客园]

普及WAP 让每个拥有自己的企业WAP网站......

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

  当您拥有QuickWAP 2.x注册码后,您可以在站点根目录下新建一个Global.asa文件,将注册信息的代码写入Application事或者Session事件,代码如下:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
Application("OnLine")=0 ' 当服务器启动时,将记录在线用户的Application("OnLine")清零
'1.采用Application的方法进行注册(三者任选其一)。
'Application("IPSerialNumber")="F4OJ-038E-502E-710C" 'IP产生的注册码。
'2.采用Session的方法进行注册(三者任选其一)。
Session("IPSerialNumber")="F4OJ-038E-502E-710C" 'IP产生的注册码。
End Sub
Sub Application_onEnd
End Sub
Sub Session_onStart
Application.Lock
Application("OnLine")=Application("OnLine")+1 ' 新增在线用户个数
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("OnLine")=Application("OnLine")-1 ' 减少在线用户个数
Application.Unlock
End Sub
</SCRIPT>

  另外您如果建立单个程序你可以通过设定QuickWAP内部变量值进行注册,代码举例如下(注册码仅为例子):

<%
Set Wap=Server.CreateObject("QuickWAP.WAP")

'以下为通过注册IP进行注册的方法(三者任选其一)。
'Wap.IPSerialNumber="F4OJ-038E-502E-710C"      '通过网站IP产生的注册码。IP地址为:203.171.232.87。
'Application("IPSerialNumber")="F4OJ-038E-502E-710C" '通过网站IP产生的注册码。IP地址为:203.171.232.87。
'Session("IPSerialNumber")="F4OJ-038E-502E-710C" '通过网站IP产生的注册码。IP地址为:203.171.232.87。

Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.WriteRow Wap.JToF("欢迎您使用QuickWAP建站")
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.BackA("返回上页")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack")
Wap.PageFooter
Set Wap=Nothing
%>

  注册方式灵活,您可以根据需要采取相应方法。注册成功后,卡片标题将不再显示“被爱可以”四个字,并且页面第一行去掉了“注册QuickWAP正版”的链接。注册码终生有效,如若丢失请联系作者,作者邮箱地址:bicyle@126.com

posted on 2008-01-27 11:51  中国被爱可以在线  阅读(282)  评论(0编辑  收藏  举报