asp如何自动获取access数据库的数据填入到页面的表格中,且表格能随记录的增加自动增加。求代码
3个回答
展开全部
用一个for循环,将读取的内容写入表格,循环的读和写,只要你的表格有数据他就会继续循环的写下去。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<%
dim connstr,db
db = "db2.mdb"
connstr="DRIVER={Microsoft Access Driver (*.mdb)};PWD=;DBQ=" & server.mappath(db)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs = conn.execute("select * from admin",1,1)
Dim counter
counter = 0
while not rs.eof
counter = counter + 1
%>
<%=rs("user")%>
<input type="user" name="pwd1" size="16" value=<%=rs("user")%>></td>
<%
rs.movenext
wend
%>
dim connstr,db
db = "db2.mdb"
connstr="DRIVER={Microsoft Access Driver (*.mdb)};PWD=;DBQ=" & server.mappath(db)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs = conn.execute("select * from admin",1,1)
Dim counter
counter = 0
while not rs.eof
counter = counter + 1
%>
<%=rs("user")%>
<input type="user" name="pwd1" size="16" value=<%=rs("user")%>></td>
<%
rs.movenext
wend
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim fs,f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(server.MapPath(".\"&folder&""), 2)
f.write(date())‘写入一个日期值
f.Close
Set f=Nothing
Set fs=Nothing
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(server.MapPath(".\"&folder&""), 2)
f.write(date())‘写入一个日期值
f.Close
Set f=Nothing
Set fs=Nothing
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询