㈠ 谁懂在单行列表中显示数据库中有多行内容的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则可直接使用。
如果要修改，增加改变你自己的东西，则你需要对其进行编辑，编辑方式可以通过网页编辑工具或者记事本（记事本编辑，需要对里面比较熟悉）。