ASP提交表单后，表单内容不清空，可反复提交

我想要提交后，内容自动清空，同一手机号码只能提交一次。本人菜鸟一枚，求代码，求实例。。。。
全部代码如下：

<td rowspan="2" width="110" align="center"><input type="image" src="images/bm12.jpg" width="85" align="middle"/></td></a>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer=false
%>
<!--#include file="inc/checksqlx.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="Admin/inc/config.asp" -->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/GetDate.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%		
Dim Tname,remark,pro,tel,mianji,yusuan,shejishi,yaoqiu,addtime,loupan,addr
Dim Sql,FoundErr,SuccessMsg,ErrMsg,GetCode,ip,email
Dim CheckCode
Tname=ReplaceBadChar(Trim(Request.Form("Tname")))
if Tname="" then 
ErrMsg=ErrMsg & "您的姓名不能为空！\n"
FoundErr=True
end if
email=ReplaceBadChar(Trim(Request.Form("email")))
tel=ReplaceBadChar(Trim(Request.Form("tel")))
if tel="" then
ErrMsg=ErrMsg & "您的手机号不能为空！\n"
FoundErr=True
elseif not isnumeric(tel) or len(tel)<>11 or left(tel,1)<>"1" then
ErrMsg=ErrMsg & "手机号码格式不正确！\n"
FoundErr=True
end if
pro=ReplaceBadChar(Trim(Request.Form("pro")))
addr=ReplaceBadChar(Trim(Request.Form("addr")))
if addr="" then 
ErrMsg=ErrMsg & "建筑面积不能为空！\n"
FoundErr=True
end if
loupan=ReplaceBadChar(Trim(Request.Form("loupan")))
if loupan="" then 
ErrMsg=ErrMsg & "楼盘名称不能为空！\n"
FoundErr=True
end if
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") 
addtime=Now()
if FoundErr=True then
	response.write "<script language='javascript'>" & VbCRlf
	response.write "alert('"&ErrMsg&"');" & VbCrlf
	response.write "history.go(-1);" & vbCrlf
	response.write "</script>" & VbCRLF
	response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From orderlist3 "
rs.Open Sql,Conn,1,3
rs.AddNew
rs("pro")=pro
rs("Tname")=Tname
rs("email")=email
rs("tel")=tel
rs("addr")=addr
rs("loupan")=loupan
rs("addtime")=addtime
rs("IP")=IP
rs.UpDate
Rs.close
Set Rs=Nothing
Call CloseConn()
response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>")

%>

学习a123456 2016-09-08

你可以用response.redirect跳转页面。而不是JS跳回

qq_25457993 2016-07-25

引用 4 楼 wangsdong 的回复:

楼上的方法都可以，再补一种方法：提交后，把表单中的值放到session或者cookies中，表单中相应的字段从相应的session和cookies中取值。

我是做SEM的，不懂复杂代码，只懂点基础的html.求代吗

php_wsd 2016-07-25

楼上的方法都可以，再补一种方法：提交后，把表单中的值放到session或者cookies中，表单中相应的字段从相应的session和cookies中取值。

php_wsd 2016-07-25

收费帮写代码，需要的话发私信给我

Hello World, 2016-07-24

使用AJAX提交内容，提交时锁定屏幕，成功后解锁并复位表单。 至于限制每个手机号码只能提交一次可以在后台提交时检测，也可以在填写时检测

qq_25457993 2016-07-24

引用 楼主 qq_25457993 的回复:

提交表单后，表单内容不清空，可反复提交。 我想要提交后，内容自动清空，同一手机号码只能提交一次。本人菜鸟一枚，求代码，求实例。。。。 全部代码如下： <td rowspan="2" width="110" align="center"><input type="image" src="images/bm12.jpg" width="85" align="middle"/></td></a>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer=false
%>
<!--#include file="inc/checksqlx.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="Admin/inc/config.asp" -->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/GetDate.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%		
Dim Tname,remark,pro,tel,mianji,yusuan,shejishi,yaoqiu,addtime,loupan,addr
Dim Sql,FoundErr,SuccessMsg,ErrMsg,GetCode,ip,email
Dim CheckCode
 
 
 
Tname=ReplaceBadChar(Trim(Request.Form("Tname")))
if Tname="" then 
ErrMsg=ErrMsg & "您的姓名不能为空！\n"
FoundErr=True
end if
email=ReplaceBadChar(Trim(Request.Form("email")))
 
tel=ReplaceBadChar(Trim(Request.Form("tel")))
if tel="" then
ErrMsg=ErrMsg & "您的手机号不能为空！\n"
FoundErr=True
elseif not isnumeric(tel) or len(tel)<>11 or left(tel,1)<>"1" then
ErrMsg=ErrMsg & "手机号码格式不正确！\n"
FoundErr=True
end if
 
 
pro=ReplaceBadChar(Trim(Request.Form("pro")))
 
addr=ReplaceBadChar(Trim(Request.Form("addr")))
if addr="" then 
ErrMsg=ErrMsg & "建筑面积不能为空！\n"
FoundErr=True
end if
 
loupan=ReplaceBadChar(Trim(Request.Form("loupan")))
if loupan="" then 
ErrMsg=ErrMsg & "楼盘名称不能为空！\n"
FoundErr=True
end if
 
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") 
 
addtime=Now()
 
if FoundErr=True then
	response.write "<script language='javascript'>" & VbCRlf
	response.write "alert('"&ErrMsg&"');" & VbCrlf
	response.write "history.go(-1);" & vbCrlf
	response.write "</script>" & VbCRLF
	response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From orderlist3 "
rs.Open Sql,Conn,1,3
rs.AddNew
rs("pro")=pro
rs("Tname")=Tname
rs("email")=email
rs("tel")=tel
rs("addr")=addr
rs("loupan")=loupan
 
rs("addtime")=addtime
rs("IP")=IP
 
rs.UpDate
Rs.close
Set Rs=Nothing
Call CloseConn()
response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>")
%>

引用 楼主 qq_25457993 的回复:

提交表单后，表单内容不清空，可反复提交。 我想要提交后，内容自动清空，同一手机号码只能提交一次。本人菜鸟一枚，求代码，求实例。。。。 全部代码如下： <td rowspan="2" width="110" align="center"><input type="image" src="images/bm12.jpg" width="85" align="middle"/></td></a>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer=false
%>
<!--#include file="inc/checksqlx.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="Admin/inc/config.asp" -->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/GetDate.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%		
Dim Tname,remark,pro,tel,mianji,yusuan,shejishi,yaoqiu,addtime,loupan,addr
Dim Sql,FoundErr,SuccessMsg,ErrMsg,GetCode,ip,email
Dim CheckCode
Tname=ReplaceBadChar(Trim(Request.Form("Tname")))
if Tname="" then 
ErrMsg=ErrMsg & "您的姓名不能为空！\n"
FoundErr=True
end if
email=ReplaceBadChar(Trim(Request.Form("email")))
tel=ReplaceBadChar(Trim(Request.Form("tel")))
if tel="" then
ErrMsg=ErrMsg & "您的手机号不能为空！\n"
FoundErr=True
elseif not isnumeric(tel) or len(tel)<>11 or left(tel,1)<>"1" then
ErrMsg=ErrMsg & "手机号码格式不正确！\n"
FoundErr=True
end if
pro=ReplaceBadChar(Trim(Request.Form("pro")))
addr=ReplaceBadChar(Trim(Request.Form("addr")))
if addr="" then 
ErrMsg=ErrMsg & "建筑面积不能为空！\n"
FoundErr=True
end if
loupan=ReplaceBadChar(Trim(Request.Form("loupan")))
if loupan="" then 
ErrMsg=ErrMsg & "楼盘名称不能为空！\n"
FoundErr=True
end if
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
addtime=Now()
if FoundErr=True then
	response.write "<script language='javascript'>" & VbCRlf
	response.write "alert('"&ErrMsg&"');" & VbCrlf
	response.write "history.go(-1);" & vbCrlf
	response.write "</script>" & VbCRLF
	response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From orderlist3 "
rs.Open Sql,Conn,1,3
rs.AddNew
rs("pro")=pro
rs("Tname")=Tname
rs("email")=email
rs("tel")=tel
rs("addr")=addr
rs("loupan")=loupan
rs("addtime")=addtime
rs("IP")=IP
rs.UpDate
Rs.close
Set Rs=Nothing
Call CloseConn()
response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>")
%>

引用 楼主 qq_25457993 的回复:

提交表单后，表单内容不清空，可反复提交。 我想要提交后，内容自动清空，同一手机号码只能提交一次。本人菜鸟一枚，求代码，求实例。。。。 全部代码如下： <td rowspan="2" width="110" align="center"><input type="image" src="images/bm12.jpg" width="85" align="middle"/></td></a>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer=false
%>
<!--#include file="inc/checksqlx.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="Admin/inc/config.asp" -->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/GetDate.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%		
Dim Tname,remark,pro,tel,mianji,yusuan,shejishi,yaoqiu,addtime,loupan,addr
Dim Sql,FoundErr,SuccessMsg,ErrMsg,GetCode,ip,email
Dim CheckCode
Tname=ReplaceBadChar(Trim(Request.Form("Tname")))
if Tname="" then 
ErrMsg=ErrMsg & "您的姓名不能为空！\n"
FoundErr=True
end if
email=ReplaceBadChar(Trim(Request.Form("email")))
tel=ReplaceBadChar(Trim(Request.Form("tel")))
if tel="" then
ErrMsg=ErrMsg & "您的手机号不能为空！\n"
FoundErr=True
elseif not isnumeric(tel) or len(tel)<>11 or left(tel,1)<>"1" then
ErrMsg=ErrMsg & "手机号码格式不正确！\n"
FoundErr=True
end if
pro=ReplaceBadChar(Trim(Request.Form("pro")))
addr=ReplaceBadChar(Trim(Request.Form("addr")))
if addr="" then 
ErrMsg=ErrMsg & "建筑面积不能为空！\n"
FoundErr=True
end if
loupan=ReplaceBadChar(Trim(Request.Form("loupan")))
if loupan="" then 
ErrMsg=ErrMsg & "楼盘名称不能为空！\n"
FoundErr=True
end if
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
addtime=Now()
if FoundErr=True then
	response.write "<script language='javascript'>" & VbCRlf
	response.write "alert('"&ErrMsg&"');" & VbCrlf
	response.write "history.go(-1);" & vbCrlf
	response.write "</script>" & VbCRLF
	response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * From orderlist3 "
rs.Open Sql,Conn,1,3
rs.AddNew
rs("pro")=pro
rs("Tname")=Tname
rs("email")=email
rs("tel")=tel
rs("addr")=addr
rs("loupan")=loupan
rs("addtime")=addtime
rs("IP")=IP
rs.UpDate
Rs.close
Set Rs=Nothing
Call CloseConn()
response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>")
%>

引用 1 楼 showbo 的回复:

response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>") 改为 response.redirect "原来的页面.asp" 不要回退

这是公共广告遮罩层，报名用的，没有固定链接。

斯洛文尼亚旅游 2016-07-24

response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>") 改为 response.redirect "原来的页面.asp" 不要回退

来源：https://bbs.csdn.net/topics/391989729