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