Public Sub Redirect(Optional ByVal GoUrl As String) '2007-8-6增加。
On Error Resume Next
If GoUrl = "" Then
GoUrl = WapHomePage '如果为设置跳转地址,函数将自动跳转到网站首页。
End If
Response.Redirect GoUrl '实现跳转。
End Sub
用法:
QuickWAP的各种函数中没有跳转函数,其实大家很容易将ASP和QuickWAP结合起来的,以下是利用QuickWAP2.0创建的WAP框架,其中跳转语句为ASP语句。
<%
Set Wap=Server.CreateObject("QWAP.WAP20")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Response.Redirect "http://wap.bicyle.org"
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
%>
QuickWAP2.x中将包含该功能的函数实现跳转,它和ASP的基本相同,只不过创建了WAP对象后,利用QuickWAP的方法进行跳转:
<%
Set Wap=Server.CreateObject("QuickWAP.WAP")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Redirect "http://wap.bicyle.org"
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
%>
注:WapHomePage一般取得的值为:WAP网站的首页,默认为IP或域名地址。如:http://wap.bicyle.org/ 或http://wap.bicyle.org/quickwap/ 末尾都是带"/"的。