表单提交时的检测问题

来源:百度知道 编辑:UC知道 时间:2024/05/15 03:58:06
<!--#include file="../conn.asp"-->
<%
dim j_name , j_number , j_jb ,j_zy,j_time,j_zcd,j_xj,j_email,j_tel,j_bz,addtime,rs,rs1,sql,i
j_name = request("j_name")
j_number = request("j_number")
j_jb = request("j_jb")
j_zy = request("j_zy")
j_zch = request("j_zch")
j_time = request("j_time")
j_zcd = request("j_zcd")
j_xj = request("j_xj")
j_email = request("j_email")
j_tel = request("j_tel")
j_bz = request("j_bz")
addtime= now()
%>
<%
sql="select * from jzstm where j_email='"&j_email&"'"
set rs = conn.execute(sql)
if rs.bof or rs.eof then
%>
<script language="VBScript">
msgbox"此邮箱已经存在。"
history.back()
</script>
<%
rs.close

错误比较多,看得出来,你还对asp比较陌生。我改了一下,你测试一下看看
<!--#include file="../conn.asp"-->
<%
dim j_name , j_number , j_jb ,j_zy,j_time,j_zcd,j_xj,j_email,j_tel,j_bz,addtime,rs,rs1,sql,i
j_name = request("j_name")
j_number = request("j_number")
j_jb = request("j_jb")
j_zy = request("j_zy")
j_zch = request("j_zch")
j_time = request("j_time")
j_zcd = request("j_zcd")
j_xj = request("j_xj")
j_email = request("j_email")
j_tel = request("j_tel")
j_bz = request("j_bz")
addtime= now()
If j_email="" Then
%>
<script language="VBScript">
msgbox"请输入正确的邮箱地址。"
history.back()
</script>
<%
Response.End()
End If
sql="select * from jzstm where j_email='"&j_email&"'"