📄 wap.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSysTem.asp"-->
<!--#include file="Inc/Cl_ClsCount.asp"-->
<!--#include file="Inc/Cl_ClsWap.asp"-->
<!--#include file="Inc/Cl_MD5.asp"-->
<%
Dim Rs,SQL
Dim Action,ChannelID,ClassID,InfoID
Dim PageSize,TotalPut,CurrentPage,TotalPages
Cl.Get_WebSetting
Cl.ChkUserLogin
Const FileNameStr="Wap.asp"
Response.ContentType="text/vnd.wap.wml"
Response.Charset="gb2312"
Response.write ("<?xml version=""1.0"" encoding=""gb2312""?>"& vbCrLf)
Response.write ("<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml1_1.1.xml"">"& vbCrLf)
Response.write ("<wml>"& vbCrLf)
Response.write ("<head>"& vbCrLf)
Response.write ("<meta http-equiv=""Cache-control"" content=""max-age=0"" forua=""true""/>"& vbCrLf)
Response.write ("<meta http-equiv=""Cache-control"" content=""must-revalidate"" forua=""true""/>"& vbCrLf)
Response.write ("</head>"& vbCrLf)
Response.write ("<template><do type=""prev"" label="""&Wap.FormatStr("返回")&"""><prev/></do></template>"& vbCrLf)
Response.write ("<card id=""main"" title="""&Wap.FormatStr(Cl.Web_Info(0))&""">"& vbCrLf)
Response.write ("<p mode=""nowrap"" align=""center""><img alt="""&Wap.FormatStr(Cl.Web_Info(0))&"Loading..."" src="""&Wap.FormatStr(Replace(Cl.Web_Info(5),"{$webdir}",InstallDir)&"")&""" height=""39"" width=""110"" align=""center""/></p>"& vbCrLf)
ChannelID = Cl.GetClng(Request("ChannelID"))
ClassID = Cl.GetClng(Request("ClassID"))
InfoID = Cl.GetClng(Request("InfoID"))
Action = Trim(Request("Action"))
CurrentPage = Cl.GetClng(Request("page"))
If Cl.Web_Setting(51)="No" Then
Response.write("<p align=""center"">"&Wap.FormatStr("当前网站WAP已关闭！")&"</p>"& vbCrLf)
Else
If Trim(Request("Err"))<>"" Then
Call Wap.ShowErr(Trim(Request("Err")))
Else
'Openconn 此处不用再打开数据库
Select Case Action
Case "Login"
Call Wap.UserLogin()
Case "Logout"
Call Wap.UserLogout()
Case "Reg"
Call Wap.User_Reg()
Case "RegPost"
Call Wap.User_RegPost()
Case "ChkLogin"
Call Wap.UserChkLogin()
Case Else
Call Wap.Main()
End Select
End If
If Cl.Web_Setting(54)="Yes" Then
If Cl.UserID>0 Then
Response.write ("<p align=""center""><br/>==="&Wap.FormatStr("用户面板")&"===<br/><br/>"&Wap.FormatStr("尊敬的"&Cl.MemberName&"：您好，欢迎登陆")&"<br/>"& vbCrLf)
Response.write ("<a href='"& FileNameStr &"?Action=Logout'>"&Wap.FormatStr("退出")&"</a> <a href='"& FileNameStr &"?Action=Login'>"&Wap.FormatStr("重登陆")&"</a> <a href='"& FileNameStr &"'>"&Wap.FormatStr("回首页")&"</a></p>"& vbCrLf)
Else
Response.write ("<p align=""center""><br/>==="&Wap.FormatStr("会员选项")&"===<br/><br/><a href='"& FileNameStr &"?Action=Reg'>"&Wap.FormatStr("注册")&"</a> <a href='"& FileNameStr &"?Action=Login'>"&Wap.FormatStr("登陆")&"</a> <a href='"& FileNameStr &"'>"&Wap.FormatStr("回首页")&"</a></p>"& vbCrLf)
End if
End if
End If
'Response.write ("<p align=""center"">Powered by:<a href='http://www.aspoo.com/wap.asp'>创力网络</a>"& vbCrLf)
'Response.write ("</p>"& vbCrLf)
Response.write ("</card>"& vbCrLf)
Response.write ("</wml>"& vbCrLf)
CloseAllObj
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -