论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > ASP >

A450ASP产品销售

管理员登录界面

内容来自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

------分隔线----------------------------
联系方式