ASP读数据库的代码

Set conn = Server.CreateObject("ADODB.Connection")
'如果你的是Access数据库的话，．就用这下面一段
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data 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 = Sqloledb; User 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

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("[数据库路径]")
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 (rs("id"))
response.write ("[你要调出来的东西]")
else
response.write("没有作品")
end if

方括号里的是你自己要改的,别说你一点看不懂,否则就当我没说

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