asp/vbscript学习笔记

最新推荐文章于 2021-06-05 03:33:56 发布
最新推荐文章于 2021-06-05 03:33:56 发布
阅读量302 收藏
点赞数
分类专栏： 2021年研究生学习笔记
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cj1064789374/article/details/113428593
版权

addbook.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
    if request.cookies("power")="1" then
        Response.Redirect("forbidden.asp")
    end if
%>

<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>addbook</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("addbook!")
        %>
        <form action="addbook.asp" method="post">
            b_code<input type="text" name="b_code" size="20" placeholder="the book's code  "/><br/>
            b_name<input type="text" name="b_name" size="20" placeholder="the book's name "/><br/>
            b_author<input type="text" name="b_author" size="20" placeholder="the book's author "/><br/>
            b_publish<input type="text" name="b_publish" size="20" placeholder="the book's publishment"/><br/>
            <input type="submit" value="addbook_submit" /><br/>
        </form>
        <%
            dim new_b_code,new_b_name,new_b_author,new_b_publish,new_b_lend,new_b_reader,new_b_time,sql
            new_b_code=Request.Form("b_code")
            new_b_name=Request.Form("b_name")
            new_b_author=Request.Form("b_author")
            new_b_publish=Request.Form("b_publish")
            new_b_lend="null"
            new_b_reader="null"
            new_b_time="null"

            if new_b_code<>"" and new_b_name<>"" and new_b_author<>"" and new_b_publish<>"" then

                set conne=Server.CreateObject("ADODB.Connection")
                conne.Provider="Microsoft.Jet.OLEDB.4.0"
                conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="SELECT COUNT(*) AS ct FROM books_table WHERE b_code='" & new_b_code & "'"
                set rs = server.createobject("adodb.recordset")
                rs.open sql,conne

                if rs("ct")=1 then
                    response.write("ERROR: This book_code has existed .")

                else
                    set conn=Server.CreateObject("ADODB.Connection")
                    conn.Provider="Microsoft.Jet.OLEDB.4.0"
                    conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"
                    sql="INSERT INTO books_table(b_code,b_name,b_author,b_publish,b_lend,b_reader,b_time) VALUES "
                    sql=sql & "('" & new_b_code & "',"
                    sql=sql & "'" & new_b_name & "',"
                    sql=sql & "'" & new_b_author & "',"
                    sql=sql & "'" & new_b_publish & "',"
                    sql=sql & "'" & new_b_time & "',"
                    sql=sql & "'" & new_b_reader & "',"
                    sql=sql & "'" & new_b_time & "')"

                    Conn.execute sql
                    Conn.close
                    Set Conn = Nothing
                end if

                rs.close
                conne.close
                set rs = nothing
                set conne = nothing
            end if

        %>
    </body>
</html>

borrowbook.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>borrowbook</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("borrowbook!")
        %>
        <form action="borrowbook.asp" method="post">
            borrow_book<input type="text" name="borrow_book" size="20" placeholder="the book's code "/><br/>
            <input type="submit" value="borrowbook_submit" /><br/>
        </form>
        <%
            dim borrow_user,borrow_book,borrow_time,sql
            borrow_user=request.cookies("user")
            borrow_book=Request.Form("borrow_book")
            borrow_time=now()

            if borrow_book<>"" then

                set conne=Server.CreateObject("ADODB.Connection")
                conne.Provider="Microsoft.Jet.OLEDB.4.0"
                conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="SELECT b_lend FROM books_table WHERE b_code='" & borrow_book & "'"
                set rs = server.createobject("adodb.recordset")
                rs.open sql,conne

                sql2="SELECT r_book FROM readers_table WHERE r_code='" & request.cookies("user") & "'"
                set rs2 = server.createobject("adodb.recordset")
                rs2.open sql2,conne

                if rs("b_lend")="yes" or rs2("r_book")<>"null" then
                    response.write("ERROR: This book has been lent or you has kept another book .")
                else
                    set conn=Server.CreateObject("ADODB.Connection")
                    conn.Provider="Microsoft.Jet.OLEDB.4.0"
                    conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                    sql="UPDATE books_table SET "
                    sql=sql & "b_lend='" & "yes" & "',"
                    sql=sql & "b_reader='" & borrow_user & "',"
                    sql=sql & "b_time='" & borrow_time & "'"
                    sql=sql & " where b_code='" & borrow_book & "'"

                    Conn.execute sql

                    sql="UPDATE readers_table SET "
                    sql=sql & "r_book='" & borrow_book & "',"
                    sql=sql & "r_time='" & borrow_time & "'"
                    sql=sql & " where r_code='" & borrow_user & "'"

                    Conn.execute sql

                    Conn.close
                    Set Conn = Nothing
                end if

                rs.close
                conne.close
                set rs = nothing
                set conne = nothing
            end if



        %>
    </body>
</html>

changepsw.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>changepsw</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("changepsw!")
        %>
        <form action="changepsw.asp" method="post">
            new_psw<input type="text" name="new_psw1" size="20" placeholder="new password"/><br/>
            new_psw<input type="text" name="new_psw2" size="20" placeholder="repeat please"/><br/>
            <input type="submit" value="changepsw_submit" /><br/>
        </form>
        Tips: You can goto the index page to check whether your password changed.<br/>
        <%
            dim old_psw,new_psw1,new_psw2,sql
            new_psw1=Request.Form("new_psw1")
            new_psw2=Request.Form("new_psw2")

            if new_psw1<>"" and new_psw1=new_psw2 then
                set conn=Server.CreateObject("ADODB.Connection")
                conn.Provider="Microsoft.Jet.OLEDB.4.0"
                conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="UPDATE readers_table SET "
                sql=sql & "r_pwd='" & new_psw2 & "'"
                sql=sql & " where r_code='" & request.cookies("user") & "'"

                Conn.execute sql

                Conn.close
                Set Conn = Nothing
            end if
        %>
    </body>
</html>

checkbook.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>checkbook</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("checkbook!")
        %>
        <form action="checkbook.asp" method="post">
            checkbook<input type="text" name="checkbook" size="20" placeholder="the book's name"/><br/>
            <input type="submit" value="checkbook_submit"/><br/>
        </form>
        <%
            dim checkbook
            checkbook=Request.Form("checkbook")

            set conn=Server.CreateObject("ADODB.Connection")
            conn.Provider="Microsoft.Jet.OLEDB.4.0"
            conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"
            set rs=Server.CreateObject("ADODB.recordset")
            SQL="SELECT * FROM books_table WHERE b_name LIKE '%" & checkbook & "%' or b_code LIKE '%" & checkbook & "%'"
            rs.Open SQL, conn
        %>
        <table border="1" width="100%">
            <tr>
                <%for each x in rs.Fields
                    response.write("<th>" & x.name & "</th>")
                next%>
            </tr>
            <%do until rs.EOF%>
                <tr>
                    <%for each x in rs.Fields%>
                        <td><%Response.Write(x.value)%></td>
                    <%next
                    rs.MoveNext%>
                </tr>
            <%loop
            rs.close
            conn.close%>
        </table>
    </body>
</html>

checkreader.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
    if request.cookies("power")="1" then
        Response.Redirect("forbidden.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>checkreader</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("checkreader!")
        %>
        <form action="checkreader.asp" method="post">
            checkreader<input type="text" name="checkreader" size="20" placeholder="the user's code or name "/><br/>
            <input type="submit" value="checkreader_submit" /><br/>
        </form>
        <%
            dim checkreader
            checkreader=Request.Form("checkreader")

            set conn=Server.CreateObject("ADODB.Connection")
            conn.Provider="Microsoft.Jet.OLEDB.4.0"
            conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"
            set rs=Server.CreateObject("ADODB.recordset")
            SQL="SELECT * FROM readers_table WHERE r_name LIKE '%" & checkreader & "%' or r_code LIKE '%" & checkreader & "%'"
            rs.Open SQL, conn
        %>

        <table border="1" width="100%">
            <tr>
                <%for each x in rs.Fields
                    response.write("<th>" & x.name & "</th>")
                next%>
            </tr>
            <%do until rs.EOF%>
                <tr>
                    <%for each x in rs.Fields%>
                        <td><%Response.Write(x.value)%></td>
                    <%next
                    rs.MoveNext%>
                </tr>
            <%loop
            rs.close
            conn.close%>
        </table>
    </body>
</html>

forbidden.asp

<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>forbidden</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("forbidden!")
        %>
        <br/>
        <%
            response.write("You don't have the power, connect to the administrator please!")
        %>

        <%
            Dim re
            Set re = New RegExp
            re.Pattern = "[0-9]{10}"
            'response.write(re.Test("3116000339")="True")
            'response.write(re.Test("2070276066")="True")
            'response.write(re.Test("111111111")="True")
            Dim re2
            Set re2 = New RegExp
            re2.Pattern = "(fe)?male"
            'response.write(re2.Test("male")="True")
            'response.write(re2.Test("female")="True")
            'response.write(re2.Test("sex")="True")
        %>
    </body>
</html>

index.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>index</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("index!")
        %>
        <%
            set conn=Server.CreateObject("ADODB.Connection")
            conn.Provider="Microsoft.Jet.OLEDB.4.0"
            conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"
            set rs=Server.CreateObject("ADODB.recordset")
            rs.Open "SELECT * FROM readers_table where r_code = " & "'" & request.cookies("user") & "'", conn
        %>
        <table border="1" width="100%">
            <tr>
                <%for each x in rs.Fields
                    response.write("<th>" & x.name & "</th>")
                next%>
            </tr>
            <%do until rs.EOF%>
                <tr>
                    <%for each x in rs.Fields%>
                        <td><%Response.Write(x.value)%></td>
                    <%next
                    rs.MoveNext%>
                </tr>
            <%loop
            rs.close
            conn.close%>
        </table>
    </body>
</html>

login.asp

<%
    dim login_usr,login_pwd,success_or_loss
    login_usr=Request.Form("login_usr")
    login_pwd=Request.Form("login_pwd")
    if login_usr="" then
        response.cookies("user")=""
        response.cookies("power")=""
    else
        set conne=Server.CreateObject("ADODB.Connection")
        conne.Provider="Microsoft.Jet.OLEDB.4.0"
        conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

        sql="SELECT COUNT(*) AS ct FROM readers_table WHERE r_code='" & login_usr & "' AND r_pwd='" & login_pwd & "'"
        set rs = server.createobject("adodb.recordset")
        rs.open sql,conne

        if rs("ct")<>1 then
            success_or_loss="ERROR: The username can't match the password."
        else
            success_or_loss="success"
            response.cookies("user")=login_usr
            sql2="SELECT r_power FROM readers_table WHERE r_code='" & login_usr & "' AND r_pwd='" & login_pwd & "'"
            set rs2 = server.createobject("adodb.recordset")
            rs2.open sql2,conne
            response.cookies("power")=rs2("r_power")
            rs2.close
            set rs2 = nothing
        end if
        rs.close
        conne.close
        set rs = nothing
        set conne = nothing
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>login</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("login!")
        %>
        <form action="login.asp" method="post">
            login_usr<input type="text" name="login_usr" size="30" placeholder="your code"/><br/>
            login_pwd<input type="text" name="login_pwd" size="30" placeholder="your password"/><br/>
            <input type="submit" value="login_submit" /><br/>
        </form>
        <%
            response.write(success_or_loss)
        %>
        <br/>
        Tips: When the login_usr is empty, you can logout by clicking the "login_submit" button.
    </body>
</html>

register.asp

<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>register</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("register!")
        %>
        <form action="register.asp" method="post">
            r_code<input type="text" name="r_code" size="20" placeholder="code can't be less than 10 characters"/><br/>
            r_name<input type="text" name="r_name" size="20" placeholder="your username"/><br/>
            r_sex<input type="text" name="r_sex" size="20" placeholder="your sex ( female or male )"/><br/>
            r_pwd<input type="text" name="r_pwd" size="20" placeholder="your password"/><br/>
            <input type="submit" value="register_submit"/><br/>
        </form>
        <%
            dim new_r_code,new_r_name,new_r_sex,new_r_pwd,sql
            new_r_code=Request.Form("r_code")
            new_r_name=Request.Form("r_name")
            new_r_sex=Request.Form("r_sex")
            new_r_pwd=Request.Form("r_pwd")
            new_r_power="1"
            new_r_book="null"
            new_r_time="null"

            if new_r_code<>"" and new_r_name<>"" and new_r_sex<>"" and new_r_pwd<>"" then

                set conne=Server.CreateObject("ADODB.Connection")
                conne.Provider="Microsoft.Jet.OLEDB.4.0"
                conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="SELECT COUNT(*) AS ct FROM readers_table WHERE r_code='" & new_r_code & "'"

                set rs = server.createobject("adodb.recordset")
                rs.open sql,conne

                Dim re
                Set re = New RegExp
                re.Pattern = "[0-9]{10}"
                Dim re2
                Set re2 = New RegExp
                re2.Pattern = "(fe)?male"

                if rs("ct")=0 and re.Test(new_r_code)="True" and re2.Test(new_r_sex)="True" then
                    set conn=Server.CreateObject("ADODB.Connection")
                    conn.Provider="Microsoft.Jet.OLEDB.4.0"
                    conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                    sql="INSERT INTO readers_table(r_code,r_name,r_sex,r_pwd,r_power,r_book,r_time) VALUES "
                    sql=sql & "('" & new_r_code & "',"
                    sql=sql & "'" & new_r_name & "',"
                    sql=sql & "'" & new_r_sex & "',"
                    sql=sql & "'" & new_r_pwd & "',"
                    sql=sql & "'" & new_r_power & "',"
                    sql=sql & "'" & new_r_book & "',"
                    sql=sql & "'" & new_r_time & "')"

                    Conn.execute sql
                    Conn.close
                    Set Conn = Nothing

                    response.write("success")
                else
                    response.write("ERROR: The code has existed or the code is less than 10 characters or the sex is not male or female.")
                end if

                rs.close
                conne.close
                set rs = nothing
                set conne = nothing
            end if

        %>

    </body>
</html>

returnbook.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
    if request.cookies("power")="1" then
        Response.Redirect("forbidden.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>returnbook</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("returnbook!")
        %>
        <form action="returnbook.asp" method="post">
            return_user<input type="text" name="return_user" size="20" placeholder="the user's code "/><br/>
            return_book<input type="text" name="return_book" size="20" placeholder="the book's code  "/><br/>
            <input type="submit" value="returnbook_submit" /><br/>
        </form>
        <%
            dim return_user,return_book,return_time,sql
            return_user=Request.Form("return_user")
            return_book=Request.Form("return_book")
            return_time=now()

            if return_user<>"" and return_book<>"" then

                set conne=Server.CreateObject("ADODB.Connection")
                conne.Provider="Microsoft.Jet.OLEDB.4.0"
                conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="SELECT b_lend FROM books_table WHERE b_code='" & return_book & "'"
                set rs = server.createobject("adodb.recordset")
                rs.open sql,conne

                sql2="SELECT r_book FROM readers_table WHERE r_code='" & return_user & "'"
                set rs2 = server.createobject("adodb.recordset")
                rs2.open sql2,conne

                if rs("b_lend")="no" or rs2("r_book")<>return_book then
                    response.write("ERROR: This book hasn't been lent or you hasn't borrowed this book .")

                else
                    set conn=Server.CreateObject("ADODB.Connection")
                    conn.Provider="Microsoft.Jet.OLEDB.4.0"
                    conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                    sql="UPDATE books_table SET "
                    sql=sql & "b_lend='" & "no" & "',"
                    sql=sql & "b_reader='" & "null" & "',"
                    sql=sql & "b_time='" & "null" & "'"
                    sql=sql & " where b_code='" & return_book & "'"

                    Conn.execute sql

                    sql="UPDATE readers_table SET "
                    sql=sql & "r_book='" & "null" & "',"
                    sql=sql & "r_time='" & "null" & "'"
                    sql=sql & " where r_code='" & return_user & "'"

                    Conn.execute sql

                    Conn.close
                    Set Conn = Nothing
                end if

                rs.close
                conne.close
                set rs = nothing
                set conne = nothing
            end if

        %>
    </body>
</html>

subbook.asp

<%
    if request.cookies("user")="" then
        Response.Redirect("login.asp")
    end if
    if request.cookies("power")="1" then
        Response.Redirect("forbidden.asp")
    end if
%>
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>subbook</title>
    </head>
    <body>
        <a href="/register.asp">register</a>
        <a href="/login.asp">login</a>
        <a href="/changepsw.asp">changepsw</a>
        <a href="/index.asp">index</a>
        <a href="/checkbook.asp">checkbook</a>
        <a href="/borrowbook.asp">borrowbook</a>
        <a href="/returnbook.asp">returnbook</a>
        <a href="/addbook.asp">addbook</a>
        <a href="/subbook.asp">subbook</a>
        <a href="/checkreader.asp">checkreader</a>
        <hr/>
        <%
            response.write("subbook!")
        %>
        <form action="subbook.asp" method="post">
            b_code<input type="text" name="b_code" size="20" placeholder="the book's code "/><br/>
            <input type="submit" value="subbook_submit" /><br/>
        </form>
        <%
            dim new_b_code,sql
            new_b_code=Request.Form("b_code")

            if new_b_code<>"" then

                set conne=Server.CreateObject("ADODB.Connection")
                conne.Provider="Microsoft.Jet.OLEDB.4.0"
                conne.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"

                sql="SELECT COUNT(*) AS ct FROM books_table WHERE b_code='" & new_b_code & "'"
                set rs = server.createobject("adodb.recordset")
                rs.open sql,conne

                if rs("ct")=0 then
                    response.write("ERROR: This book_code hasn't existed .")

                else
                    set conn=Server.CreateObject("ADODB.Connection")
                    conn.Provider="Microsoft.Jet.OLEDB.4.0"
                    conn.Open "d:/project/ProjectWeb/web_server/library_project/book_manager.mdb"
                    sql="delete from books_table where b_code=" & "'" & new_b_code & "'"

                    Conn.execute sql
                    Conn.close
                    Set Conn = Nothing
                end if

                rs.close
                conne.close
                set rs = nothing
                set conne = nothing
            end if

        %>
    </body>
</html>

readme.txt

数据库设计：2个
用户表（全部非空）：学号（唯一）+姓名+性别+密码+权限（2是管理员1是普通用户）+正借阅书号+借出时间
图书表（全部非空）：书号（唯一）+书名+作者+出版社+借出状态+借出学号+借出时间

页面设计：10个页面（全都在页顶导航栏有超链接，网页入口是登陆页面）

注册页面：
    显示页面：表单内容（学号+姓名+性别+密码……提交按钮）
    提交按钮点击后，查询用户表，学号已存在或学号小于10位或别不是male与female则报错，否则往用户表增加一个条目
登陆页面：
    显示页面：表单内容（学号+密码……提交按钮）
    提交按钮点击后，查用户表看学号密码，查找失败则报错，正确则生成两个cookie，一个是用户ID，一个是用户权限
密码页面：
    获得cookie查得到学号（否则跳到登陆页）
    显示页面：表单内容（新密码，新密码确认……提交按钮）
    提交按钮点击后，判断两个新密码是否一致，符合则更新用户表中的条目
个人信息：
    获得cookie查得到学号（否则跳到登陆页），查用户表得到用户信息
    显示页面，text信息内容（学号+姓名+性别+密码+权限+正借阅书号+借出时间）
书名查询：
    获得cookie查得到学号（否则跳到登陆页）
    显示页面，表单内容（书名……提交按钮）
    提交按钮点击后，按书名或书号查图书表，显示下面text信息内容（（书号+书名+作者+出版社+借出状态+借出学号+借出时间）每行一个）
借书页面：
    获得cookie查得到学号（否则跳到登陆页）
    显示页面，表单内容（学号，书号……提交按钮）
    提交按钮点击后，判断图书借出状态或用户是否已有借书，若书已借出或用户已有借书则显示失败，未借出则更新用户表与图书表
还书页面：
    获得cookie查得到学号（否则跳到登陆页）
    根据学号查用户表权限，非管理员时显示无权限（可以理解为必须要老师处办理还书）
    表单内容（学号，书号……提交按钮）
    提交按钮点击后，查书号的借出状态及用户借书状态，若书未被借出或用户未借书则报错，已借出则更新用户表与图书表（相关条目置null）
加书页面：
    获得cookie查得到学号（否则跳到登陆页）
    根据学号查用户表权限，非管理员时显示无权限
    表单内容（书号+书名+作者+出版社……提交按钮）
    提交按钮点击后，查图书表书号是否存在，已存在就报错，不存在就往图书表增加一个条目
减书页面：
    获得cookie查得到学号（否则跳到登陆页）
    根据学号查用户表权限，非管理员时显示无权限
    表单内容（书号……提交按钮）
    提交按钮点击后，按书号查图书表，查不到就报错，找到就减少图书表一个条目
学号查询：
    获得cookie查得到学号（否则跳到登陆页）
    根据学号查用户表权限，非管理员时显示无权限
    表单内容（学号……提交按钮）
    提交按钮点击后，按学号或用户名查用户表，查不到就弹窗报错，找到就显示下面text信息内容（（书号+书名+作者+出版社+借出状态+借出学号+借出时间）每行一个）

文件部署：
11个asp文件（每页1个）
1个mdb数据库文件
1个txt说明文件（本文件）
关于web.config与.idea应该是我本地部署时产生的文件，可以不理会，但为保持工程完整性，我一起打包了

使用说明：
数据库地址我用了绝对地址，我的本地开发路径是D:\project\ProjectWeb\web_server\library_project，如果你不是这个路径需要手动修改源码

book_manager.mdb

readers_table
IDr_coder_namer_sexr_pwdr_powerr_bookr_time
113579testmaleabc1IT0012020/12/28 15:35:20
224680adminfemaledef2nullnull
books_table
IDb_codeb_nameb_authorb_publishb_lendb_readerb_time
1IT001C++YKQAAAyes31160003392020/12/28 15:35:20
2IT002JAVAYKQBBBnonullnull
3IT003PYTHONYKQCCCnonullnull
11IT004JavaScriptYKQDDDnonullnull
12IT005MysqlYKQEEEnonullnull
13PH001huaweiYKQFFFnonullnull
14PH002xiaomiYKQGGGnonullnull
15PH003OPPOYKQHHHnonullnull
16PH004VIVOYKQIIInonullnull
17PH005AppleYKQJJJnonullnull
23WK001baiduYKQKKKnonullnull
24WK002tencentYKQLLLnonullnull
25WK003alibabaYKQMMMnonullnull
26WK004huaiweiYKQNNNnonullnull
27WK005bytedanceYKQOOOnonullnull
cj1064789374
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
第一次 ASP 笔记(没有整理)
jiayue's BLOG
10-25 1148
 开发工具 Dreamueaver  Vistual InterDev ASP对象模型 7个对象ApplicationAspEnorObjectContextRequstResponseServerSession程ADO动态数据组件来配置ODBC开放式数据库接口ODBC高层调动规范、适应性、可维护性USRR DSN为某一用户所建立的DSN
asp学习笔记
01-05
ASP中还可以定义子程序（Sub）和函数，如下所示使用VBScript： ```html (num1, num2) response.write(num1 * num2) End Sub %> </head> <p>Result: (3, 4) %></p> </body> </html> ``` 而在ASP中，你可以通过...
ASP中令人震撼的Debug类（VBScript）
12-13 709
译者的话：不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！今天看到一个ASP中的De
ASP及vbscript笔记
JokeOrSerious的博客
12-30 260
控制面板：     程序-启用或关闭程序-internet information services    注意对号才是全部选中,     系统和安全-管理工具：internet信息服务 虚拟目录： ASP 使用脚本:   默认为vbscript     option explicit强制使用变量开关 语法:语句写在里面     dim定义变量、数组     privat
asp vbscript
【小妮的天空】
11-23 549
基于vbscript的asp操作  set Out=fObj.OpenTextFile(Server.Mappath("count.txt"))  num=Out.readline  Out.close  set Out=fObj.CreateTextFile(Server.Mappath("count.txt"))  Out.writeline(num+1)  Out.close  set fO
ASP之vbscript笔记1
weixin_34194087的博客
09-19 93
通过inputBox输入计算两个数的和 页面截图： 通过inputBox输入计算两个数的和源文件： <html><head><title>通过inputBox输入计算两个数的和</title></head><body>...
ASP学习笔记.doc
10-10
以下是ASP学习笔记中的关键知识点： 1. **ASP代码嵌入**：ASP代码通常被包含在`<% %>`标签中，这些代码在服务器上执行，并生成HTML响应给客户端。 2. **语句分隔**：在一行内写多条语句时，使用冒号(`:`)进行分隔...
ASP学习整理笔记
03-30
通过这份"ASP学习整理笔记"，学习者可以系统地掌握ASP的基本知识和实践技能，为进一步深入Web开发打下坚实的基础。无论是初学者还是有一定经验的开发者，都能从中获益，提升自己的ASP编程能力。
尚网ASP学习笔记
10-10
在"尚网ASP学习笔记"中，我们可以期待学习以下几个核心知识点： 1. **ASP基础**：首先会介绍ASP的基本概念，包括ASP的工作原理、环境搭建（如IIS安装配置）、以及如何创建第一个ASP页面。理解这些基础知识对于后续...
ASP学习笔记(平时整理的)
06-05
这篇ASP学习笔记包含了作者在学习过程中整理的核心概念、语法结构和实用技巧，对于初学者或者想要深入理解ASP的人来说，无疑是一份极具价值的参考资料。 首先，ASP的核心特性在于它能够在服务器端执行代码，并将...
set rs=server.CreateObject(adodb.recordset) 的中文详细说明
01-20
是建立一个数据集 前面应该先定义此数据集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject(“adodb.recordset”) 来建立一个数据集的实例，当然此时数据集中是没有数据的 rs.open …… 来打开一个记录集 rs.append或者rs.insert来添加记录 rs.edit来修改记录 对于添加或修改的记录，可以用 rs.fields(“字段名”)=xxx 来进行赋值 rs.update 把更改过的值更新回数据库 当你添加一个数据（rs1）进数据库时： rs.addnew rs(“rs1″)=”添加的数据” r
关于ASP的类（VBScript)
11-01 647
首先ASP的(VBScript)类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明（哈哈，我是现学现卖，说得不好请见谅） 在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public
ASP(VBScript) 函数
海水正蓝
06-14 838
VBScript 函数 功能说明 例子
关于ASP的(VBScript)类
鼍城懒人的专栏
04-09 328
 首先ASP的(VBScript)类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明（哈哈，我是现学现卖，说得不好请见谅） 在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Pub
vbscript是html默认脚本的语言,asp:VBScript脚本语言介绍
weixin_34508986的博客
06-05 546
ASP：VBScript脚本：在WEB中允许嵌入一些小的程序段来完成特定的功能，这样的一些小程序称为脚本。脚本语言介于HTML和java、c++以及VB等编程语言之间。HTML通常用于格式化和链接文本。而编程语言通常用于向机器发出一系列复杂的指令。脚本语言介于两者之间，它的函数与编程语言相像，但它的语法和规则没有编程语言那么严格和复杂。常用的脚本语言：VBScript 和JavaScript。VB...
ASP脚本语言之vbscript用法
osteps的博客
01-12 523
常用的脚本语言有Javascript 和 VBscript 。 使用哪种语言需先设定。如上节代码中的&lt;%@ LANGUAGE="JSCRIPT" ... %&gt;。 如果没有指定，系统就会使用 IIS 程序指定的脚本语言。 VBscript 用法 VBscript 一般放在 &lt;head&gt; 与 &lt;/head&gt; 内的 &lt;% 和 %&gt; 之间。 代码的...
ASP入门基础教程-VBScript概述及基本元素
weixin_30786617的博客
08-20 255
1、VBScript简介 　　VBScript是一种脚本语言，也是ASP的默认语言，可以在HTML文件中直接嵌入VBScript脚本，从而扩展HTML，使它不仅仅是一种页面格式语言。带有VBScript脚本的网页可以对用户的操作作出反应。 　　2、HTML页面中添加VBScript代码 　　VBSript脚本作为HTML文档的一部分页存在。也就是说，这些代码必须放在HTML文档中才能执行。...
ASP的(VBScript)类基础
huangfangbian的专栏
10-16 425
ASP的(VBScript)类基础    关于ASP的(VBScript)类首先ASP的(VBScript)类是由事件和方法（它们就是构成类的成员了）构成的  在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成
asp+vbscript 按模板到处excel，客户端操作excel
dingoc的专栏
03-29 515
【ASP.NET编程知识】Asp.net回调技术Callback学习笔记.docx
最新发布
05-18
【ASP.NET编程知识】Asp.net回调技术Callback学习笔记.docx

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值