ASP中数组转换成字符的问题

2024-11-25 23:03:27

推荐回答（2个）

回答1：

你没有创建"connection"对象.所以首先得建一个connection对象.所以服务器就不知道你的数据库的路径,就无法从数据库中取出数据.
其次如果你的数据库中的内容很多的话还得编一个分页函数来分页显示.
不过,我们先来和数据库建立连接了再说那吧.
我这儿有一个代码.
<%
db="db1.mdb"
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(""&db&"")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from point "
rs.open sql,conn,1,1
%>
<%
if rs.eof and rs.bof then
resposne.write"

the database is empty"
else
total=rs.recordcount
pagesize=3
dim page
if not IsNumeric(request("page")) or IsEmpty(request("page")) then
page=1
else
page=Int(Abs(request("page")))
end if
total=rs.recordcount
mypagesize=rs.pagesize
rs.absolutepage=page
end if
%>

<%
response.write"

"
response.write""
response.write""

curRecord=0
do while Not rs.eof and curRecordresponse.write""
for I=0 to rs.fields.count-1
response.write""
next
rs.movenext
curRecord=curRecord+1
loop
response.write"

字段名字

"&rs(I).value&"

"
%>
注意:你没有说你的数据库名字是什么,我的这个例子的数据库的名字是"db1.mdb",你可以把它改成你自己的数据库的名字.还有就是一个路径问题.如果你的页面和数据库不在一个文件夹下的话,还在稍微改一下.不过,你先话到一个数据库里试一试吧.不过的话再说.

回答2：

dim Conn,connstr,sql,rs

Set Conn=Server.CreateObject("ADODB.Connection")
connstr="Provider = Sqloledb; User ID =sa ; Password = ; Initial Catalog =你的数据库名 ; Data Source = 数据服务器名;"
Conn.Open Connstr
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select CID,CName from Class"
rs.open sql,Conn,1,1

如果是access数据库，connstr换成
Connstr="DBQ="数据库路径";DRIVER={Microsoft Access Driver (*.mdb)};"

你说的字符串转数组用split("字符串","分隔符")