📄 aspinfo.asp
字号:
<%@Language="VBScript" CODEPAGE="936"%>
<html>
<head>
<title>ASP信息检测工具</title>
<style>
.sft {font-family: 'Verdana'; font-size: 12px; color: #C571AE}
</style>
<body bgcolor=#ffffff class=sft>
<b><font color=#5094DA>ASP信息检测工具 for SF2 免费版</b>
<br><br>作者: 雪人 http://www.xinboard.net
<br><br>如果没有显示"正常结束"字样或直接显示了本程序源代码则表示空间不支持ASP
<br><br><hr color=#5094DA><br><br></font>
<%
Function TestObj(Str)
On Error Resume Next
TestObj = False
Err.Description = ""
Set TObj = Server.CreateObject(Str)
If Err.Description = "" Then TestObj = True
Set TObj = Nothing
End Function
allow = 1
t1 = timer()
Response.Write "<li><b>本程序绝对路径: </b>" & Server.MapPath("aspinfo.asp") & "<br>"
Response.Write "<li><b>VBScript版本: </b>" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion
Response.Write "<li><b>你的空间"
if not TestObj("Adodb.Connection") then
Response.Write "不"
allow = 0
end if
Response.Write "支持Access数据库</b><br>"
Response.Write "<li><b>你的空间"
If not TestObj("JMail.SmtpMail") then Response.Write "不"
Response.Write "支持JMail</b><br>"
Response.Write "<br><b><font color=#5094DA>"
if allow > 0 then
Response.Write "<li>你的空间可以安装SF免费版"
else
Response.Write "<li>你的空间由于不支持Access, 所以不能安装SF免费版!"
end if
Response.Write "</b></font><br><br>"
Response.Write "<font color=#5094DA><br><br><hr color=#5094DA><br>运行时间:" & timer() - t1 & "秒, 正常结束!</font>"
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -