📄 main.asp
字号:
<!--#include file="checkthis.asp" -->
<!--#include file="data/conn.asp" -->
<html>
<head>
<title>windsphoto</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.xzy {border:1px #999 solid; border-width: 0px 1px 1px}
-->
</style>
</head>
<body text="#000000">
<table width="750" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="50" valign="top"><!--#include file="admintop.asp" --></td>
</tr>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#FFFFFF" class='header'> 服务器基本信息</td>
</tr>
<tr>
<%
tnow = now():oknow = cstr(tnow)
if oknow <> year(tnow) & "-" & month(tnow) & "-" & day(tnow) & " " & hour(tnow) & ":" & right(FormatNumber(minute(tnow)/100,2),2) & ":" & right(FormatNumber(second(tnow)/100,2),2) then oknow = oknow & " (日期格式不规范)"
%>
<td bgcolor="#FFFFFF" width="40%" nowrap> 服务器时间：<%=oknow%></td>
<td bgcolor="#FFFFFF" width="60%"> 服务器空间占用：</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器类型：</td>
<td bgcolor="#FFFFFF"> 服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> , <%="JScript/" & getjver()%></td>
<td bgcolor="#FFFFFF"> 站点物理路径：<%=Request.ServerVariables("PATH_TRANSLATED")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器名</td><td> <%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器端口</td><td> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> IIS版本</td><td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 脚本超时时间</td><td> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 本文件路径</td><td> <%=Request.ServerVariables("PATH_TRANSLATED")%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><b>当前正在使用的这台服务器对相册的支持情况</b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <font color=red><b>ASPJPEG</b></font>：<%ObjTest("Persits.Jpeg")%> (本站正常运行必须的组件)</td>
<td bgcolor="#FFFFFF"> <font color=red><b>ASPJPEG授权到期日期</b></font>： (若组件过期请重新注册.)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 数据库使用：<%ObjTest("Adodb.Connection")%></td>
<td bgcolor="#FFFFFF"> Jmail组件支持：<%ObjTest("JMail.SmtpMail")%></td>
<tr>
<td bgcolor="#FFFFFF"> 无组件上传－ADODB.Stream：<%ObjTest("ADODB.Stream")%></td>
<td bgcolor="#FFFFFF"> 无组件上传－Scripting.Dictionary ：<%ObjTest("Scripting.Dictionary")%></td>
</tr>
</table>
<%
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject(strObj)
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = "<font color='green'><b>√</b></font>"
else
VerObj = "<font color='red'><b>×</b></font>"
end if
set TestObj=nothing
response.write VerObj
End sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -