管理员登录界面 内容来自论文无忧网 www.paper51.com 图11管理员登陆(admin.asp) 内容来自www.paper51.com 对输入的用户名和密码进行判断代码页面 login.asp: 内容来自论文无忧网 www.paper51.com <%Response.Buffer=True%> 内容来自www.paper51.com <% 内容来自论文无忧网 www.paper51.com
'查看有无该用户 copyright paper51.com dim db,strsql,rs 内容来自论文无忧网 www.paper51.com set db=server.createobject("ADODB.connection") http://www.paper51.com
db.open"dbq="&server.mappath("userinfo.mdb")&";driver={microsoftaccess driver (*.mdb)};" 内容来自www.paper51.com strSql="Selectuser_name,password,user_type From users" paper51.com strSql=strSql & " Whereuser_name='" & Request.Form("user_name") & "' Andpassword='" & Request.Form("password") & "'" 内容来自论文无忧网 www.paper51.com Set rs=db.Execute(strSql) 内容来自www.paper51.com If not rs.eof and not rs.bof Then 内容来自论文无忧网 www.paper51.com '如果有记录,表示有该用户,则将用户名和用户类型保存到Session中 paper51.com Session("user_name")=rs("user_name") paper51.com session("user_type")=rs("user_type") 内容来自www.paper51.com Session("password")=rs("password") copyright paper51.com '如果是普通用户,重定向到首页;如果是管理员,重定向到管理员页面 内容来自论文无忧网 www.paper51.com IfSession("user_type")="A" Then 内容来自论文无忧网 www.paper51.com Response.Redirect"houtai.asp" 内容来自论文无忧网 www.paper51.com ELse 内容来自论文无忧网 www.paper51.com Response.Redirect"houtai2.asp" paper51.com EndIf copyright paper51.com Else 内容来自www.paper51.com '如果没有记录,表示没有该用户,请给出提示信息 http://www.paper51.com
Response.Write"对不起,用户名或密码有误,请<a href='admin.asp'>返回</a>重新登录" paper51.com End If http://www.paper51.com %> paper51.com 后台界面 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 图12超级管理员后台界面(houtai.asp) http://www.paper51.com
http://www.paper51.com 图13普通管理员后台界面(houtai.asp) 内容来自www.paper51.com
copyright paper51.com 图13普通用户管理员后台界面(user.asp) copyright paper51.com
附录源码: 内容来自论文无忧网 www.paper51.com
超级管理员后台界面(houtai.asp) copyright paper51.com <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%> copyright paper51.com <!--#includefile="Connections/coon.asp" --> 内容来自www.paper51.com <% paper51.com ' *** Edit Operations: declarevariables copyright paper51.com Dim MM_editAction 内容来自论文无忧网 www.paper51.com Dim MM_abortEdit copyright paper51.com Dim MM_editQuery http://www.paper51.com
Dim MM_editCmd 内容来自论文无忧网 www.paper51.com Dim MM_editConnection http://www.paper51.com
Dim MM_editTable 内容来自论文无忧网 www.paper51.com Dim MM_editRedirectUrl paper51.com Dim MM_editColumn http://www.paper51.com
Dim MM_recordId 内容来自www.paper51.com Dim MM_fieldsStr http://www.paper51.com Dim MM_columnsStr 内容来自www.paper51.com Dim MM_fields copyright paper51.com
Dim MM_columns copyright paper51.com
Dim MM_typeArray http://www.paper51.com Dim MM_formVal copyright paper51.com Dim MM_delim paper51.com
Dim MM_altVal http://www.paper51.com Dim MM_emptyVal paper51.com Dim MM_i paper51.com MM_editAction =CStr(Request.ServerVariables("SCRIPT_NAME")) paper51.com
If (Request.QueryString <>"") Then 内容来自论文无忧网 www.paper51.com MM_editAction = MM_editAction & "?" &Server.HTMLEncode(Request.QueryString) 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com ' boolean to abort record edit 内容来自论文无忧网 www.paper51.com MM_abortEdit = false paper51.com ' query string to execute 内容来自www.paper51.com
MM_editQuery = "" 内容来自论文无忧网 www.paper51.com
%> http://www.paper51.com <% http://www.paper51.com ' *** Insert Record: set variables paper51.com If(CStr(Request("MM_insert")) = "3") Then copyright paper51.com
MM_editConnection = MM_coon_STRING 内容来自www.paper51.com MM_editTable = "xinwen" paper51.com MM_editRedirectUrl = "yjxw.asp" 内容来自论文无忧网 www.paper51.com MM_fieldsStr ="1|value|2|value" copyright paper51.com MM_columnsStr = "biaoti|',none,''|meirong|',none,''" http://www.paper51.com ' create the MM_fields and MM_columns arrays http://www.paper51.com MM_fields = Split(MM_fieldsStr,"|") paper51.com
MM_columns = Split(MM_columnsStr,"|") 内容来自www.paper51.com ' set the form values paper51.com For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 内容来自论文无忧网 www.paper51.com MM_fields(MM_i+1) =CStr(Request.Form(MM_fields(MM_i))) paper51.com
Next http://www.paper51.com ' append the query string to the redirect URL copyright paper51.com If (MM_editRedirectUrl <> "" And Request.QueryString<> "") Then 内容来自论文无忧网 www.paper51.com If (InStr(1,MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString<> "") Then http://www.paper51.com MM_editRedirectUrl = MM_editRedirectUrl & "?" &Request.QueryString copyright paper51.com Else 内容来自论文无忧网 www.paper51.com
MM_editRedirectUrl = MM_editRedirectUrl & "&" &Request.QueryString 内容来自www.paper51.com
End If copyright paper51.com End If paper51.com End If http://www.paper51.com
%> paper51.com |