📄 main.asp
字号:
<!--#include file=cookies.asp-->
<!--#include file="../config.asp"-->
<html>
<head>
<title>管理员页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<base target="_self">
</head>
<body text="#000000" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<center>
<img border="0" src="img/list_bo.gif" width="600" height="12"><br>
<br>
<br>
<fieldset style="padding: 2; width:578; height:331"> <legend><b>欢迎您，<%=request.cookies("admincnmai")("username")%>，登陆成功</b></legend>
<table border=0 height='295' width=570 style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr height='100%' align=center><td width='178' height="295">
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">
供求信息网授予</p>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0"><font color="#FF0000">厦门供求信息网</font>使用<br>
<img src='img/xx.gif' border=0 width="176" height="176"><br><br>程序美化：<a title="给126114－邮件" href="mailto:xm126114@126.com">寒水冰丁</a><br>
QQ：174320418
<a href="http://www.126114.com">www.126114.com</a></td><td width='382' height="295">
<table border=0 cellspacing=0 cellpadding=0 width="357" height="282" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td colspan=2 align=center bgcolor=#ffffff class=red_3 width="351" height="25">服务器的有关参数</td></tr>
<tr><td width="108" height="12"> 服务器名：</td><td width="239" height="12"> <%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
<tr><td width="108" height="12"> 服务器IP：</td><td width="239" height="12"> <%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr><td width="108" height="12"> 服务器端口：</td><td width="239" height="12"> <%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
<tr><td width="108" height="12"> 服务器时间：</td><td width="239" height="12"> <%response.write now%></td></tr>
<tr><td width="108" height="12"> IIS版本：</td><td width="239" height="12"> <%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr><td width="108" height="12"> 服务器操作系统：</td>
<td width="239" height="12"> <%response.write Request.ServerVariables("OS")%></td></tr>
<tr><td width="108" height="12"> 脚本超时时间：</td><td width="239" height="12"> <%response.write Server.ScriptTimeout%> 秒</td></tr>
<tr><td width="108" height="12"> 站点物理路径：</td><td width="239" height="12"> <%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
<tr><td width="108" height="12"> 服务器CPU数量：</td>
<td width="239" height="12"> <%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr><td width="108" height="12"> 服务器解译引擎：</td>
<td width="239" height="12"> <%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
<tr>
<td colspan=2 align=center bgcolor=#ffffff class=red_3 width="351" height="25">组件支持有关参数</td></tr>
<tr><td width="108" height="12"> 数据库(ADO)支持：</td>
<td width="239" height="12"> <%If object_install("adodb.connection")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td width="108" height="12"> FSO文本读写：</td>
<td width="239" height="12"> <%If object_install("Scripting.FileSystemObject")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td width="108" height="12"> Jmail组件支持：</td>
<td width="239" height="12"> <%If object_install("JMail.SMTPMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td width="108" height="12"> CDONTS组件支持：</td>
<td width="239" height="12"> <%If object_install("CDONTS.NewMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
</table>
</td></tr>
</table>
<%
Function object_install(strClassString)
On Error Resume Next
object_install=False
Dim xTestObj
Err=0
Set xTestObj=Server.CreateObject(strClassString)
If Err=0 Then object_install=True
Set xTestObj=Nothing
Err=0
End Function
%>
</fieldset>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -