?? 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">
供求信息網(wǎng)授予</p>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0"><font color="#FF0000">廈門供求信息網(wǎng)</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">服務器的有關參數(shù)</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"> 服務器操作系統(tǒng)：</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數(shù)量：</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">組件支持有關參數(shù)</td></tr>
<tr><td width="108" height="12"> 數(shù)據(jù)庫(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 + -