📄 wap.asp
字号:
<%@language=vbscript codepage=65001 %>
<!--#include file="conn.asp"-->
<%
Dim ReadMe
ReadMe = Trim(Request("ReadMe"))
If ReadMe = "Yes" Then
%>
<html>
<title>WAP浏览器</title>
<link href='Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top"><td><img src="Images/WapBack01.gif" width="160" height="48"></td>
</tr>
<tr height="140">
<td height="153" valign="middle" background="Images/WapBack02.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" colspan="3"></td>
</tr>
<tr>
<td width="30"></td>
<td width="112" valign='top' style="word-break:break-all;Width:fixed"><font color="#FFFFFF">温馨提示：本站已开通WAP服务，若您的手机支持WAP功能，可以使用手机访问：<br><% =SiteUrl %>/wap.asp</font></td>
<td width="18"> </td>
</tr>
<tr>
<td height="2" colspan="3"></td>
</tr>
</table>
</td>
</tr>
<tr><td><img src="Images/WapBack03.gif" width="160" height="56"></td></tr>
</table>
</body>
</html>
<%
Else
Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
Call main
Call CloseConn
End If
Sub main()
On Error Resume Next
Dim PE_Index
Set PE_Index = Server.CreateObject("PE_Common.ShowWap")
If Err Then
Err.Clear
Response.Write "对不起，你的服务器没有安装动易组件（PE_Common.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
Call PE_Index.main
Set PE_Index = Nothing
If Err Then
Response.Write "错 误 号：" & Err.Number & "<BR>"
Response.Write "错误描述：" & Err.Description & "<BR>"
Response.Write "错误来源：" & Err.Source & "<BR>"
Err.Clear
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -