?? 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>初始化-在線作業(yè)系統(tǒng)</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">系統(tǒng)參數(shù)：</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在線作業(yè)系統(tǒng)，首次使用請看幫助！，此文件在添加管理員操作完成后刪除</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">添加系統(tǒng)管理員：</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" '設置數(shù)據庫名稱
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 "數(shù)據庫連接錯誤,請檢查連接字串。"
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該文件,添加系統(tǒng)管理員操作成功！--><a href='control/admin_login.asp'>前往管理首頁</a>"
else
response.redirect "main/show_success.asp?info=請手動刪除install.asp該文件,添加系統(tǒng)管理員操作成功！--><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 + -