1个回答
展开全部
假设你有5个字段。数据库用的是access (初学者最好用这个)
<%
dim sql
dim i
dim outstr
If Request.ServerVariables("Request_Method")="GET" then
sql="select 土地使用者姓名,土地编号,土地坐落,申请时间,联系方式 from 土地申请表"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
outstr="<FORM name=forma action=aaa.asp method=post>" (假设你这个页面叫aaa.asp)
outstr=outstr & "<TR><TD align=middle>土地使用者姓名</TD><TD align=middle>土地编号</TD><TD align=middle>土地坐落</TD><TD align=middle>申请时间</TD><TD align=middle>联系方式</TD></TR>"
for i=1 to RS.RecordCount
if i<=RS.RecordCount then
outstr=outstr & "<TR><TD><INPUT class=p1 name=t1" & i & " size=20 value=" & chr(34) & RS("土地使用者姓名") & chr(34) & "></TD><TD><INPUT class=p1 name=t2" & i & " size=20 value=" & chr(34) & RS("土地编号") & chr(34) & "></TD><TD><INPUT class=p1 name=t3" & i & " size=20 value=" & chr(34) & RS("土地坐落") & chr(34) & "></TD></TD><TD><INPUT class=p1 name=t4" & i & " size=20 value=" & chr(34) & RS("申请时间") & chr(34) & "></TD></TD><TD><INPUT class=p1 name=t5" & i & " size=20 value=" & chr(34) & RS("联系方式") & chr(34) & "></TD></TR>"
RS.MoveNext
end if
next
end if
%>
这是我自己的表,拿出来的,可能直接拷不行,不过你应该看得懂的。不是以表格的形式输出的,是以文本框输出的,这样输出之后别的地方还可以通过name属性调用。这里每个文本框最好再加个属性 readonly
<%
dim sql
dim i
dim outstr
If Request.ServerVariables("Request_Method")="GET" then
sql="select 土地使用者姓名,土地编号,土地坐落,申请时间,联系方式 from 土地申请表"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
outstr="<FORM name=forma action=aaa.asp method=post>" (假设你这个页面叫aaa.asp)
outstr=outstr & "<TR><TD align=middle>土地使用者姓名</TD><TD align=middle>土地编号</TD><TD align=middle>土地坐落</TD><TD align=middle>申请时间</TD><TD align=middle>联系方式</TD></TR>"
for i=1 to RS.RecordCount
if i<=RS.RecordCount then
outstr=outstr & "<TR><TD><INPUT class=p1 name=t1" & i & " size=20 value=" & chr(34) & RS("土地使用者姓名") & chr(34) & "></TD><TD><INPUT class=p1 name=t2" & i & " size=20 value=" & chr(34) & RS("土地编号") & chr(34) & "></TD><TD><INPUT class=p1 name=t3" & i & " size=20 value=" & chr(34) & RS("土地坐落") & chr(34) & "></TD></TD><TD><INPUT class=p1 name=t4" & i & " size=20 value=" & chr(34) & RS("申请时间") & chr(34) & "></TD></TD><TD><INPUT class=p1 name=t5" & i & " size=20 value=" & chr(34) & RS("联系方式") & chr(34) & "></TD></TR>"
RS.MoveNext
end if
next
end if
%>
这是我自己的表,拿出来的,可能直接拷不行,不过你应该看得懂的。不是以表格的形式输出的,是以文本框输出的,这样输出之后别的地方还可以通过name属性调用。这里每个文本框最好再加个属性 readonly
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询