ASP读数据库的代码

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

'如果你的是Access数据库的话，．就用这下面一段

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath("你的数据库路径")

'如果你的是SQL数据库的话，就用这下面一段

Dim Sql_DBServer,Sql_DBName,Sql_User,Sql_Password

Sql_DBServer = "(local)" '连接名(本地用(local),外地用IP如：127.0.0.1)

Sql_DBName = "数据库名" '数据库名

Sql_User = "sa" '访问数据的用户名

Sql_Password = "000000" '访问数据的密码

'-----------------------------------------------------------------------------------------------------

'以下参数请勿修改，否则可能导致系统无法运行

ConnStr = "Provider = SqloledbUser ID = " &Sql_User &"Password = " &Sql_Password &"Initial Catalog = " &Sql_DBName &"Data Source = " &Sql_DBServer &""

'上面只能选择一段

conn.Open connstr '打开数据库

sql="select top 1 * from product where bigclassname='设计作品展示' order by id desc"

set rs=conn.execute(sql)

if not rs.eof and not rs.bof then

response.write ("这就是你要读取的ID："&rs("id"))

else

response.write("没有任何数据")

end if

<% dim url

url="如何运行数据库里面的asp代码" '也可以是数据库里面的变量参数

%>

<%=URL%>

以上代码直接显示的内容就是:如何运行数据库里面的asp代码

能运行的前提是你的电脑或空间已支持asp

也就是常说的iis环境里运行

<%

dim conn,db'定义变量conn和db

dim connstr'定义变量connstr

db="Databases/db.mdb" '数据库文件位置

on error resume next '如果出现错误，就跳过，执行下面的语句

connstr="DBQ="+server.mappath(""&db&"")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"'打开数据库

set conn=server.createobject("ADODB.CONNECTION")'创建记录集conn

if err then'如果出错

err.clear'就结束

else'否则

conn.open connstr'打开数据库的记录集

end if'条件语句结束

function jincheng (p)'定义常量JINCHENG，参数为P

jincheng=p-100000000000000'变量jiancheng=p-100000000000000000

end function'函数结束

sub CloseConn()'sub定义函数CLOSECONN（）

conn.close'关闭CONN记录集

set conn=nothing'conn记录集清空

end sub'sub结束

%>

---