📄 index.asp
字号:
<%@language=vbscript codepage=65001 %>
<!--#include file="../conn.asp"-->
<%
Dim ReadMe, XmlDoc
ReadMe = Trim(Request("ReadMe"))
If ReadMe = "Yes" Then
Set XmlDoc = CreateObject("Microsoft.XMLDOM")
XmlDoc.async = False
XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))
%>
<html>
<title>WAP浏览器</title>
<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="font-size: 9pt;word-break:break-all;Width:fixed"><font color="#FFFFFF">温馨提示：本站已开通WAP服务，若您的手机支持WAP功能，可以使用手机访问：<br><% =XmlText("Wap", "Domain", SiteUrl & "/wap") %></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>
<%
Set XmlDoc = Nothing
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_Common6.ShowWap")
If Err Then
Err.Clear
Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
PE_Index.iConnStr = ConnStr
PE_Index.iSystemDatabaseType = SystemDatabaseType
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
Function XmlText(ByVal iBigNode, ByVal iSmallNode, ByVal DefChar)
Dim LangRoot, LangSub
If IsNull(iBigNode) Or IsNull(iSmallNode) Then
XmlText = DefChar
Else
Set LangRoot = XmlDoc.getElementsByTagName(iBigNode)
If LangRoot.Length = 0 Then
XmlText = DefChar
Else
Set LangSub = LangRoot(0).getElementsByTagName(iSmallNode)
If LangSub.Length = 0 Then
XmlText = DefChar
Else
XmlText = LangSub(0).Text
End If
End If
Set LangRoot = Nothing
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -