如何利用ASP实现高效的客户管理？

发布时间:2025-04-04 11:36:26

阅读量:300

文本

客户的邮箱地址

Address

文本

客户的地址

系统开发与实现

用户注册与登录模块

用户注册页面（register.asp）

<%
Dim conn, sql, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|/CIMS.mdb"
If Request.Form("submit") <> "" Then
    Dim username, password, email
    username = Request.Form("username")
    password = Request.Form("password")
    email = Request.Form("email")
    sql = "INSERT INTO Users (Username, Password, Email) VALUES ('" & username & "', '" & password & "', '" & email & "')"
    conn.Execute(sql)
    Response.Write("注册成功！")
End If
conn.Close()
Set conn = Nothing
%>

    用户名：

    密码：

    邮箱：

用户登录页面（login.asp）

<%
Dim conn, sql, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|/CIMS.mdb"
If Request.Form("submit") <> "" Then
    Dim username, password
    username = Request.Form("username")
    password = Request.Form("password")
    sql = "SELECT * FROM Users WHERE Username='" & username & "' AND Password='" & password & "'"
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then
        Session("userid") = rs("UserID")
        Response.Redirect("main.asp")
    Else
        Response.Write("用户名或密码错误！")
    End If
    rs.Close()
    Set rs = Nothing
End If
conn.Close()
Set conn = Nothing
%>

    用户名：

    密码：

客户信息管理模块

添加客户页面（add_customer.asp）

<%
If Request.Form("submit") <> "" Then
    Dim name, address, phone
    name = Request.Form("name")
    address = Request.Form("address")
    phone = Request.Form("phone")
    Dim sql
    sql = "INSERT INTO Customers (Name, Address, Phone) VALUES ('" & name & "', '" & address & "', '" & phone & "')"
    conn.Execute(sql)
    Response.Write("客户信息添加成功！")
End If
%>

    姓名：

    地址：

    电话：

查询客户页面（view_customers.asp）

<%
Dim rs, sql
sql = "SELECT * FROM Customers"
Set rs = conn.Execute(sql)
If Not rs.EOF Then
    Response.Write("")
    Response.Write("")
    Do While Not rs.EOF
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        Response.Write("")
        rs.MoveNext
    Loop
    Response.Write("ID Name Address Phone
" & rs("CustomerID") & " " & rs("Name") & " " & rs("Address") & " " & rs("Phone") & "")
Else
    Response.Write("没有找到客户信息。")
End If
rs.Close()
Set rs = Nothing
%>