㈠ 誰懂在單行列表中顯示資料庫中有多行內容的ASP源碼
難學不易懂，不過我起初學習這門技術的時候也有過這樣的感悟。從今天開始，我將以我學ASP的經驗來做一個簡單的ASP留言本，這個留言本用了Access資料庫，所以務必請大家要跟我一起做的朋友都安裝好Office軟體，相信各位自己的電腦上都有了。好了，開始。
創建ASP的運行環境（安裝IIS）
IIS(Internet Information Service)是構建ASP站點所必須的，所以，我們應該先確認自己的電腦已安裝了IIS信息服務，如果沒有安裝好的話，請按以下步驟：
1、打開「控制面板」
2、雙擊「添加/刪除程序」
3、單擊「添加/刪除Windows組件」，打開添加/刪除Windows組件對話框：
3、從下拉的列表中選擇「Internet 信息服務(IIS)」單擊「下一步」：
4、出現組件安裝進度窗口，如彈出需要安裝盤的話，放入Windows2000安裝盤，按提示操作即可。直至最後安裝完畢。
---------------------------------------------------------------------------------------------------------
二、設計資料庫
ASP程序本身並不能儲存數據，眾所周知，留言本有以下信息需要保存：留言者姓名、聯系方式、留言內容等等。因為ASP並不能儲存數據，所以資料庫在這種環境之下就產生了。資料庫的種類也很多，針對不同的程序也有適用於它的資料庫，比如Access和Ms SQL就比較適用ASP和ASP.net程序，至於其它的資料庫和程序，就不屬於本文所討論的問題了，有興趣的朋友可以查看其它一些資料。
那麼既然Access和MS SQL都適用ASP，那麼具體又如何來選擇呢？我們可以打一個比方：比如釘一枚小釘子，聰明的人一定不會用一個大的棒槌，而是選擇小的鐵錘，雖然用大的棒槌也一樣的可以把釘子釘進去，可是沒有人願意這樣做。
資料庫也一樣：Access比較適用小型的應用，而MS SQL則適用於大中型的資料庫應用，所以要做一個留言本，理所當然是選擇Access更好一些，但是如果你決心使用MS，沒有人會極力阻止你。好了，廢話少說，切入正題，下面開始創建資料庫。
Access是微軟office辦公軟體中的其中一個，默認的安裝Office是有這個Access的，好了，打開程序，開始了,GO!
進入實戰了。打開程序後，出現一個對話框，這里我們選擇第一個選項」空Access資料庫」點擊確定，彈出一個新建資料庫的文件框，選擇你上次你建的站點目錄，起個data的文件名，點擊創建，OK! 雙擊」使用設計器創建表」打開表創建窗口」如圖
創建表的結構如下表：
欄位名稱
數據類型
備注(筆者注釋)
id 自動編號 設置「自動編號」
name 文本 留言者姓名
qq 數字 留言者的QQ，因為QQ號是由數字組成
email 文本 留言者的電子郵件
content 備注 留言內容
data 日期/時間 留言時間，設定默認值為Now()
資料庫設計好了以後，可以直接在資料庫里添加兩條記錄，以後測試時候用！這一節就到此了
-------------------------------------------------------------------------------------------------
三、連接資料庫
在上一節，我們已經為我們的程序創建了一個資料庫，在這一節中，我們來用ASP把程序和資料庫連接起來，以後就可以連接到資料庫、在ASP中顯示資料庫中的數據以及更復雜的插入、修改和刪除。
一起看以下代碼，這就是ASP程序中常用的連接資料庫的代碼：
<%
set conn=server.createobject("adodb.connection")
c&server.mappath("data.mdb")
conn.open connstr
%>
解釋一下以上代碼：
<% '這是ASP程序的起始
set conn=server.createobject("adodb.connection") '在伺服器上創建了一個連接資料庫的對象
c&server.mappath("data.mdb") '告訴ASP資料庫的接接方法以及路徑
conn.open connstr '創建了對象後就用來打開資料庫進行連接
%> '一切OK了!結束ASP程序
將上面的代碼另存為conn.asp文件，放在伺服器目錄下面就可以了。怎麼樣，簡單吧？
這一節是最重要的，一定要弄明白，否則以後操作資料庫將變得不現實，如果有不懂的問題，歡迎和我討論，我的電子郵件地址是。這一節就到此，下節我們就將資料庫中的數據顯示在頁面中（這就實現了留言本的查看功能）
---------------------------------------------------------------------------------------------
四、製作留言本首頁
前面我們已經連接好了資料庫，就要讓它在這里發揮一下作用了，這一節將講述如何將資料庫里的數據用ASP讀取出來，在頁面中顯示出來，這樣就等於是查看留言本了。
利用DW製作首頁面（這里我就不講如何去做這個頁面了，最後我將會給出HTML代碼下載）
將製作好的文件存為index.asp，下面就創建數據記錄集，用來顯示資料庫的數據到這個頁面中：
用記事本打開index.asp，在頁頭加入以下代碼：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select user,qq,email,content,data from main order by id desc"
rs.open sql,conn,1,1
%>
解釋一下：
第一行，表明ASP使用的是VB腳本
第二行，是用include包含文件，這里包含的是資料庫連接文件。
第三行，ASP程序開始
第四行，利用Server內置對象創建一個記錄集
第五行, SQL語句，這里的意思是選擇資料庫中的user,qq,email,content,data欄位，指定該數據表的名稱是「main」數據 的排列順序是倒序。
第六行，用剛才創建的名為rs的記錄集打開資料庫，設置屬性為只讀（1,1為只讀數據,1,3為插入數據，2,3是修改數據。
這樣就打開了資料庫，接下來就可以顯示了。
將「留言人」代替為「<%=rs("user")%>
「時間」代替為「<%=rs("data")%>
「留言內容在此」代替為「<%=rs("content")%>
「QQ」鏈接到<;;%=rs("qq")%>
「郵件」鏈接到：mailto:<%=rs("email")%>
最後將「填寫留言」鏈接 add.asp 「管理留言」鏈接 admin.asp
好了，再次保存，瀏覽看看！
怎麼了？只顯示一條記錄？原來我們在資料庫里添加了兩條記錄的哦！還有一條呢？別急，因為我們沒有指定ASP循環顯示，所以就只有一條啦。。。
在剛才的代碼後面添加一行
<%do while not rs.eof%>
並在頁面的第一個表格的末尾加上
<%
rs.movenext
loop
%>
上面的代碼就是說用rs記錄集指針一條一條往下一條移動，直到末尾，loop是循環的意思。。哈哈，再次瀏覽這個文件
看明白了嗎，這樣就可以讓資料庫中的數據全部顯示在頁面中了，好了，這節就到這，下節講一個也很重要的部份（添加留言功能。)
--------------------------------------------------------------------------------------------------
五、製作添加留言頁面，實現留言功能
我們是做的一個留言本，實現留言的功能就十分重要了，要不然就算不上留言本了，接下來就一起來實現這個功能。
用DW製作以下這樣的頁面：
設置表單的屬性如下：
姓名：設置為單行文本域，名稱為「user」
QQ號：設置為單行文本域，名稱為「qq」
郵件：設置為單行文本域，名稱為「email」
內容：設置為多行文本域，名稱為「content」
最後將表單的「Action」動作指向addsave.asp就可以了。
保存文檔名為add.asp，OK！下一步！
表單是做好了，但是還需要後台程序的支持，一起來使用ASP編寫一個添加留言處理程序，添加留言代碼：
<%@LANGUAGE="VBScript" codepage="936"%> '表明ASP使用的是VB腳本
<!--#include file="conn.asp"--> '是用include包含文件，這里包含的是資料庫連接文件
<%
set rs=server.createobject("adodb.recordset") '利用Server內置對象創建一個記錄集
sql="select user,qq,email,content,data from main" 'SQL語句，上節有詳解
rs.open sql,conn,1,3 '用剛才創建的名為rs的記錄集打開資料庫，設置屬性為插入數據
rs.addnew '用記錄集新添加一條數據
user=request.form("user") '請求表單的變數，定義變數為user，這里request.form是請求表單的意思
qq=request.form("qq") '請求表單的變數，定義變數為qq，這里request.form是請求表單的意思
email=request.form("email") '請求表單的變數，定義變數為email，這里request.form是請求表單的意思
content=request.form("content") '請求表單的變數，定義變數為content，這里request.form是請求表單的意思
rs("user")=user '將請求到的表單值傳向記錄集中代表user欄位的名稱
rs("qq")=qq '將請求到的表單值傳向記錄集中代表qq欄位的名稱
rs("email")=email '將請求到的表單值傳向記錄集中代表email欄位的名稱
rs("content")=content '將請求到的表單值傳向記錄集中代表content欄位的名稱
rs.update '更新一下資料庫中的數據。
rs.close '關閉記錄集
set rs=nothing '銷毀記錄集
conn.close '關閉資料庫連接
set rs=nothing '銷毀資料庫連接
%>
將以上文件存為addsave.asp，測試下！咦？怎麼填好提交以後就出現空白了，為什麼？這是因為在addsave.asp中沒有設置數據成功提交好後的轉向頁面，這里不用做那麼復雜的，只要做一個刷新頁面就行了，在程序的後面加上：
<meta http-equiv="refresh" c>
然後在頁面中添加提示信息，比如：「您的留言已經成功提交，2秒鍾後將自動返回留言本首頁」
好了，這個留言的功能總算實現了，最後再測試下，看看效果！
OK！這個留言功能的實現教程就到這里了
㈡ 在哪能下到ASP源代碼
兄弟，這里有數千個ASP源碼，有很多留言本和論壇的源碼，你可以去看看：
http://code.knowsky.com/down.asp?typeid=1
㈢ 請人修改一下asp源碼
我用的是「就愛設計V6版」更改的,程序就是你提供的那個源程序：
第一步：將下載下來的壓縮包解壓，解後在得到的文件夾下面找到「inc」文件夾，復制到你網站的目錄下；保留effects.js、lightbox.css、lightbox.js、prototype.js、scriptaculous.js這五個文件，其它的可刪除。
第二步：在你顯示照片的那個文件中的<head></head>區域加入如下代碼：
<link rel="stylesheet" href="inc/lightbox.css" type="text/css" media="screen" />
<script src="inc/prototype.js" type="text/javascript"></script>
<script src="inc/scriptaculous.js?load=effects" type="text/javascript"></script>
<script src="inc/lightbox.js" type="text/javascript"></script>
注意上面的路徑，根據自己的實際情況調整。
第三步：你圖片的超鏈要改成如下格式：<a href="Images/2006561019522.jpg" rel="lightbox[plants]"><img src="Images/2006561019522.jpg" width="49" height="49" border="0"></a>
即<a>中，href值要為圖片地址，後面還要加rel="lightbox[plants]" ,如果沒有則不會達到那樣的效果；
◆我將你的源碼改成如下：
<%
set skinrs=conn.execute("select proct_skins from sd_skins where id="&sd_web(5)&"")
if skinrs.eof then
response.Redirect("error.asp?title="&server.URLEncode("模板參數設置錯誤")&"")
response.End()
else
show=skinrs(0)
webcode
response.Write(""&show&"")
end if
sub showpic(n,w,h,m)
show_pic="<table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td height='4'></td>"
show_pic=show_pic&"</tr>"
show_pic=show_pic&" </table>"
show_pic=show_pic&"<table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>"
show_pic=show_pic&" <tr>"
classid=trim(request("classid"))
if classid="" or not isnumeric(classid) then
classid=0
else
set rs1=conn.execute("select id from sd_class where followid="&classid&"")
tj="classid="&classid&" "
while not rs1.eof
tj=tj&" or classid="&rs1(0)&""
rs1.movenext
wend
end if
select case classid
case "0"
sql="select id,title,pic from sd_proct order by id asc"
case else
sql="select id,title,pic from sd_proct where "&tj&" order by id asc"
end select
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
show_pic=show_pic&"沒有資料"
else
rs.pagesize=clng(n)
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
i=0
k=0
Do While Not rs.Eof
show_pic=show_pic&" <td><table border='0' cellspacing='2' cellpadding='0'>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&" <td colspan='2'><a href='"&rs(2)&"' rel='lightbox[plants]'>"
show_pic=show_pic&"<img src='"&rs(2)&"' alt='"&rs(1)&"' width='"&w&"' height='"&h&"' border='0' class='proct'></a></td>"
show_pic=show_pic&"</tr>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td width='50%' height='30' align='left'>產品編號:<a href='showproct.asp?id="&rs(0)&"'>"&classid&"-"&rs(0)&"</a></td>"
show_pic=show_pic&"</table></td>"
i=i+1
k=k+1
if k=clng(m) then
k=0
show_pic=show_pic&"</tr><tr>"
end if
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop
show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td height='30' colspan='3' align='center'>共有: "&rs.recordcount&" 信息 "
show_pic=show_pic&"<a href="&request.ServerVariables("url")&"?classid="&classid&">首頁</a> "
show_pic=show_pic&"<a href="&request.ServerVariables("url")&"?page="¤tpage-1&"&classid="&classid&">上一頁</a>"
show_pic=show_pic&" <a href="&request.ServerVariables("url")&"?page="¤tpage+1&"&classid="&classid&">下一頁</a>"
show_pic=show_pic&" <a href="&request.ServerVariables("url")&"?page="&rs.pagecount&"&classid="&classid&">尾頁"
show_pic=show_pic&"</a></td>"
show_pic=show_pic&"</tr>"
end if
show_pic=show_pic&"</table>"
end sub
%>
㈣ 如何讀取ASP輸出的html源代碼
<%
On Error Resume Next
dim conn
dim connstr
dim webdb
webdb="xqloginback/xqjtDatabase/xqjtdb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&webdb&"")
conn.Open connstr
newlist=""
set rs=server.CreateObject("adodb.recordset")
sql="select id,name,addtime from new order by id desc"
rs.open sql,conn,1,1
pagesum=10
topage=clng(request("topage"))
if topage<1 then topage=1
rs.pagesize=pagesum
if not rs.eof then
rs.absolutepage=topage
end if
no=1
do while not rs.eof and not rs.bof and pagesum>0
newlist=newlis&"<table width='90%' height='25' border='0' align='center' cellspacing='0'>"
newlist=newlis&"<tr>"
newlist=newlis&"<td width='539'><a href='new_view.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&" </a></td>"
newlist=newlis&"</tr></table>"
<%
rs.movenext
pagesum=pagesum-1
no=no+1
loop
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set templates = fso.OpenTextFile(server.MapPath("template.html"))
str=templates.readall()'讀出結果，賦值給str
set fso=nothing
set templates=nothing
str=replace(str,"$newlist$",newlist)
fileName="28ke.html"
Set createHtml = Server.CreateObject("Scripting.FileSystemObject")
Set htmlFile = createHtml.CreateTextFile(server.MapPath(fileName))
htmlFile.write(str)
set htmlFile=nothing
set createHtml=nothing
%>
㈤ 如何查看ASP源代碼
下載一個FLASHGET
比如:一個網址為:../ip.asp
那麼你在FlashGet中點F4把這個地址下載下來,
再把DW或者記事本打開.ASP就出來了.
㈥ 下載的asp源碼模板怎麼使用
怎麼使用？這個問題問得有點奇怪
ASP運行，需要服務端，首先確保你電腦有運行ASP的服務端，或者IIS，或者上傳至ASP服務空間（最簡單的就是有個小ASP服務小軟體，你將其放至ASP源碼目錄下，運行，然後在IE中輸入127.0.0.1，既可訪問）。
至於使用嘛，不修改，通過你上傳的服務IP則可直接使用。
如果要修改，增加改變你自己的東西，則你需要對其進行編輯，編輯方式可以通過網頁編輯工具或者記事本（記事本編輯，需要對裡面比較熟悉）。