求代码,ASP连接SQL Server数据库,在线等

xabba 2003-04-18 03:07:15

数据库主机名:ICE
数据库:gs
表:jbxx
管理:sa
密码:sa

只有几条记录,ASP代码,表格显示所以记录
在线等~~~~

...全文

51 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

xabba 2003-04-18

打赏
举报

数据库和IIS都在主机ice上

xabba 2003-04-18

打赏
举报

能改的我都改了,用了dengdonghua(阿毫)的代码还是不行阿
找不出错了,郁闷~~~~~
IDC的都可以连上,我的就不行~~~

boy21cnthp 2003-04-18

打赏
举报

path = "Driver ={SQL Server}; Server = ice; Database = gs; UID =sa; PWS = sa"

tigerwen01 2003-04-18

打赏
举报

conn.asp
--------
<%
set conn = Server.CreateObject("ADODB.Connection")
path = "Driver ={SQLServer}; Server = ice; Database = gs; UID =sa; PWS = sa"
^SQL Server 注意，这里有空格！
conn.open path
%>

newsina 2003-04-18

打赏
举报

"for i=0 to rs.fields.cound-1"里的cound改为count

dengdonghua 2003-04-18

打赏
举报

<html>
<body>
<table width="100%" border=1 align="center" bgcolor="#ffffff">
<%

set rs = Server.CreateObject(ADODB.Recordset)
rs.open jbxx,conn,1,3
if not rs.eof then
rs.MoveFirst
do While Not rs.eof
Response.write "<TR>"
for i=0 to rs.fields.count-1
Response.write "<TD>" & rs.Fields(i).value & "</TD>"
next
Response.write "</TR>"
rs.movenext
loop
end if
%>
</table>
</body>
<%
rs.close
set rs=nothing
%>
</html>

newsina 2003-04-18

打赏
举报

"for i=0 to rs.fields.cound-1"
这一句是不是有问题：应该是 "*.count-1"吧，是count而不是cound

xabba 2003-04-18

打赏
举报

各位,帮帮忙阿
看看哪里出错了,是ASP出错了,还是SQL没有连通呢

xabba 2003-04-18

打赏
举报

少了个rs.movenext

xabba 2003-04-18

打赏
举报

提示服务器内部错误

xabba 2003-04-18

打赏
举报

帮我看看我的代码:
conn.asp
--------
<%
set conn = Server.CreateObject("ADODB.Connection")
path = "Driver ={SQLServer}; Server = ice; Database = gs; UID =sa; PWS = sa"
conn.open path
%>

index.asp
---------


<html>
<body>
<table width="100%" border=1 align="center" bgcolor="#ffffff">
<%

set rs = Server.CreateObject(ADODB.Recordset)
rs.open jbxx,conn,1,3

if not rs.eof then
rs.MoveFirst
While Not rs.eof
Response.write "<TR>"
for i=0 to rs.fields.cound-1
Response.write "<TD>" & rs.Fields(i).value & "</TD>"
next
Response.write "</TR>"
wend
%>
</table>
</html>
</body>

不知道哪里错了
SQL server没有问题,因为同事用IDC可以正常使用

f30 2003-04-18

打赏
举报

set conn=server.createobject("adodb.connection")
conn.open "server=ICE;uid=sa;pwd=sa;database=gs"
set rs=server.createobject("adodb.recordset")
rs.open "select * from jbxx",conn,3,3,1
do while not rs.eof
response.write(.....)
rs.movenext
loop
rs.close()
set rs=nothing
conn.close()
set conn=nothing

NavyBlue 2003-04-18

打赏
举报

本地的服务器：
Set Conn=Server.CreateObject("ADODB.CONNECTION")
connstr="DRIVER={SQL Server};Server=ICE;DataBase=gs;UID=sa;PAssword=sa"
Conn.Open connstr

还可以通过Dsn连接
conn.Open "FileDsn=dsn文件的路径"