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

📄 admin_com.asp

📁 电子备课系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="inc/inc_sys.asp"-->
<%
Const C_Items=23
Dim action
action=Trim(Request("action"))
Dim aObjects(12)
aObjects(0) = "Scripting.FileSystemObject"
aObjects(1) = "adodb.connection"
'-----------------------
aObjects(2) = "JMail.Message"				'JMail 4.3
aObjects(3) = "CDONTS.NewMail"				'CDONTS
aObjects(4) = "Persits.MailSender"			'ASPEMAIL
'-----------------------
aObjects(5) = "Adodb.Stream"				'Adodb.Stream
aObjects(6) = "Persits.Upload"				'Aspupload3.0
aObjects(7) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
aObjects(8) = "DvFile.Upload"				'DvFile-Up V1.0
aObjects(9) = "LyfUpload.UploadFile"
'-----------------------
aObjects(10) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
aObjects(11) = "Persits.Jpeg"				'AspJpeg
aObjects(12) = "sjCatSoft.Thumbnail"		'sjCatSoft.Thumbnail V2.6

if action="saveconfig" then
	call saveconfig()
else
	call showconfig()
end if


Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

sub showconfig()
dim rs,ac
set rs=oblog.execute("select * From oblog_config Where id=2")
ac=Split(rs("ob_value"),"$$")
set rs=nothing
%>
<!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" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">网 站 组 件 配 置</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
    <tr>
      <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30"><a href="#SiteInfo">组件检测</a> | <a href="#SiteOption">名称定义</a>
      | <a href="#user">上传(图片)组件</a> | <a href="#show">邮件组件</a>
    </tr>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">服 务 器 信 息</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">

<form method="POST" action="admin_com.asp" id="form1" name="form1">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
    <td width="348" class="tdbg" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td class="tdbg">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr>
    <td width="348" class="tdbg" height=23>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td class="tdbg">数据库地址：</td>
  </tr>
  <tr>
    <td class="tdbg" height=23>FSO文本读写：
      <%
      If IsObjInstalled(aObjects(0))=false Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
    <td class="tdbg">数据库使用：
      <%If Not IsObjInstalled(aObjects(1)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
  </tr>
  <tr>
    <td class="tdbg" height=23>Jmail组件支持：
      <%If Not IsObjInstalled(aObjects(2)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
    <td class="tdbg">CDONTS组件支持：
      <%If Not IsObjInstalled(aObjects(3)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
  </tr>
    <tr>
      <td height="25" colspan="2" class="topbg"><a name="SiteOption"></a><b>基础组件设置</b></td>
    </tr>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >系统必须使用Scripting.FileSystemObject和Adodb.Stream组件</td>
      <td height="25" > 如果您的服务器上这两个组件的名称已经更改,请修改组件的名称</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >Scripting.FileSystemObject：</td>
      <td height="25" ><%
      	If ac(1)="" Then
      		Call EchoInput("a1",40,100,"Scripting.FileSystemObject")
      	Else
      		Call EchoInput("a1",40,100,ac(1))
    	End If
      	%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >Adodb.Stream：</td>
      <td height="25" >
      	<%
      	If ac(1)="" Then
      		Call EchoInput("a2",40,100,"Adodb.Stream")
      	Else
      		Call EchoInput("a2",40,100,ac(2))
    	End If
      	%></td>
    </tr>
<!--     <tr>
      <td height="25" colspan="2" class="topbg"><a name="show"></a><b>邮件选项</b></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25">说明</td>
      <td height="25">启用该参数后，将可以开启邮件有效性检测等环节。但是邮件发送对服务器资源消耗比较大，请慎重选择。
      </td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >是否启用邮件发送机制</td>
      <td height="25" ><% Call EchoRadio("a3","","",ac(3))%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >请选择您要使用的邮件选项</td>
      <td height="25" ><%=MakeSelect_Mail("")%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" ><p>邮件地址</p></td>
      <td height="25" ><% Call EchoInput("a5",40,50,ac(5))%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >SMTP主机</td>
      <td height="25" ><% Call EchoInput("a6",40,50,ac(6))%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" ><p>用户名</p></td>
      <td height="25" ><% Call EchoInput("a7",40,50,ac(7))%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >口令</td>
      <td height="25" ><% Call EchoInput("a8",40,50,ac(8))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td height="25" >是否启用SMTP验证</td>
       <td height="25" ><% Call EchoRadio("a9","","",ac(9))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td height="25" >邮件发送队列数目(每次最大10个,每个目标地址算一个)</td>
      <td height="25" ><% Call EchoInput("a10",40,50,ac(10))%></td>
    </tr> -->
    <tr>
      <td height="25" colspan="2" class="topbg"><a name="upload" id="user"></a><strong>上传选项</strong></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" ><p>选取上传组件：<br>
          (可以到<a href="http://www.oblog.cn" target="_blank">http://www.oblog.cn</a>下载Aspupload3.0组件)
        </p>
        </td>
      <td height="25" ><%=MakeSelect_Upload(ac(11))%>
      	</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
      <td height="25" >图片缩略图及水印设置开关：<br>
        (服务器需安装AspJpeg组件，可到<a href="http://www.oblog.cn" target="_blank">http://www.oblog.cn</a>下载)
      </td>
      <td height="25" ><%=MakeSelect_Photo(ac(12))%></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
12

⌨️ 快捷键说明

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