论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 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%> 内容来自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

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