新手求教ASP连SQL Server的问题

芒果仔 2011-10-20 04:12:47
在SQL Server新建了一个数据库叫Shop,在Shop中新建了一个表Cup

现在需要对这个表进行访问,显示其中的内容

<%

Dim Conn, rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server}; Database=Shop;
Server=(Local);uid=sa;pwd=123456"

Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,3,2

%>

<%

Do While Not rs.eof

Response.Write("<td>"+rs("Name")+"</td>")
Response.Write("<td>"+rs("Color")+"</td>")
Response.Write("</tr>")
rs.MoveNext

Loop

%>


测试无法显示,错在哪里
...全文
62 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ChinaXtHuLang 2011-10-21
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 spidernet 的回复:]
VBScript code


<%
Dim Conn, rs
Conn="Driver={SQL Server}; Database=Shop;Server=(Local);uid=sa;pwd=123456"
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Con……
[/Quote]

+1

连接数据库的代码最好写成一行。
另外:3,2你懂吗??

我搞ASP快3年了。查询一直都是:1,1
修改和添加才用:1,3








论坛签名======================================================================

mangocookie:你好!
截至 2011-10-20 16:12:47 前:
你已发帖 79 个, 未结贴 0 个;
结贴率为: 100.00%

当您的问题得到解答后请及时结贴.

http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html
http://topic.csdn.net/u/20100428/09/BC9E0908-F250-42A6-8765-B50A82FE186A.html
http://topic.csdn.net/u/20100626/09/f35a4763-4b59-49c3-8061-d48fdbc29561.html

如何给分和结贴?
http://community.csdn.net/Help/HelpCenter.htm#结帖

如何给自己的回帖中也加上签名?
http://blog.csdn.net/q107770540/archive/2011/03/15/6250007.aspx
薛定谔的犭苗 2011-10-20
  • 打赏
  • 举报
回复


<%
Dim Conn, rs
Conn="Driver={SQL Server}; Database=Shop;Server=(Local);uid=sa;pwd=123456"
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,1,1
'此处如果只是查询用1,1更好
%>

<%
While Not rs.eof
Response.Write("<tr><td>"&rs("Name")&"</td>")
Response.Write("<td>"&rs("Color")&"</td>")
Response.Write("</tr>")
rs.MoveNext
wend
%>

'字符串连接用“&”比较好。


薛定谔的犭苗 2011-10-20
  • 打赏
  • 举报
回复

<%
Dim Conn, rs
Conn="Driver={SQL Server}; Database=Shop;Server=(Local);uid=sa;pwd=123456"
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,1,1
'此处如果只是查询用1,1更好
%>

<%
While Not rs.eof
Response.Write("<td>"+rs("Name")+"</td>")
Response.Write("<td>"+rs("Color")+"</td>")
Response.Write("</tr>")
rs.MoveNext
wend
%>


给点分吧~
beyond_me21 2011-10-20
  • 打赏
  • 举报
回复

<%

Dim Conn, rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server}; Database=Shop;
Server=(Local);uid=sa;pwd=123456"

Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Cup"
rs.open SQL,Conn,1,1

%>
<table>
<%

Do While Not rs.eof

Response.Write("<tr><td>"+rs("Name")+"</td>")
Response.Write("<td>"+rs("Color")+"</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
rs.close()
set rs=nothing
conn.close()
set conn=nothing
%>
</table>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