中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

前言: 
　　前幾天看了《請不要做浮躁的人》這篇文章.真是收益非淺..每看這篇文章就會臉紅一次.想想學(xué)習(xí)ASP這么長時間了..居然還是屬于菜鳥級的人物.說來慚愧那.可能跟自己的努力程度和實(shí)踐程度有關(guān).文中有句話說的好: 菜鳥學(xué)習(xí)腳本的方法就是多練習(xí).  的確是這樣,世界上本來就沒有跨不過去的坎..關(guān)鍵在于你要去做.光說不練是假把式....我想只要你去做了,你就不可能永遠(yuǎn)菜下去...  那好....廢話不說了,切入正題.

　　學(xué)習(xí)ASP有段時間了..對一些基礎(chǔ)的東西也有了一些了解.比如常用的內(nèi)置對象的用法.那么現(xiàn)在你需要開始動手規(guī)劃你的第一個留言本.人都有第一次嗎?是不是....你要把那些知識用到實(shí)戰(zhàn)中去以檢驗?zāi)愕腁SP學(xué)習(xí)成果..那,留言本其實(shí)是最好的練手機(jī)會.因為留言本從結(jié)構(gòu)上來說不是很復(fù)雜...而且會用到很到ASP中比較基礎(chǔ)的東西.你獨(dú)立完成的這個留言本是你的第一個作品,好說也有點(diǎn)成就感嘛.而且對你的ASP技術(shù)進(jìn)階也有很大的幫助.....省略1000字..哎..我這個人就是喜歡羅嗦..就此打住...  我們馬上開始...

一. 制作思路
　　思路其實(shí)是一個很重要的東西.寫程序尤其是如此.誰都沒有把握去編寫一個還沒有思考成熟的東西. 先明確一點(diǎn),這個留言本沒有用到任何新技術(shù).[是給菜鳥看的嘛].因為這個教程的目的不在于創(chuàng)新而在于練習(xí).

　　大體的思路是這樣:  需要一個數(shù)據(jù)庫存放留言的內(nèi)容等.然后用ASP讀出數(shù)據(jù)庫中的內(nèi)容顯示在頁面上. 主要講解了一下在ASP中運(yùn)用ADO和SQL語句對數(shù)據(jù)庫的一些基本操作.比如最常用的Select語句.對了.就是這樣.關(guān)于ADO請參閱相關(guān)資料...
    在這個極簡單的留言本中用到的文件清單:
    Liuyan.mdb    '留言本數(shù)據(jù)庫文件
    Install.asp   '留言本表結(jié)構(gòu)創(chuàng)建文件
    Show.asp      '顯示留言主文件
    Add.htm       '添加新留言表單
    Insert.asp    '插入新留言文件
    login.asp     '管理員登錄文件
    del.asp       '刪除留言文件

二.建立數(shù)據(jù)庫
1.打開你的Access建立一個文件名為:Liuyan.mdb.添加以下字段:
   (1). ID        類型為自動編號(存放留言的ID編號)
   (2). Name      類型為文本字段(存放留言人的姓名)
   (3). Homepage  類型為文本字段(存放留言人的主頁)
   (4). Title     類型為文本字段(存放留言的主題)
   (5). Neirong   類型為備注字段(存放留言的內(nèi)容)

　　當(dāng)然你可以自己添加你認(rèn)為需要的字段，如果你把字段名或表名換成其它名稱，則對程序也要作出相應(yīng)的更改，不然會出錯。如果你不想手工建表及添加字段，那你可以在瀏覽器中運(yùn)行Install.asp文件，它可以自動建表，你就可以偷懶了:)

2. 在開始編寫之前有必要羅列下在這個留言本中用的的SQL語句.也是留言本的原理.
以本數(shù)據(jù)庫為例:

'檢索出數(shù)據(jù)庫中的留言并最新的留言在前
Sql=SELECT * FROM liuyan ORDER BY id DESC
'這個語句是簽寫新留言時用到的.
 Sql=INSERT INTO liuyan(name,homepage,title,neirong) VALUES
('name','homepage',title','neirong') 

　　這兩條語句是今天要用到的.還有很多基本語句比如Delete,update等并沒有在這個留言本中用到.你可以自己試著完善.

三.編寫代碼
　　1.Install.asp：考慮到手工建表有點(diǎn)麻煩，所以寫了這個文件。文件主要用到CREATE TABLE和DROP TABLE語句，不過由于數(shù)據(jù)庫的原因，有些數(shù)據(jù)庫有可能不支持此語句。本文以Access為例，因為ACCESS支持這兩條語句，如果還是新手還看不懂那也沒關(guān)系，以為有機(jī)會再研究好了:)。由于不清楚數(shù)據(jù)庫定義了那些關(guān)鍵字，所以在創(chuàng)建表和字段時，都用[]把表名和字段名括起來，即使表名或字段名和數(shù)據(jù)庫的關(guān)鍵字沖突，也不會引起程序出錯。不過運(yùn)行本程序前，必須先在Access中創(chuàng)建一個數(shù)據(jù)庫名稱為liuyan.mdb，可以不為其創(chuàng)建表，用此程序來創(chuàng)建。
Install.asp的源代碼：
<% '此文件在執(zhí)行后最好刪除，因為如果不注意再次執(zhí)行的話，將會使數(shù)據(jù)庫的所有數(shù)據(jù)丟失，切記！ Dim SYS_strTableName,SYS_strSQL,SYS_objRS '需要創(chuàng)建的表的名字 SYS_strTableName = "liuyan" Set objConn = Server.CreateObject("ADODB.Connection") 'OLEDB方式打開數(shù)據(jù)庫的Connection對象連接字符串 strcon="provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath("liuyan.mdb") objConn.open strcon'和數(shù)據(jù)庫已經(jīng)建立連接可對其操作了. 'DROP TABLE是一條從數(shù)據(jù)庫中刪除表的SQL語句。有些數(shù)據(jù)庫有可能不支持。 SYS_strSQL = "DROP TABLE [" & SYS_strTableName & "]" '刪除表時，如果有錯誤出現(xiàn)則跳轉(zhuǎn)執(zhí)行下語句 '因為如果DROP TABLE一個數(shù)據(jù)庫中并不存在的表時，就會導(dǎo)致程序出錯， '所以加了這個語句On Error Resume Next On Error Resume Next objConn.Execute (SYS_strSQL) '因為On Error Resume Next比較耗資源，執(zhí)行這條語句后，下面再出現(xiàn)錯誤將不會被跳轉(zhuǎn)了也就是On Error Resume Next將不對此后的語句產(chǎn)生作用了，如果不加這句話，就對此后的都起屏蔽錯誤的作用。 On Error Goto 0 '創(chuàng)建表格的主要是用CREATE TABLE語句 'CREATE TABLE tablename (fieldname1 fieldytype1,fieldname2 fieldtype2......) SYS_strSQL = "CREATE TABLE [" & SYS_strTableName & "] (" '此為創(chuàng)建自動編號類型的字段id SYS_strSQL = SYS_strSQL & "[id] integer IDENTITY (1, 1) PRIMARY KEY NOT NULL ," '創(chuàng)建文本類型的字段name，并限定該字段的長度為50(char(50)實(shí)現(xiàn)該功能),不能為空(NOT NULL) SYS_strSQL = SYS_strSQL & "[name] char (50) NOT NULL," '創(chuàng)建文本類型的字段homepage，并限定該字段的長度為50(char(50)實(shí)現(xiàn)該功能),允許為空(NULL) SYS_strSQL = SYS_strSQL & "[homepage] char (50) NULL ," SYS_strSQL = SYS_strSQL & "[title] char(50) NOT NULL," '創(chuàng)建備注類型的字段neirong SYS_strSQL = SYS_strSQL & "[neirong] memo)" Set SYS_objRS = objConn.Execute(SYS_strSQL) '顯示創(chuàng)建成功信息。 Response.Write ("<br><font color=""#ff0000"">" & SYS_strTableName & "</font> 表創(chuàng)建成功！<br>") %>
[Ctrl+A 全部選擇 然后拷貝]

