列表表单自动提交
yol34 2008-08-19 04:08:46 <!--#include file="date/date.asp"-->
<html>
<head >
<title>Untitled Document</title>
(1)自动提交表单:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language=javascript>
setTimeout("document.form1.submit()",3000)
</script>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="manage/makehtml/prod/conameroot.asp">
<% Dim e,f,g '<meta http-equiv=refresh content=3;URL=aa.asp>
set rsmid=server.createobject("adodb.recordset")
sqlmid="select distinct catname,id,docfile,templet,templet2 from Phoenix_prodClass where cattype=0 order by id"
rsmid.Open sqlmid,conn,1,1
response.write "<select name='conameroot'>"
if rsmid.bof and rsmid.eof then
response.write "<option selected value='0'>-暂无栏目-</option>"
else
Do While Not rsmid.eof
a = rsmid("catname")
response.write "<option value='"&rsmid("id")&"^"&rsmid("docfile")&"^"&rsmid("templet")&"^"&rsmid("templet2")&"'>"&rsmid("catname")&"</option>"
rsmid.movenext
if rsmid.eof then exit do
loop
end if
rsmid.close
set rsmid=nothing
%>
</form>
</body>
</html>
以上代码,如何实现列表内容逐条自动提交?