⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ddtaobao_server.asp

📁 校园二手交易系统,具有完备的后台操作以及应用功能!
💻 ASP
字号:
🔍 
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<%
Function comp_check(byval str_class)
	on error resume next
	dim obj_check
	set obj_check = Server.CreateObject(str_class)
	set obj_check=nothing
	if err.number<>0 then
		comp_check=false
	else
		comp_check=true
	end if
	err.clear()
End Function

Function get_version(byval str_class)
	on error resume next
	dim obj_check
	Set obj_check = Server.CreateObject(str_class)
	If err.number=0 Then
		get_version=obj_check.version
	else
		get_version=""
	end if
	Set obj_check = Nothing
	err.clear()
End Function

function int_check(byval num)
	dim j,k,s_time,e_time
	s_time=1000*timer()
	k=0
	for j=1 to num
		k=k+1
	next
	e_time=1000*timer()
	if e_time<s_time then
		int_check=round(e_time-s_time+3600000*24)
	else
		int_check=round(e_time-s_time)
	end if
end function

function dbl_check(byval num)
	dim j,k,s_time,e_time
	s_time=1000*timer()
	k=10000.111
	for j=1 to num
		k=k*0.9
	next
	e_time=1000*timer()
	if e_time<s_time then
		dbl_check=round(e_time-s_time+3600000*24)
	else
		dbl_check=round(e_time-s_time)
	end if
end function

function conn_check(byval num)
	dim j,s_time,e_time,obj_conn
	s_time=1000*timer()
	for j=1 to num
		set obj_conn=Server.CreateObject("adodb.connection")
		obj_conn.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(dbpath)
		obj_conn.close
		set obj_conn=nothing
	next
	e_time=1000*timer()
	if err.number<>0 then
		conn_check="测试失败"
	elseif e_time<s_time then
		conn_check=round(e_time-s_time+3600000*24)
	else
		conn_check=round(e_time-s_time)
	end if
end function

dim i,n
dim ary_comp(9,1)
ary_comp(0,0)="Scripting.FileSystemObject"
ary_comp(0,1)="(FSO 文本文件读写)"
ary_comp(1,0)="Scripting.Dictionary"
ary_comp(1,1)=""
ary_comp(2,0)="ADODB.Connection"
ary_comp(2,1)="(ADO 数据库支持)"
ary_comp(3,0)="ADODB.Stream"
ary_comp(3,1)="(无组件上传)"
ary_comp(4,0)="JRO.JetEngine"
ary_comp(4,1)="(数据库压缩)"
ary_comp(5,0)="Persits.Upload"
ary_comp(5,1)="(Persits.Upload 文件上传)"
ary_comp(6,0)="SoftArtisans.FileUp"
ary_comp(6,1)="(SA-FileUp 文件上传)"
ary_comp(7,0)="LyfUpload.UploadFile"
ary_comp(7,1)="(LyfUpload 文件上传)"
ary_comp(8,0)="JMail.Message"
ary_comp(8,1)="(Jmail 邮件支持)"
ary_comp(9,0)="CDONTS.NewMail"
ary_comp(9,1)="(CDONTS 邮件支持)"
n=ubound(ary_comp,1)
%>
<html>
<head>
<title>多多科技产品后台管理官方网站http://www.ddtaobao.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="多多科技产品后台管理官方网站http://www.ddtaobao.com">
<meta name="description" content="多多科技产品后台管理官方网站http://www.ddtaobao.com">
<link rel="stylesheet" href="img/Admin_STYLE.CSS">
<base target="_self">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor" bgcolor="#EEF8ED">

<div align="center">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr align="center" >
    <td height=20 class="topbg" colspan="2">服务器相关信息<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="right">
									<p align="center"><b>名称</b></td>
    <td height=23  width="59%" align="left">
									<p align="center"><b>参数值</b></td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center" >
									服务器名</td>
    <td height=23  width="59%" align="center" >
	<p align="center"><%=Request.ServerVariables("SERVER_NAME")%>
									　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">
									服务器IP</td>
    <td height=23  width="59%" align="center"><%=Request.ServerVariables("remote_addr")%>
									　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">
									服务器端口</td>
    <td height=23  width="59%" align="center"><%=Request.ServerVariables("SERVER_PORT")%>
									　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center"><%=Request.ServerVariables("SERVER_SOFTWARE")%>
									服务器时间</td>
    <td height=23  width="59%" align="center"><%=now%>　
									　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">
									IIS版本</td>
    <td height=23  width="59%" align="center"><%=Request.ServerVariables("SERVER_SOFTWARE")%>
									　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">脚本超时时间</td>
    <td height=23  width="59%" align="center"><%=Server.ScriptTimeout%> 秒　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">session过期时间</td>
    <td height=23  width="59%" align="center"><%=session.Timeout%> 分　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">当前文件路径</td>
    <td height=23  width="59%" align="center"><%=Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))%>　　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">服务器CPU数量</td>
    <td height=23  width="59%" align="center"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">服务器解译引擎</td>
    <td height=23  width="59%" align="center"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">服务器操作系统</td>
    <td height=23  width="59%" align="center"><%=Request.ServerVariables("OS")%>　</td>
  </tr>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="57%" align="right" colspan="2">
	<p align="center">
	&nbsp;&nbsp;
									　</td>

</table>
</div>


<div align="center">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr align="center" >
    <td height=20 class="topbg" colspan="2">
									<p align="center">〖 服务器常用组件支持情况 〗<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="right">
									<p align="center"><b>组件名称</b></td>
    <td height=23  width="59%" align="left">
									<p align="center"><b>支持及版本</b></td>
  </tr>
  <%for i=0 to n%>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center" ><%=ary_comp(i,0)&ary_comp(i,1)%>
									　</td>
    <td height=23  width="59%" align="left" >
	<p align="center"><%if comp_check(ary_comp(i,0)) then%><font face="宋体"><font color="red"><b>√</b></font> <%=get_version(ary_comp(i,0))%><%else%>×<%end if%></font></td>
  </tr>
  <%next%>
	<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F6FcF9'">
    <td height=23  width="40%" align="center">
									　</td>
    <td height=23  width="59%" align="left"></td>
  </tr>
	
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -