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

qq_25457993 2016-07-24 03:05:23

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

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


<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>")

%>
...全文
3150 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
学习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" 不要回退
这是公共广告遮罩层，报名用的，没有固定链接。
Go 旅城通票 2016-07-24
  • 打赏
  • 举报
 回复
response.Write("<script language='javascript'> alert('提交成功，感谢您的支持，我们将尽快与您取得联系。'); location.href='javascript:history.back()'</script>") 改为 response.redirect "原来的页面.asp" 不要回退
html表单中的数据提交后清空,怎么实现小程序中表单提交后自动清空内容
怎么实现小程序中表单提交后自动清空内容发布时间：2021-03-09 10:50:51来源：亿速云阅读：88作者：小新小编给大家分享一下怎么实现小程序中表单提交后自动清空内容，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！目的：微信小程序提交后，表单内容自动清空。思路分析：我们可以通过value绑定来进行清除，但是这种方法...
JS 提交表单后清空表单
开发交流QQ群:173683895 173683895 526474645 人满的请加其它群 清空表单是比较常见的场景，表单本身就有reset事件作用于清空表单，但是reset事件需要点击按钮才能触发，我们现在想不触达按钮在表单提交的submit事件内，当提交表单成功后清空表单中 value 。 下面来看代码，很简单 以微信小程序为示例 <!--index.wxml-...
form表单提交时自动清空表单内容
是由于form表单中，button的type属性默认是submit，当type的值是submit时，点击button就会自动刷新。手动设置type字段的值就解决了，即type=“button”.（推荐）此时只要点击提交按钮就会发现表单数据会被直接清空，这是因为form中的button默认为submit，默认会被解读为提交表单，而我这里只是想发个验证码。把button标签换成a标签，这样就可以了；
用VUE表单submit提交后清空表单数据
我们将表单数据绑定到了Vue实例的formData属性中，并在方法submitForm()中手动将formData清空。这样，在每次表单提交后，都会将表单数据清空。在Vue中，可以通过v-model指令来绑定表单输入元素和Vue实例中的数据。如果要在表单提交后清空表单数据，可以在提交表单的方法中手动将表单数据清空。
html表单中的数据提交后清空,js清空form表单中的内容示例
//清空form选择function clearForm(id){var formObj = document.getElementById(id);if(formObj == undefined){return;}for(var i=0; iif(formObj.elements[i].type == "text"){formObj.elements[i].value = "";}else if...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章