菜鸟请教
<%
sql="select userr from job "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
Do While not Rs.Eof
%>
<tr>
<td height="25" align="left" valign="middle" class="b6"> <%=job)%></td>
<%
Rs.MoveNext
Loop
%>
<%
rs.close()
conn.close()
%>
显示已个字段 请问这段代码有错吗?
附上数据库连接代码:
<%
dim conn
dim connstr
dim db
db="mdb/#fs3000_5818.mdb" '数据库文件位置
on error resume next
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>