%
Dvbbs.LoadTemplates("")
If Request("Action")="readme" Then
Main()
ElseIf Request("Action")="wappush" Then
WapPush()
Else
MyRedirect()
End If
Sub Main()
Dvbbs.stats="WAP移动论坛说明"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,"WAP移动论坛说明","wap.asp?Action=readme"
Dvbbs.Showerr()
Get_ChallengeWord
Dim Rs
Set Rs=Dvbbs.Execute("Select Top 1 * From Dv_ChallengeInfo")
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=
错误的数据,请联系动网论坛官方解决。&action=OtherErr"
Exit Sub
End If
%>
<%
Rs.Close
Set Rs=Nothing
Dvbbs.ActiveOnline()
Dvbbs.Footer()
End Sub
Sub WapPush()
Dvbbs.stats="WAP PUSH下发"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,"WAP PUSH下发","wap.asp?Action=readme"
Dvbbs.Showerr()
%>
WAP移动论坛,把论坛动起来,随时随地的沟通 |
<%
If Request("errorcode")="1" Then
Response.Write "您成功的将相关的论坛地址用WAP PUSH下发到指定的手机。"
Else
Response.Write "错误,WAP PUSH下发失败,"&request("errormsg")&"。"
End If
%>
|
<%
Dvbbs.ActiveOnline()
Dvbbs.Footer()
End Sub
Sub MyRedirect()
Dim ServerUrl,ScriptName
Dim Tmpstr
Tmpstr = Request.ServerVariables("PATH_INFO")
Tmpstr = Split(Tmpstr,"/")
ScriptName = Lcase(Tmpstr(UBound(Tmpstr)))
If request.servervariables("SERVER_PORT")="80" Then
ServerUrl="http://" & request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
Else
ServerUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
End If
'Response.Write "http://bbs.ray5198.com/wap/first.jsp?url="&ServerUrl
'Response.End
Response.Redirect "http://bbs.ray5198.com/wap/first.jsp?url="&ServerUrl
End Sub
%>