ASP前台读取数据库内容的代码

<% dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")

db="news.mdb" /*数据库名称*/

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) /*我使用的是ACCESS数据库，若是SQL,根据自己的情况，在网上找连接方法*/
conn.open connstr
set rs=server.createobject("adodb.recordset")

rs.open "select newstitle,author,adddate from news order by adddate desc",conn,1,1

do while not rs.eof
response.write"标题："&trim(rs("newstitle"))&"
作者："&trim(rs("newstitle"))&"
发布时间：" &trim(rs("adddate"))

rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

看了你的代码，你需要从基础学了。
首先你要了解asp运行的过程。
a.html是用户看到的界面，里面包含表单，a.html的代码如下

name1
name2

这各文件被客户端看到后，客户端选择列表中的内容，假如选择了name2。然后点击提交按钮。search.asp的代码如下：
<%
s=request("sel1")
response.write(s)
%>
search.asp就会把name2的value值“2”显示出来。
至于你要做查询。那就得改search.asp如下：
<%
s=request("sel1")
sql="select * from tablename where filedname='"&s&"'"
connstr="Driver={SQL Server};Description=sqldemo;SERVER="&serverIP&";UID="&DB_user&";PWD="&DB_pwd&";DATABASE="&SYS_DB_name&""

set rs=CreateObject("adodb.recordset")
rs.open s,dsn_sys,1,3
response.write(rs("filedname"))
%>
以上代码中，connstr代表asp连接数据库的字符串，你要联什么数据库，就用什么字符串，在网上找找。我给你的是sql2000的。filedname代表你的字段名称。

花几百块钱，把我开发的给你使用了。你要的那些都有。后台添加也很方便。

进我空间,点 文章ASP学习类 有你想要的答案.