?? qwbm_center.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="qwbm_conn.asp"--><!--#include file="qwbm_cheack.asp"--><%
dim asps
asps = trim(request("asp"))
if asps = "out" then
response.cookies(""& qwbmcms2 &"username") = ""
call errbox("用戶成功退出","index.asp","","","")
end if
Dim theInstalledObjects(24)
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(16) = "JMail.SmtpMail"
theInstalledObjects(17) = "CDONTS.NewMail"
theInstalledObjects(18) = "Persits.MailSender"
theInstalledObjects(19) = "SMTPsvg.Mailer"
theInstalledObjects(20) = "DkQmail.Qmail"
theInstalledObjects(21) = "Geocel.Mailer"
theInstalledObjects(22) = "IISmail.Iismail.1"
'檢查組件是否被支持
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
'檢查組件版本
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%><!--
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 深山行者文章管理系統V1.0版本 ☆
'★ ★
'☆ 版權所有: http://www.qwbm.com ☆
'★ ★
'☆ 程序制作: 深山行者 ☆
'★ http://www.qwbm.com ★
'☆ QQ:565449214 ☆
'★ ★
'☆ ☆
'★ 主頁地址: http://www.qwbm.com 深山行者個人網站 ★
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
-->
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>深山后臺管理頁面</title>
<link rel="stylesheet" type="text/css" href="skin/01/images/css.css">
</head>
<body>
<div class="divm"><div class="divml"></div><div class="divmr">基本信息</div></div>
<table cellpadding="0" cellspacing="1" class="table1">
<tr>
<td colspan="4" class="td11">
<table class="table3" cellpadding="0">
<tr>
<td width="16%" class="td16">
<ol>
歡迎你使用 深山網店銷售系統
<li>本系統是基于ASP環境開發的B/S架構管理系統，采用Access數據庫驅動；
<li>擁有優秀的可維護性；
<li>您在使用過程中有什么問題或建議，請與管理員聯系；
<li>QQ：<a title="深山行者" href="tencent://message/?uin=565449214&Site=深山行者&Menu=yes" target="blank">565449214</a> 官方網站：<a href="http://www.qwbm.com" target="_blank">http://www.qwbm.com</a> 郵件：<a href="mailto:sosufoliujing@163.com">sosufoliujing@163.com</a></li>
</ol> </td>
</tr>
</table> </td>
</tr>
<tr>
<td width="29%" class="td1">服務器類型:</td>
<td width="31%" class="td2"><%=Request.ServerVariables("OS")%> （IP：</font><%=Request.ServerVariables("LOCAL_ADDR")%>）</td>
<td width="37%" class="td1">Scripting.FileSystemObject(FSO 文本文件讀寫):</td>
<td width="3%" class="td2"><%
If Not IsObjInstalled(theInstalledObjects(9)) Then
Response.Write "<font color=red><b> ×</b></font>"
Else
Response.Write "<font color=#888888><font color=green><b> √</b></font> "
End If
%></td>
</tr>
<tr>
<td class="td1">服務器的主機名、DNS別名或IP地址:</td>
<td class="td2"><%=Request.ServerVariables("SERVER_NAME")%></td>
<td class="td1">adodb.connection(ACCESS 數據庫):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(10)) Then
Response.Write "<font color=red><b> ×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font> "
End If
%></td>
</tr>
<tr>
<td class="td1">腳本解釋引擎:</td>
<td class="td2"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td class="td1">JMail.SmtpMail(w3 Jmail 收發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(16)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">腳本超時時間:</td>
<td class="td2"><%=Server.ScriptTimeout%> 秒</td>
<td class="td1">CDONTS.NewMail(WIN虛擬SMTP 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(17)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">服務器端口:</td>
<td class="td2"><%=Request.ServerVariables("SERVER_PORT")%></td>
<td class="td1">Persits.MailSender(ASPemail 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(18)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">站點物理路徑:</td>
<td class="td2"><%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
<td class="td1">SMTPsvg.Mailer(ASPemail 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(19)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">服務器IIS版本:</td>
<td class="td2"><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td class="td1">DkQmail.Qmail(dkQmail 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(20)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">服務器CPU個數:</td>
<td class="td2"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 個</td>
<td class="td1">Geocel.Mailer(Geocel 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(21)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
<tr>
<td class="td1">服務器時間:</td>
<td class="td2"><%=now%></td>
<td class="td1">IISmail.Iismail.1(IISemail 發信):</td>
<td class="td2"><%
If Not IsObjInstalled(theInstalledObjects(22)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font color=green><b>√</b></font>"
End If
%></td>
</tr>
</table>
<div class="divm"><div class="divml"></div><div class="divmr">網站信息檔案</div></div>
<table cellpadding="0" cellspacing="1" class="table1">
<tr bgcolor="#f1f3f5">
<td class="td1">程序開發</td>
<td class="td2">深山 · 行者 負責人：行者</td>
</tr>
<tr>
<td class="td1">聯系方法</td>
<td class="td2">QQ：<a title="深山行者" href="tencent://message/?uin=565449214&Site=深山行者&Menu=yes" target="blank">565449214</a> 官方網站：<a href="http://www.qwbm.com" target="_blank">http://www.qwbm.com</a> 郵件：<a href="mailto:sosufoliujing@163.com">sosufoliujing@163.com</a></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -