七天學(xué)會asp入門教程

1、  更新日期：2005-08-24 16:05  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒學(xué)習(xí)目的：安裝調(diào)試ASP的環(huán)境，并且調(diào)試第一個簡單的程序。因為我們學(xué)ASP的目的就是想建立一個網(wǎng)站，那么一般習(xí)慣是建立的網(wǎng)站內(nèi)所有文件應(yīng)該同時放到一個文件夾中(當(dāng)然這個文件夾中還可以按需要設(shè)置子文件夾！)，所以在這里我在E盤建立一個myweb的文件夾。首先來安裝Windows 2000/XP自帶的IIS作為服務(wù)器。在這里因為我的機(jī)器是XP所以所有截圖都是XP下完成的?？刂泼姘?>>添加或刪除程序。 然后是添加刪除windows組件選中IIS組件前面的勾，之后等待安裝，這里

2、可以觀看本站以前給大家做的視頻教程，完成安裝后。之后在控制面板中雙擊“管理工具”。然后雙擊“internet信息服務(wù)”，這就是IIS。選擇“默認(rèn)網(wǎng)站”，然后右鍵屬性或者直接按快捷鍵在屬性頁面內(nèi)只有三個頁面需要修改，先是網(wǎng)站，如果用戶有固定IP，可以分配一個IP 接下來在注主目錄中選擇一個自己硬盤上面的文件夾存放網(wǎng)站(這個目錄就是我們上面說的在e盤建立的目錄)，選中讀取、寫入在文檔中添加默認(rèn)的頁面，比如打網(wǎng)頁教學(xué)網(wǎng)就是調(diào)用了一個默認(rèn)文檔。 接下來也是最關(guān)鍵的：1、在剛才你定義的一個文件夾里面新建一個文件，可以用記事本建立一個文本文件然后把下面的內(nèi)容復(fù)制到記事本中： <%respo

3、nse.write "hello world!"%> 保存為1.asp文件(注意：.asp不能省略啊，如果省略了你就保存了一個文本文件了)。最后打開IE，在地址欄內(nèi)輸入：/1.asp(或者h(yuǎn)ttp:/localhost/1.asp)回車后就可以看到效果了。最后解釋一下代碼的含義。response.write就是顯示的意思，前后的 <% 和 %> 是asp的標(biāo)記符號，在這里面的信息都由服務(wù)器處理。是地址，1.asp是文件名。第一天就結(jié)束了！菜鳥十天學(xué)會ASP教程之第二天：表單傳送變量  更新日期：20

4、05-08-25 08:24  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：安裝調(diào)試ASP環(huán)境學(xué)習(xí)目的：學(xué)會用表單元素向服務(wù)器傳送變量，然后顯示變量在客戶端的瀏覽器。 首先，讓我們來看一下表單元素。 點擊這里請查看具體的表單標(biāo)簽的使用表單元素要放在一個表單域里面，建立一個表單域。然后修改動作里面的文件為要接受這個表單變量的ASP文件。方法有兩種，一種是POST，這個方法傳送的變量不會在瀏覽器的地址欄里面顯示，可以大批量傳送數(shù)據(jù)；GET則是會在瀏覽器地址欄里面顯示的，等一會舉例子。 下面我們看一個表單元素。文本域，這個是最基本的，傳送的是文本信息，一般用戶名，密碼都要用這個傳送，

5、不過要是密碼的話要在類型里面選擇密碼，這樣就會以*代替顯示出來的字符，文本域的名字很重要，以后會用到這個名字所以一般不用默認(rèn)的名字?，F(xiàn)在舉一個例子：如果文本域的名字是name的話，用來傳送網(wǎng)上用戶登記的名字，在表單域里面，傳送到reg.asp，用POST方法，那么在reg.asp里面這樣得到變量<%name=request.form("name")%>如果要顯示變量再家加一句，response.write name，這樣就形成了一個從客戶端到瀏覽器再回到客戶端的過程。如果方法用的是GET的話，那么就改為name=request.querystring("

6、;name")實際上兩者可以統(tǒng)一為name=request("name")。下面看看按鈕，按鈕里面無非兩種，一種是提交表單的按鈕，一種是重新輸入的按鈕。單選按鈕，一個按鈕有一個值。在列表里面同樣，添加列表選項和值。下面舉一個例子，實際上各種表單元素都是差不多的。下面是具體的代碼： (注：把下面代碼保存為一個.htm的文件就可以了我保存的1.htm)<form name="form1" method="post" action="reg.asp"> 姓名： <input type=&quo

7、t;text" name="name"> /文本域，名字叫name <br> 密碼： <input type="password" name="psw"> /文本域，用來輸入密碼，名字叫psw <br> <br> 性別： <input type="radio" name="sex" value="男"> /單選，名字叫sex，數(shù)值是"男" 男 <input type=&quo

8、t;radio" name="sex" value="女"> /單選，名字叫sex，數(shù)值是"女" 女 <br> <br> 城市： <select name="city"> <option value="上海" selected>上海</option> /復(fù)選，大家自己分析一下 <option value="北京">北京</option> </select> <

9、br> <input type="submit" name="Submit" value="提交"> /提交按鈕 <input type="reset" name="Submit2" value="重置"> </form> 下面是reg.asp的代碼，用來顯示出剛才受到的信息： <% name=request.form("name") psw=request.form("psw") sex

10、=request.form("sex") city=request.form("city") response.write name response.write psw response.write sex response.write city %> 打開瀏覽器在地址欄內(nèi)輸入：如下圖：（呵呵，因為是練習(xí)，我沒有美化頁面?。。┹斎胄畔⑻峤恢螅合旅嫖覀円_始學(xué)數(shù)據(jù)庫了！只要把表單和數(shù)據(jù)庫相應(yīng)的字段連接上就可以了。下一節(jié)：數(shù)據(jù)庫的建立菜鳥十天學(xué)會ASP教程之第三天：數(shù)據(jù)庫的建立  更新日期：2005-08-26 09:51  出

11、處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：表單傳送變量學(xué)習(xí)目的：學(xué)會ACCEES數(shù)據(jù)庫的使用。 首先，要安裝OFFICE里面的ACCEES（我的演示是OFFICE 2003版本），安裝過程這里就不說了，安裝好以后會，打開Access按空數(shù)據(jù)庫，新建一個數(shù)據(jù)庫，文件名字可以叫g(shù)uestbook.mdb。（提示：為了安全期間，文件名復(fù)雜一點好，因為ACCESS數(shù)據(jù)庫可以被下載的?。?使用設(shè)計器創(chuàng)建新的表，一個數(shù)據(jù)庫MDB文件里面可以建立多個表。雙擊“使用設(shè)計器創(chuàng)建表”填寫字段名字然后選擇字段類型，一條記錄可以有很多字段，可以有很多字段類型，字段大小的意思就是這個字段最多可以容納的字符數(shù)，當(dāng)這

12、個字段沒有任何信息是，ACCEES會用默認(rèn)值代替（沒有任何信息不是空的意思），一般必填字段和允許空字符串分別設(shè)置為否、是，以防止出錯 按照上圖分別建立幾個字段，在時間中默認(rèn)值為=now()就是這個字段不需要填寫，系統(tǒng)直接以當(dāng)前時間代替。所以的字段都建立以后，關(guān)閉這個窗口，按提示保存表，輸入表的名字guest，最后出現(xiàn)下圖的提示，選擇是，主鍵是記錄的標(biāo)識，為了以后簡單，大家可以把編號改為ID，還有在ACCEES里面盡量不要用中文表示字段名字 最后，雙擊打開這個表，觀看表里面的記錄 下一節(jié)：數(shù)據(jù)庫的連接和讀取菜鳥十天學(xué)會ASP教程之第四天：數(shù)據(jù)庫的連接和讀取  更新日期：200

13、5-08-26 10:14  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：數(shù)據(jù)庫的建立學(xué)習(xí)目的：掌握ACCESS數(shù)據(jù)庫的連接和讀取記錄 首先還打開我們上一節(jié)課建立的數(shù)據(jù)庫中的表，隨便輸入幾條記錄，如下圖：這節(jié)課學(xué)習(xí)的內(nèi)容有一點枯燥，但是很重要。在這里不需要知道命令具體的運行情況，外面的很多書籍之所以不適合入門就是因為介紹了太多的理論知識，讓初學(xué)者一頭霧水。下面開門見山，看兩行代碼： <% set conn=server.createobject("adodb.connection") conn.open "driver=microsoft a

14、ccess driver (*.mdb);dbq="&server.mappath("data/guestbook.mdb") %> 第一行定義了一個adodb數(shù)據(jù)庫連接組件，第二行連接了數(shù)據(jù)庫，大家只要修改后面的數(shù)據(jù)庫名字就可以了。是不是很簡單？ 下面再看三行： <% exec="select * from guest" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %> 這三行加在前面兩行的后面，第一句：設(shè)

15、置查詢數(shù)據(jù)庫的命令，select后面加的是字段，如果都要查詢的話就用*，from后面再加上表的名字，我們前面建立的是不是一個gust表阿？第二句：定義一個記錄集組件，所有搜索到的記錄都放在這里面，第三句是打開這個記錄集，exec就是前面定義的查詢命令，conn就是前面定義的數(shù)據(jù)庫連接組件，后面參數(shù)“1，1”，這是讀取，后面講到修改記錄就把參數(shù)設(shè)置為1，3，好了接下來我們讀取記錄。<table width="100%" border="0" cellspacing="0" cellpadding="0">

16、 <%do while not rs.eof%><tr> <td><%=rs("name")%></td> <td><%=rs("tel")%></td> <td><%=rs("message")%></td> <td><%=rs("time")%></td> </tr><% rs.movenext loop %> </

17、table>/下面的三條語句是用于關(guān)閉數(shù)據(jù)庫rs.closeset rs=nothingconn.closeset conn=nothing 在一個表格中，我們用4列分別顯示了上次建立的表里面的四個字段，用do循環(huán)，not rs.eof的意思是條件為沒有讀到記錄集的最后，rs.movenext的意思是顯示完一條轉(zhuǎn)到下面一條記錄，<%=%>就等于<%response.write%>用于在html代碼里面插入asp代碼，主要用于顯示變量。把上面三段代碼依次復(fù)制粘貼到剪貼板中，一定要按順序復(fù)制粘貼?。?，然后保存為duqu.asp就可以了！打開瀏覽器，在地址欄內(nèi)輸入：ht

18、tp:/localhost/duqu.asp.下面是我機(jī)器上面的結(jié)果圖片。 下一節(jié)：寫入記錄菜鳥十天學(xué)會ASP教程之第五天：寫入記錄  更新日期：2005-08-28 10:00  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：連接并讀取數(shù)據(jù)庫學(xué)習(xí)目的：學(xué)會數(shù)據(jù)庫的基本操作-寫入記錄數(shù)據(jù)庫的基本操作無非是：查詢記錄，寫入記錄，刪除記錄，修改記錄。今天我們先學(xué)習(xí)寫入記錄。先建立一個表單：(把下面文章保存為5.htm)<form name="form1" method="post" action="exa5.asp&q

19、uot;>name <input type="text" name="name"><br>tel <input type="text" name="tel"><br>message <input type="text" name="message" value=""><br><input type="submit" name="Submit&q

20、uot; value="提交"><input type="reset" name="Submit2" value="重置"></form>表單提交到exa5.asp，下面是exa5.asp的代碼： (把下面代碼保存為5.asp)<%set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&am

21、p;server.mappath("data/guestbook.mdb")name=request.form("name")tel=request.form("tel")message=request.form("message") exec="insert into guest(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"conn

22、.execute execconn.closeset conn=nothingresponse.write "記錄添加成功!"%>在這里前面兩句我不說了，后面三句我也不說了，前面說過exec里面的是執(zhí)行的命令，添加記錄的比較繁，大家要仔細(xì)看。insert into后面加的是表的名字，后面的括號里面是需要添加的字段，不用添加的或者字段的內(nèi)容就是默認(rèn)值的可以省略。注意，這里的變量一定要和ACCESS里面的字段名對應(yīng)，否則就會出錯。values后面加的是傳送過來的變量。exec是一個字符串，"insert into guest(name,tel,message)v

23、alues('"是第一段，在ASP里面不能嵌雙引號，所以可以用'代替雙引號，放在雙引號里面，連接兩個變量用+或者&所以"',"又是一段，中間夾了一個name就是表單傳來的變量，這樣就可以在這個變量外面加兩個''，表示是字符串了，后面的tel是數(shù)字型變量所以不需要外面包圍''，大家慢慢分析這句話，如果用表單傳來的數(shù)據(jù)代替變量名字的話這句話為（假設(shè)name="aaa",tel=111,message="bbb"）："insert into guest(na

24、me,tel,message)values('aaa',111,'bbb')"。接下來的conn.execute 就是執(zhí)行這個exec命令，最后別忘記把打開的數(shù)據(jù)庫關(guān)閉，把定義的組件設(shè)置為空，這樣可以返回資源。下面幾條語句用于關(guān)閉數(shù)據(jù)庫的代碼：rs.closeset rs=nothingconn.closeset conn=nothing記住，次序不可以顛倒！ 可以到數(shù)據(jù)庫里面去看一看，或者用duqu.asp讀取看看是不是多了記錄阿？下面是我利用上一節(jié)的文件讀取數(shù)據(jù)庫的圖：下一節(jié)：查詢記錄菜鳥十天學(xué)會ASP教程之第六天：查詢記錄  更新日期：

25、2005-08-30 09:27  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：寫入記錄學(xué)習(xí)目的：學(xué)會數(shù)據(jù)庫的基本操作查詢記錄在第四天中我們用到下面這樣一個程序：<% set conn=server.createobject("adodb.connection") conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("data/guestbook.mdb") exec="select * from gues

26、t" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %>我們查詢的是所有的記錄，但是我們要修改、刪除記錄的時候不可能是所有記錄，所有我們要學(xué)習(xí)檢索合適的記錄。先看一條語句：a="aaa"b=1111110exec="select * from guestbook where name='"+a+"'and tel="+bwhere后面加上的是條件，與是and，或是or，我想=，<=，>

27、;=，<，>的含義大家都知道吧。這句話的意思就是搜索name是“aaa”的，并且電話是“1111110”的記錄。還有一點就是如果要搜索一個字段里面是不是包含一個字符串就可以這么寫：where instr(name,a)也就是搜索name里面有a（aaa）這個字符串的人。我這里的a,b,是常量，大家可以讓a,b是表單提交過來的變量，這樣就可以做一個搜索了。下面大家看看這個代碼，理解一下：(把下面代碼存為6.htm文件)<form name="form1" method="post" action="exam6.asp"

28、>搜索：<br>name =<input type="text" name="name">and tel= <input type="text" name="tel"><br><input type="submit" name="Submit" value="提交"><input type="reset" name="Submit2" value

29、="重置"></form>(把下面代碼存為exam6.asp)<%name=request.form("name")tel=request.form("tel")set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("data/guestbook.mdb")exe

30、c="select * from guest where name='"+name+"' and tel="+telset rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%><html><head><title>無標(biāo)題文檔</title><meta http-equiv="Content-Type" content="text/html; charset

31、=gb2312"></head> <body bgcolor="#FFFFFF" text="#000000"> <table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("name")%></td><

32、;td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table></body></html> 首先在瀏覽器中輸入如下圖所示：輸入數(shù)據(jù)庫中已有的姓名和電話aaa，1111110，單擊提交，結(jié)果如下圖所示：下一節(jié)：刪除記錄菜鳥十天學(xué)會

33、ASP教程之第七天：刪除記錄  更新日期：2005-08-30 10:02  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：查詢記錄學(xué)習(xí)目的：學(xué)會數(shù)據(jù)庫的基本操作-刪除記錄開門見山，大家直接看程序。exec="delete * from guest where id="&request.form("id")上面這句話完成了刪除記錄的操作，不過鎖定記錄用了記錄唯一的表示id，我們前面建立數(shù)據(jù)庫的時候用的是系統(tǒng)給我們的主鍵，名字是編號，由于是中文的名字不是很方便，大家可以修改為id，我已經(jīng)修改了?。〔恍薷牡脑捑褪怯孟旅娴拇a了

34、：exec="delete * from guestbook where 編號="&request.form("id")下面我們看完整的代碼：一個表單傳給ASP文件一個ID，然后這個ASP文件就刪除了這個ID。7.htm：<form name="form1" method="post" action="exam7.asp">請輸入刪除的ID號: <input type="text" name="id"><input t

35、ype="submit" name="Submit" value="提交"></form>exam7.asp：(可以先運行這個文件看一下所有記錄的ID和想刪除記錄的ID，刪除記錄以后也可以通過這個文件復(fù)查。)<%set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("dat

36、a/guestbook.mdb")exec="select * from guest"set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1 %><html><head><title>無標(biāo)題文檔</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head&

37、gt;<body bgcolor="#FFFFFF" text="#000000"><table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("id")%></td><td><%=rs("name"

38、;)%></td><td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table></body></html>下一節(jié)：修改記錄菜鳥十天學(xué)會ASP教程之第八天：修改記錄  更新日期：2005-08-

39、31 12:13  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：刪除記錄學(xué)習(xí)目的：學(xué)會數(shù)據(jù)庫的基本操作修改記錄先來看代碼：(存為就可以了)<%set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("data/guestbook.mdb")exec="select * from guest where id=&quo

40、t;&request.form("id")set rs=server.createobject("adodb.recordset")rs.open exec,conn%><form name="form1" method="post" action="modifysave.asp"><table width="748" border="0" cellspacing="0" cellpadding=&quo

41、t;0"><tr> <td>name</td><td>tel</td><td>message</td></tr><tr> <td><input type="text" name="name" value="<%=rs("name")%>"></td><td><input type="text" name=&q

42、uot;tel" value="<%=rs("tel")%>"></td><td><input type="text" name="message" value="<%=rs("message")%>"><input type="submit" name="Submit" value="提交"><input type=&qu

43、ot;hidden" name="id" value="<%=request.form("id")%>"></td></tr></table></form><%rs.closeset rs=nothingconn.closeset conn=nothing%>到現(xiàn)在應(yīng)該分析這個代碼沒有什么問題了吧，這個代碼的作用是接受前面一個頁面的ID然后顯示這條記錄，文本框即是輸入的地方也是顯示的地方，如果需要修改的話修改以后按提交；如果不需要修改就可以直接按提

44、交按鈕。在這里因為本教程適合初學(xué)的，所以也把提交的表單內(nèi)容給出來，把下面代碼存為文件<form name="form1" method="post" action="exam8.asp">請輸入要修改的記錄的ID：<input type="text" name="id"><br><input type="submit" name="submit" value="提交"></form&

45、gt;這里還有一個東西以前沒有說，那就是隱藏的表單元素：hidden元素，里面的value是不用用戶輸入的，會隨著表單一起提交，用于傳遞變量。下面是的代碼：<%set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("data/guestbook.mdb")exec="select * from guest where id=&qu

46、ot;&request.form("id")set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,3rs("name")=request.form("name")rs("tel")=request.form("tel")rs("message")=request.form("message")rs.updaters.closeset rs=nothing

47、conn.closeset conn=nothing%>在這里，rs.open exec,conn,1,3后面的參數(shù)是1，3，這我以前提過，修改記錄就要用1，3。實際上修改記錄很容易看懂，記錄集是rs，rs("aa")就是當(dāng)前記錄aa字段的東西，讓它等于新的數(shù)據(jù)request.form("aa")當(dāng)然就修改了，不過最后別忘記保存，那就是rs.update！說到這里，記錄的搜索，讀取，修改，插入都說了，通過這最基本的東西就可以作出復(fù)雜的東西了，外面的大型數(shù)據(jù)庫：新聞系統(tǒng)，留言簿就是字段多一點罷了。今天的示例中的代碼是結(jié)合以前的數(shù)據(jù)庫的，以后回去調(diào)試分

48、析一下。單擊提交后，在下圖中修改記錄修改后單擊提交，如下圖，說明已經(jīng)修改成功下一節(jié)：組件介紹菜鳥十天學(xué)會ASP教程之第九天：Session組件  更新日期：2005-09-01 08:57  出處：網(wǎng)頁教學(xué)網(wǎng)  作者：閃電兒上一節(jié)：修改記錄學(xué)習(xí)目的：基本的SESSION組件，總結(jié)response，request組件。首先，有會員系統(tǒng)的任何程序都會用到檢測是不是用戶已經(jīng)登陸這個步驟。這就用到了SESSION組件，下面我們 看一個代碼來說明。<%session("login")="yes"%>這句話的意思就是在ses

49、sion里面定義一個login字符串變量，值為"yes"，直接可以賦值，不需要聲明。是不是很簡單？如果我們做管理員登陸系統(tǒng)的話，首先是一段檢測是不是管理員：if 是 then session("isadmin")=yes"else session("isadmin")="no"end if在每一個需要管理員才能看的頁面最前面加上：<%if not session("isaadmin")="yes" thenresponse.redirect "log

50、in.htm"%>這樣一般用戶就無法打開這個頁面。解釋一下response.redirect，它是轉(zhuǎn)向的意思，后面的"login.htm"就是轉(zhuǎn)向的文件。這樣沒有登陸的管理員是無法看到后面的內(nèi)容的。response組件基本就是用到response.write()，response.redirect() 分別是寫字符串和轉(zhuǎn)向的作用。request基本就是request.form()，request.querystring() 分別是接受post,get方法傳來的信息。最后我們一起來制作一個簡單的后臺登陸管理界面，首先在myweb目錄下建立一個admin文件夾，

51、然后我們建立一個數(shù)據(jù)庫名字為admin.mdb，然后我們再建立一個表，表中設(shè)置兩個字段name,password，類型都是文本型的！最后退出時設(shè)置主鍵，保存為表名check。然后可以輸入一條記錄用戶名：admin，密碼：admin。具體建立數(shù)據(jù)庫的方法請看菜鳥十天學(xué)會ASP教程之第三天：數(shù)據(jù)庫的建立下面我們開始編寫ASP程序，首先建立一個index.asp(管理主界面)程序，代碼如下：<%language=vbscript%><%if not session("checked")="yes" then response.Redirect

52、 "login.asp"  else%><html><head><title>管理界面</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset cols="167,*" frameborder="YES" border="1" framespacing=&q

53、uot;1" rows="*" bordercolor="#666666">   <frame name="leftFrame" scrolling="auto" noresize src="left.asp">  <frame name="mainFrame" src="right.asp"></frameset><noframes> <body bgcolor=&

54、quot;#FFFFFF" text="#000000"></body></noframes> </html><%end if%>login.asp：/登陸系統(tǒng)程序<html><head><title>管理員入口</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/

55、css"><!-.topic   font-family: "宋體" font-size: 11pt; font-weight: bold; color: #FFFFFF.font   font-family: "宋體" font-size: 10pt; font-weight: normal; color: #000000.table   border-color: #666666 black; border-style: solid; border-top-width: 1pt; border-ri

56、ght-width: 0px; border-bottom-width: 1pt; border-left-width: 0px.text   border: 1pt #999999 solid; height: 15pt-></style></head><body text="#000000" topmargin="0" bgcolor="#FFFFFF"><table width="100%" border="0" cellpaddi

57、ng="0" cellspacing="0" align="center" height="100%">  <tr>     <td height="129" valign="top" colspan="3">&nbsp; </td>  </tr>  <tr>     <td width=

58、"230" height="170" valign="top">&nbsp;</td>    <td valign="top" width="277">       <table width="100%" border="0" cellspacing="1" cellpadding="0" he

59、ight="100%" bgcolor="#000000" align="center">        <tr>           <td align="center" valign="middle" height="167">     

60、;       <form name="form1" method="post" action="check.asp">              <table width="100%" border="0" cellspacing="0" cellpadding=&qu

61、ot;0" height="100%">              <tr bgcolor="#62892C">                 <td height="31" class="topic"

62、colspan="2">                   <div align="center">管理員入口<br>                  </div> 

63、;               </td>              </tr>              <tr>     

64、;                              <td bgcolor="#87bc3c" colspan="2" class="table">        &#

65、160;            <div align="center"> <span class="font"> 管理員：</span>                       <input t

66、ype="text" name="name"  class="text" size="20" onMouseOver="this.focus()">                      <br>     &

67、#160;                <span class="font">密&nbsp;碼：</span>                       <input type=

68、"password" name="password" class="text" size="20" onMouseOver="this.focus()"><%if session("check")="wrong" then response.Write "<br><span class='font'><font color=red>驗證錯誤!</font></spa

69、n>" end if%>                    </div>                  </td>      

70、                     </tr>              <tr>               

71、;  <td bgcolor="#87bc3c" width="52%">                     <div align="center" class="font">         

72、60;            <input type="reset" name="Submit2" value="重置" class="text">                    </div&g

73、t;                </td>                <td bgcolor="#87bc3c" width="48%">        &#

74、160;            <div align="center" class="font">                      <input type="submit" name=&quo

75、t;Submit22" value="提交" class="text">                    </div>                </td> &

76、#160;            </tr>            </table>   </form>          </td>        &

77、lt;/tr>      </table>    </td>    <td width="241" valign="top">&nbsp;</td>  </tr>  <tr>     <td height="123" valign="top" colspan=&quo

78、t;3">&nbsp;</td>  </tr></table></body></html>在上面的程序中用到一個檢查用戶和密碼是否正確的程序check.asp：/核對輸入的用戶和密碼是否正確<%dim name,passwordname=request.form("name")password=request.form("password")dim exec,conn,rsexec="select *from check where(name=&

79、#39;"&name&"' and password='"&password&"')"set conn=server.createobject("adodb.connection")conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("admin.mdb")set rs=server.createobject("adodb.

80、recordset")rs.open exec,connif not rs.eof thenrs.Closeconn.Closesession("checked")="yes"session("check")="right"response.Redirect "index.asp"elsesession("checked")="no"session("check")="wrong"response.Redi

81、rect "login.asp"end if%>left.asp：/管理導(dǎo)航<%language=vbscript%><%if not session("checked")="yes" then response.Redirect "login.asp"  else%><html><head><title>管理界面</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body text="#000000" top