qwbm_center.asp
来自「管理员可以后台设置是否需要审核」· ASP 代码 · 共 209 行
ASP
209 行
<%@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 + =
减小字号Ctrl + -
显示快捷键?