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

A450ASP产品销售

管理员登录界面

http://www.paper51.com

图11管理员登陆(admin.asp) paper51.com

对输入的用户名和密码进行判断代码页面 login.asp: 内容来自www.paper51.com

<%Response.Buffer=True%>

http://www.paper51.com

<%

内容来自论文无忧网 www.paper51.com

'查看有无该用户 http://www.paper51.com

dim db,strsql,rs paper51.com

set db=server.createobject("ADODB.connection") 内容来自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") & "'" copyright paper51.com

Set rs=db.Execute(strSql)

内容来自www.paper51.com

If not rs.eof and not rs.bof Then

内容来自www.paper51.com

    '如果有记录,表示有该用户,则将用户名和用户类型保存到Session中 内容来自论文无忧网 www.paper51.com

    Session("user_name")=rs("user_name")

内容来自论文无忧网 www.paper51.com

    session("user_type")=rs("user_type") copyright paper51.com

    Session("password")=rs("password")

copyright paper51.com

    '如果是普通用户,重定向到首页;如果是管理员,重定向到管理员页面 内容来自论文无忧网 www.paper51.com

    IfSession("user_type")="A" Then copyright paper51.com

       Response.Redirect"houtai.asp" copyright paper51.com

    ELse 内容来自论文无忧网 www.paper51.com

       Response.Redirect"houtai2.asp" 内容来自www.paper51.com

    EndIf

copyright paper51.com

Else paper51.com

    '如果没有记录,表示没有该用户,请给出提示信息

paper51.com

    Response.Write"对不起,用户名或密码有误,请<a href='admin.asp'>返回</a>重新登录"

内容来自论文无忧网 www.paper51.com

End If

paper51.com

%> 内容来自www.paper51.com

后台界面 内容来自论文无忧网 www.paper51.com

copyright paper51.com

图12超级管理员后台界面(houtai.asp) copyright paper51.com

内容来自www.paper51.com

图13普通管理员后台界面(houtai.asp) copyright paper51.com

http://www.paper51.com

图13普通用户管理员后台界面(user.asp) 内容来自论文无忧网 www.paper51.com

附录源码: paper51.com

超级管理员后台界面(houtai.asp)

copyright paper51.com

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%> copyright paper51.com

<!--#includefile="Connections/coon.asp" -->

http://www.paper51.com

<%

内容来自论文无忧网 www.paper51.com

' *** Edit Operations: declarevariables 内容来自www.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

copyright paper51.com

Dim MM_editRedirectUrl

paper51.com

Dim MM_editColumn

内容来自论文无忧网 www.paper51.com

Dim MM_recordId

内容来自www.paper51.com

Dim MM_fieldsStr

http://www.paper51.com

Dim MM_columnsStr

copyright paper51.com

Dim MM_fields

paper51.com

Dim MM_columns

http://www.paper51.com

Dim MM_typeArray

paper51.com

Dim MM_formVal paper51.com

Dim MM_delim 内容来自www.paper51.com

Dim MM_altVal copyright paper51.com

Dim MM_emptyVal

copyright paper51.com

Dim MM_i copyright 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) http://www.paper51.com

End If

paper51.com

' boolean to abort record edit 内容来自论文无忧网 www.paper51.com

MM_abortEdit = false

内容来自论文无忧网 www.paper51.com

' query string to execute copyright paper51.com

MM_editQuery = ""

内容来自论文无忧网 www.paper51.com

%> 内容来自www.paper51.com

<% paper51.com

' *** Insert Record: set variables

内容来自论文无忧网 www.paper51.com

If(CStr(Request("MM_insert")) = "3") Then

copyright paper51.com

 MM_editConnection = MM_coon_STRING 内容来自论文无忧网 www.paper51.com

 MM_editTable = "xinwen" 内容来自www.paper51.com

 MM_editRedirectUrl = "yjxw.asp" http://www.paper51.com

 MM_fieldsStr  ="1|value|2|value"

内容来自论文无忧网 www.paper51.com

 MM_columnsStr = "biaoti|',none,''|meirong|',none,''"

copyright paper51.com

 ' create the MM_fields and MM_columns arrays 内容来自www.paper51.com

 MM_fields = Split(MM_fieldsStr,"|")

paper51.com

 MM_columns = Split(MM_columnsStr,"|") 内容来自www.paper51.com

 ' set the form values http://www.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

内容来自论文无忧网 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 内容来自论文无忧网 www.paper51.com

     MM_editRedirectUrl = MM_editRedirectUrl & "?" &Request.QueryString paper51.com

    Else

copyright paper51.com

     MM_editRedirectUrl = MM_editRedirectUrl & "&" &Request.QueryString 内容来自论文无忧网 www.paper51.com

    End If 内容来自www.paper51.com

 End If 内容来自论文无忧网 www.paper51.com

End If copyright paper51.com

%> http://www.paper51.com

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