ASP如何取值

答案:4 悬赏:0 手机版

解决时间 2021-04-28 04:35

提问者网友：原来太熟悉了会陌生
2021-04-27 04:51

tiger="45,75,85,95,100"

tiger的值来自ACCE数据库tiger.mdb 字段名为QU的记录值

如何才能得到tiger这个变量的值

给出全代码哟

最佳答案

五星知识达人网友：舍身薄凉客
2021-04-27 05:00

On Error Resume Next '处理完错误后继续执行，防止异常

Dim Conn: Conn = Server.CreateObject("Adodb.Connection") '建立COM模型对象

Dim DBPath: DBPath = Server.MapPath("tiger.mdb") '数据库路径,Server.MapPath用于取得绝对路径

Conn.Open("Provider=Microsoft.Jet.Oledb.4.0;" & "Data Source = " & DBPath '打开对象
Dim Rs: Rs = Server.CreateObject("Adodb.Recordset") '建立COM模型对象
Dim Sql: Sql = "Select QU From 表名" '存贮SQL语句,其中'QU'是字段,但您的问题没有说明数据库表名,因此'表名'需要修改为实际表名.
Rs.Open Sql, Conn, 1, 1 '执行SQL语句

Dim tiger: tiger = Cstr(Rs("QU"))
Response.Write tiger '输出"45,75,85,95,100"

Rs.Close(): Conn.Close() '关闭对象

Set Rs = Nothing: Set Conn = Nothing '终止对象

全部回答

1楼网友：洒脱疯子
2021-04-27 06:45

<% set con=server.CreateObject("adodb.connection") provider="provider=microsoft.jet.oledb.4.0;" dbpath="data source="&server.MapPath("tiger.mdb") con.open provider&dbpath set rs = CreateObject("adodb.recordset")

sql="select * from 表名"

rs.open sql,con,3,3

while not rs.eof

tiger=rs("QU")

rs.movenext

wend

你用这个试试,我不知道你的表名,你自己改下,还有注意这句话中dbpath="data source="&server.MapPath("tiger.mdb")中的database的路径

2楼网友：野慌
2021-04-27 06:33

你是不是想要连接数据库呢，这个就是了。

<% set 对像名=server.createobject("adodb.connection") 对像名.open "driver={microsoft Access driver (*.mdb)};dbq="&server.mappath("数据库路径") %>

3楼网友：千夜
2021-04-27 06:17

set conn = CreateObject("ADODB.CONNECT")

set rs = CreateObject("ADODB.RECORDSET")

sql = "select * from tiger"

rs.open sql, conn, 1,1

.....

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息