install_readmin.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 45 行

<!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from admin"
rs.Open sql,conn,3,2
%>
<%
if trim(Request("Action"))="Modify"  then
 if request.Form("rename") = "" then 
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('请填写管理员用户名！');" & Chr(13)
		response.write "window.document.location.href='default.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
 if request.Form("repass") = "" then 
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('请填写管理员密码！');" & Chr(13)
		response.write "window.document.location.href='default.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
if trim(Request("Action2"))="Modify2" then
rs.addnew
rs("quanxian")="超级管理员"
rs("name")=request.Form("rename")
rs("password")=md5(request.Form("repass"))
rs.update
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('修改成功！');" & Chr(13)
		response.write "window.document.location.href='next.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
%>

<%
end if
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
end if
%>