在本地进行调试可以 但是只要server换成具体的ping出来的那个地址 就会报错 求大神们帮忙啊 跪谢
<%
Dim adocon
Dim outstr
set adocon=server.createobject("adodb.connection")
adocon.Open"Driver={SQL Server};Server=(local);UID=sa;PWD=123;"&"database=coke;"
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Shop_Products"
rs.Open sql,adocon,3,2
<!-- 循环输出数据库中数据 -->
do while not rs.eof
response.write rs("ProductId")
rs.movenext
loop
%>