?? 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服務(wù)，若您的手機(jī)支持WAP功能，可以使用手機(jī)訪問：<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 "對不起，你的服務(wù)器沒有安裝動易組件（PE_Common.dll），所以不能使用動易系統(tǒng)。請和你的空間商聯(lián)系以安裝動易組件。"
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
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -