28,390
社区成员
发帖
与我相关
我的任务
分享
<%
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
%>
<%
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
%>
'字符串连接用“&”比较好。
<%
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
%>
<%
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>