提交的表单不满足要求，希望原填写的内容保留？

heartbreaking2003 2009-11-28 06:19:06

我的代码如下

希望提交的表单如果不满足要求，则继续保留本页面，且已填写的内容保留该怎么办？
目前的效果是提交的表单如果不满足要求，停留在本页面，结果所有的内容都清空了

<html>

<head>
<script src="123.js"> </script>
<script Language="JavaScript" type="text/javascript">

function checkdata(){
if (form1.jianhao.value==""||form1.wentimiaosu.value=="" ||form1.chuliqingk.value=="" ||form1.rdo.value=="")

{
alert( "带“*”的输入不能为空，请正确填写!! ");
return false;

}

return true;
}

</script>

</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<% call bghead() %>
<center>
<table>
<tr align=center><td align=center height="30"><b><font size="4" color=red>训练有素快速响应逐级把关问题归零</b></td></tr>

</table>

</center>
<%
call bgmid()

%>
<%
'set conn=opendb("oabusy","conn","accessdsn")
'sql="select * from wra100 where id=" & request("id")
'sql="select * from wra100"
'set rs=server.createobject("adodb.recordset")
'rs.open sql,conn,1,1
'if not (rs.eof and rs.bof) then
%>
<center>

<form method=post name="form1" action="xzwra100.asp" onSubmit="return checkdata();">
<table border="1" cellpadding="0" cellspacing="0" width="60%">

<tr>
<td align=center>件号/文件号</td><td align=center><input type="text" name="jianhao" size=50 >*</td></tr>
<tr>
<td align=center>状态</td><td align=center><input name="rdo" type="radio" value="完成"/>完成 <input name="rdo" type="radio" checked="checked" value="未完"/>未完 </td></tr>
<tr>
<td align=center>问题描述</td><td align=center> <textarea rows="6" name="wentimiaosu" cols="50" ></textarea>*</td></tr>
<tr>
<td align=center>处理情况</td><td align=center><textarea rows="6" name="chuliqingk" cols="50"></textarea>*</td></tr>
<tr>
<td align=center>完成日期</td><td align=center><input type="text" name="wanchengriqi" size=50 onFocus="CalendarWebControl.show(this,false,this.value);"></td></tr>
<tr>
<td align=center>领导批示</td><td align=center> <input type="text" name="lingdaoyijian" size=50> </td></tr>

</table>
<input type="submit" name="submit" value="确定添加">
</form>

</center>

<%
'增加内容
if request("submit")="确定添加" & onsubmit then
jianhao=request("jianhao")
wentimiaosu=request("wentimiaosu")
chuliqingk=request("chuliqingk")
wanchengriqi=request("wanchengriqi")
zhuangtai=request("rdo")
dengjiriqi=Date()
fuzeren=oabusyname

If trim(jianhao)<>"" and trim(wentimiaosu)<>"" and Trim(chuliqingk)<>"" Then
set conn=opendb("oabusy","conn","accessdsn")

sql = "Insert Into wra100 (jianhao,wentimiaosu,chuliqingk,wanchengriqi,zhuangtai,dengjiriqi,fuzeren) Values('"&jianhao&"','"&wentimiaosu&"','"&chuliqingk&"','"&wanchengriqi&"','"&zhuangtai&"','"&dengjiriqi&"','"&fuzeren&"')"

conn.Execute(sql)
conn.close
response.redirect "wra100.asp"
%>
<% Else %>
<script>
alert( "带“*”的输入不能为空，请正确填写!! ");
</script>
<% End If %>
<%

End If

%>
<%
call bgback()
%>
</body>
</html>

...全文