神马品牌网kmspico 10.1.6:关于ASP和Access数据库的问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 05:08:05
我在ASP中写了一段调用Access数据库的程序代码，代码如下：
<%call dd()%>
<%
function dd()
dim x(30)
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\t\byq.mdb"
sql="select * from srzbyq where tihao='2.3'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,2,2
x(1)=rs("Sna")
x(2)=rs("Snb")
x(3)=rs("Poa")
x(4)=rs("Pob")
x(5)=rs("Pka")
x(6)=rs("Pkb")
x(7)=rs("Ioa")
x(8)=rs("Iob")
x(9)=rs("Uka")
x(10)=rs("Ukb")
x(11)=rs("kq")
x(12)=rs("s")
x(13)=rs("kt")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
end function
%>
若在这段代码里，加上一句“response.write x(1)”网页上就会显示从数据库传递到x(1)的具体数值
但若在这段代码外，加上这句话，在网页上也就只会显示“response.write x(1)”
我想在网页中利用这些数据库的数据，该怎么办？
这是一个算法程序，要通过一个“举例按钮”的响应，将数据库里的数据显示在网页的文本框中，从而可以给人们进行举例的计算演示
<%call dd()%>
<%
function dd()
dim x(30)
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\t\byq.mdb"
sql="select * from srzbyq where tihao='2.3'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,2,2
x(1)=rs("Sna")
x(2)=rs("Snb")
x(3)=rs("Poa")
x(4)=rs("Pob")
x(5)=rs("Pka")
x(6)=rs("Pkb")
x(7)=rs("Ioa")
x(8)=rs("Iob")
x(9)=rs("Uka")
x(10)=rs("Ukb")
x(11)=rs("kq")
x(12)=rs("s")
x(13)=rs("kt")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
end function
%>
若在这段代码里，加上一句“response.write x(1)”网页上就会显示从数据库传递到x(1)的具体数值
但若在这段代码外，加上这句话，在网页上也就只会显示“response.write x(1)”
我想在网页中利用这些数据库的数据，该怎么办？
这是一个算法程序，要通过一个“举例按钮”的响应，将数据库里的数据显示在网页的文本框中，从而可以给人们进行举例的计算演示
不知道你想做什么，这段代码外就是函数外，函数体内定义的变量在外部是不可用的，不过你可以将那个数组作为函数的返回值，赋值给函数外的另外一个数组。
在end function上面加上return x
比如在函数外dim k(30)
k(30)=dd()
<%=response.write x(1)%>
试试,看行不行,我现在把ASP和JSP弄的有些混了！学的语言太多了，嘿嘿！
这个要看你具体要做什么呢
是显示 还是处理 还是传递
能说的清楚一点吗？