强烈推荐 英文:asp与数据库连接问题,急~!
来源:百度文库 编辑:高校问答 时间:2024/05/10 08:43:27
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")
sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write "<a href="showpic.asp?p_id=<%= n_rs("p_id") %>&path=<%= n_rs("p_pic") %>&pname=<%= n_rs("p_name") %>" target="_self"><img name="<%= n_rs("p_name") %>" src="UploadFile/<%= n_rs("p_pic") %>" alt="产品的名称:<%= n_rs("p_name") %>-型号:<%= n_rs("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")}
sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write "<a href="showpic.asp?p_id=<%= rs("p_id") %>&path=<%= rs("p_pic") %
>&pname=<%= rs("p_name") %>" target="_self"><img name="<%= rs("p_name") %>"
src="UploadFile/<%= rs("p_pic") %>" alt="产品的名称:<%= rs("p_name") %>-型号:<%= rs
("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")
sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write "<a href="showpic.asp?p_id=<%= n_rs("p_id") %>&path=<%= n_rs("p_pic") %>&pname=<%= n_rs("p_name") %>" target="_self"><img name="<%= n_rs("p_name") %>" src="UploadFile/<%= n_rs("p_pic") %>" alt="产品的名称:<%= n_rs("p_name") %>-型号:<%= n_rs("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")}
sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write "<a href="showpic.asp?p_id=<%= rs("p_id") %>&path=<%= rs("p_pic") %
>&pname=<%= rs("p_name") %>" target="_self"><img name="<%= rs("p_name") %>"
src="UploadFile/<%= rs("p_pic") %>" alt="产品的名称:<%= rs("p_name") %>-型号:<%= rs
("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
"select p_id,p_name.p_pic,p_spec from p_info"
________________↑
这里把“,”写成“.”了
补充上面仁史的答复
n_rs记录集在哪里??
没定义吧?还是写错了