📄 install.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="main/check_function.asp"-->
<!--#include file="main/show_error.asp"-->
<%
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
Dim theInstalledObjects(4)
theInstalledObjects(0) = "MSWC.BrowserType"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>初始化-在线作业系统</title>
<link href="main/eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim action
action=lcase(trim(request.querystring("action")))
if action<>"add" then%>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td class="white_bold_blue">测试：</td>
<td class="white_bold_blue">系统参数：</td>
<td class="white_bold_blue">程序需求：</td>
</tr>
<tr>
<td>fso</td>
<td><%If Not IsObjInstalled(theInstalledObjects(1)) Then
Response.Write "<img src='main/images/unsupport.gif' width='14' height='16'>"
Else
Response.Write "<img src='main/images/support.gif' width='17' height='15'>"
End If%></td>
<td><img src="main/images/support.gif" width="17" height="15"></td>
</tr>
<tr>
<td>分辨率</td>
<td>
<%'if request.servervariables("http_ua_pixels")<>800*600 Then
'Response.Write "<img src='main/images/unsupport.gif' width='14' height='16'>"
'Else
'Response.Write "<img src='main/images/support.gif' width='17' height='15'>"
'End If%>
<script language="JavaScript">
<!--
{
if ((screen.width == 800) && (screen.height == 600)){
document.write ("<img src='main/images/support.gif' width='14' height='16'>");//<img src="main/images/unsupport.gif" width="14" height="16">;
document.write ("</td><td><img src='main/images/support.gif' width='14' height='16'></td>");
}
else{
document.write ("<img src='main/images/unsupport.gif' width='14' height='16'>");
document.write ("</td><td class='red_12pt_font'>强烈建议使用800*600以获得好的视觉效果</td>");
}
}
// End -->
</script>
</tr>
<tr>
<td>cdonts</td>
<td><%If Not IsObjInstalled(theInstalledObjects(4)) Then
Response.Write "<img src='main/images/unsupport.gif' width='14' height='16'>"
Else
Response.Write "<img src='main/images/support.gif' width='17' height='15'>"
End If%></td>
<td>目前不需要此组件</td>
</tr>
<tr>
<td>jmail</td>
<td><%If Not IsObjInstalled(theInstalledObjects(3)) Then
Response.Write "<img src='main/images/unsupport.gif' width='14' height='16'>"
Else
Response.Write "<img src='main/images/support.gif' width='17' height='15'>"
End If%></td>
<td>目前不需要此组件</td>
</tr>
<tr>
<td>服务器解释引擎</td>
<td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td>vbscript</td>
</tr>
<tr>
<td>IE版本</td>
<td> </td>
<td>IE5.0</td>
</tr>
<tr>
<td> 服务器的名称和版本 </td>
<td><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
<td>IIS5.0</td>
</tr>
</table>
<hr align="center" width="600" noshade color="#0099CC">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_02">
<tr>
<td class="white_bold_blue">说明：</td>
<td class="white_bold_blue"> </td>
<td class="white_bold_blue"> </td>
</tr>
<tr>
<td colspan="3">欢迎使用eric在线作业系统，首次使用请看帮助！，此文件在添加管理员操作完成后删除</td>
</tr>
</table>
<form name="form1" method="post" action="?action=add">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_03">
<tr>
<td class="white_bold_blue">添加系统管理员：</td>
<td class="white_bold_blue"> </td>
<td class="white_bold_blue">说明：</td>
</tr>
<tr>
<td>用户名：</td>
<td><input name="user" type="text" class="input_text_01" id="user" size="20" maxlength="20"></td>
<td>8-20位</td>
</tr>
<tr>
<td>密码：</td>
<td><input name="pwd" type="text" class="input_text_01" id="pwd" size="20" maxlength="20"></td>
<td>8-20位</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit" value="重置">
</td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
<%
elseif action="add" then
dim conn'定义一个全局变量
sub opendb()
dim database_name
database_name="main/eric_data/olwork_system_data.mdb" '设置数据库名称
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database_name)
On Error Resume Next
set conn=server.createobject("adodb.connection")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(database_name)
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "数据库连接错误,请检查连接字串。"
response.end
end if
end sub
sub closedb()
conn.close
set conn=nothing
end sub
dim pwd,user
user=request.form("user")
pwd=request.form("pwd")
if check_len(user,"[用户名]",20,0) or _
check_small_len(user,"[用户名]",8) or _
check_len(pwd,"[密码]",20,0) or _
check_small_len(pwd,"[密码]",8) then
finderror=true
call show_error()
response.end
else
'过滤字符
call opendb()
conn.execute("insert into eric_manager (eric_manager,eric_password,purview) values ('" & user & "','" & pwd & "','3')")
call closedb()
'删除该文件
filename=server.mappath("install.asp")
set fs=createobject("scripting.filesystemobject")
if fs.FileExists(FileName) then
fs.DeleteFile(FileName)
set fs=nothing
response.redirect "main/show_success.asp?info=成功删除install.asp该文件,添加系统管理员操作成功！--><a href='control/admin_login.asp'>前往管理首页</a>"
else
response.redirect "main/show_success.asp?info=请手动删除install.asp该文件,添加系统管理员操作成功！--><a href='control/admin_login.asp'>前往管理首页</a>"
end if
end if
end if
%></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -