www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_support.asp
<!--#include file="wap_common.asp"-->
<!--#include file="wap_check.asp"-->
<!--#include file="wap_conn.asp"-->
<%Response.ContentType="text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card id='wuyumin' title='检测软件支持情况'>
<%
on error resume next
dim ErrNum,SupportStr
ErrNum=0
SupportStr=""
'----清除输入框缓存记录检测----
Err.Clear
'清除输入框缓存记录,不能放在<p></p>里边
Response.Write "<onevent type='onenterforward'>"
Response.Write " <refresh>"
Response.Write " <setvar name='inputtext' value=''/>"
Response.Write " </refresh>"
Response.Write "</onevent>"
'清除输入框缓存记录,不能放在<p></p>里边
If err.number<>0 Then
ErrNum=CInt(ErrNum)+1
SupportStr=SupportStr+"清除输入框缓存记录不支持(客户端设置项)<br/>"
End If
Err.Clear
Response.Write "<p>"
Response.Write "<a href='index.asp'>首页</a><br/>"
Response.Write "============<br/>"
'----服务器检测----
'Scripting.FileSystemObject组件
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso is nothing Then
ErrNum=CInt(ErrNum)+1
SupportStr=SupportStr+"Scripting.FileSystemObject组件不支持(服务器设置项)<br/>"
End If
'ADODB.Stream组件
set stm=server.CreateObject("Adodb.Stream")
If stm is nothing Then
ErrNum=CInt(ErrNum)+1
SupportStr=SupportStr+"ADODB.Stream组件不支持(服务器设置项)<br/>"
End If
'----客户端检测----
'Cookies
Response.Cookies("123")="123"
If Request.Cookies("123")="" Then
ErrNum=CInt(ErrNum)+1
SupportStr=SupportStr+"Cookies不支持(客户端设置项)<br/>"
End If
'检测结果
If CInt(ErrNum)>0 Then
Response.Write "<a href='index.asp'>检测结果：软件运行有一定影响</a><br/>"
Else
Response.Write "<a href='index.asp'>检测结果：软件运行没有问题</a><br/>"
End If
'影响因素输出
If trim(SupportStr)<>"" Then
Response.Write "影响因素：<br/>"&SupportStr
End If
Response.Write "============<br/>"
Response.Write "当前软件版本: "&Software_Version&"<br/>"
Response.Write "软件更新日期: "&Software_Updated&"<br/>"
Response.Write "开发者: "&Software_Developer&"<br/>"
Response.Write "开发者网站: <a href='http://soft.089858.com'>"&Software_Website&"</a><br/>"
Response.Write "联系开发者: "&Software_Contact&"<br/>"
Response.Write "============<br/>"
Response.Write "<a href='index.asp'>首页</a><br/>"
Response.Write "</p>"
%>
</card>
</wml>