　　2.show.asp文件基本思路: 把每一條留言以表格的形式存放標(biāo)準(zhǔn)Html中.然后通過Asp中的Do while方法循環(huán)打印出表格.利用ADO對象依次讀出數(shù)據(jù)表的留言內(nèi)容顯示在頁面上.暫時沒有分頁功能.....因為這是個最簡單的留言本嗎?^_^..

　　先定義數(shù)據(jù)庫連接對象..采用標(biāo)準(zhǔn)的Oledb連接方式.主要用到Connection、RecordSet這兩個對象.就是我們讀出的記錄集變量．
show.asp的源代碼：
<html> <head> <title>最簡留言本</title> <LINK href="style.css" rel=stylesheet type=text/css> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head> <body leftmargin="1" topmargin="0"> <% Set conn = Server.CreateObject("ADODB.Connection") strcon="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("liuyan.mdb") conn.open strcon '和數(shù)據(jù)庫已經(jīng)建立連接可對其操作了. Set rs = Server.CreateObject ("ADODB.Recordset") '建立Recordset記錄集對象 sql = "SELECT * FROM Liuyan ORDER BY id DESC" '上面提到的Sql語句．作用是取出數(shù)據(jù). rs.Open sql,conn,1 '用RS對象的Open方法打開數(shù)據(jù)庫并把數(shù)據(jù)存放進(jìn)記錄集中.... If rs.Bof And rs.Eof Then '表中還沒有任何記錄 '在屏幕上居中顯示"還沒任何留言！"，并給出"添加新留言"的鏈接 Response.Write("<center>還沒有任何留言！<br>請<a href=""Add.htm"">添加新留言</a></center>") '強(qiáng)制終止程序的執(zhí)行，在調(diào)試ASP程序時經(jīng)常要用到這句 Response.End End If Do While Not rs.eof '循環(huán)讀出所有記錄 'Server.HtmlEncode(字符串)主要是原樣輸出HTML和JavaScript代碼 %> <!-- html表格部分--> <table align=center width=65% cellspacing=1 cellpadding=4 bgcolor="#999999"> <tr> <td width=72 height="" align=center valign="middle" bgcolor="#003366"><font color="#FFFFFF">留言本:</font></td></tr> <tr> <td width="72" height="0" valign="middle" bgcolor="#E6E6E6"><font color="#000000">姓名：</font></td><td height="20" bgcolor="#E6E6E6"> <%=server.htmlencode(rs("name"))%> </td> </tr> <tr> <td width="72" height="0" valign="middle" bgcolor="#FFFFFF"><font color="#000000">hompage:</font></td> <td height="20" bgcolor="#FFFFFF"><%= server.htmlencode(rs("homepage"))%> </td></tr> <tr> <td width="72" height="20" bgcolor="#E6E6E6"><font color="#000000">主 題：</font></td> <td height="20" bgcolor="#E6E6E6"><%=server.htmlencode(rs("Title"))%></td></tr> <tr style="word-break:break-all"> <td width="72" height="20" bgcolor="#E6E6E6"><font color="#000000">留 言：</font></td> <td height="20" bgcolor="#E6E6E6"><%= server.htmlencode(rs("neirong"))%> </td></tr></table><br> <!--' Html部分結(jié)束--> <% rs.movenext Loop '關(guān)閉對象并釋放資源 rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %> </body> </html>
[Ctrl+A 全部選擇 然后拷貝]

出處：藍(lán)色理想
責(zé)任編輯：cjj

上一頁 下一頁 [Asp]教你制作簡單的留言簿

◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論