QuickWAP2.x增加跳转函数Redirect

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/ 末尾都是带"/"的。