asp 想用表单提交的两个值判断是否有重复 百分悬赏恳请高手解答
u_riqi是日期字段u_fanghao是房间号想通过判断某日某房间号是否已经存在，如果存在则终止提交，弹出提示并返回，如果当日房间号不存在则进行表单数据提交。表名是bo...
u_riqi 是日期字段 u_fanghao 是房间号 想通过判断某日某房间号是否已经存在，如果存在则终止提交，弹出提示并返回，如果当日房间号不存在则进行表单数据提交。
表名是 borecorder 字段是u_开头的那些 因为水平问题，希望高手们能给出详细代码，好学习进步。谢谢
目前表单提交数据库是如下写的，可以正常运行提交到数据库
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="../../Inc/conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from borecorder"
rs.open sqltext,conn,3,3
'添加一条记录到数据库
rs.addnew
rs("u_riqi")=request.form("p_riqi")
rs("u_bumen")=request.form("p_bumen")
rs("u_renyuan")=request.form("p_renyuan")
rs("u_chebumen")=request.form("p_chebumen")
rs("u_fanghao")=request.form("p_fanghao")
if request.form("p_biaoshi2")="" then
rs("u_biaoshi2")="空"
else
rs("u_biaoshi2")=request.form("p_biaoshi2")
end if
rs.update
%>
<html>里面是一段显示结果的页面代码</html>
<%
rs.close
conn.close
%> 展开
表名是 borecorder 字段是u_开头的那些 因为水平问题，希望高手们能给出详细代码，好学习进步。谢谢
目前表单提交数据库是如下写的，可以正常运行提交到数据库
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="../../Inc/conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from borecorder"
rs.open sqltext,conn,3,3
'添加一条记录到数据库
rs.addnew
rs("u_riqi")=request.form("p_riqi")
rs("u_bumen")=request.form("p_bumen")
rs("u_renyuan")=request.form("p_renyuan")
rs("u_chebumen")=request.form("p_chebumen")
rs("u_fanghao")=request.form("p_fanghao")
if request.form("p_biaoshi2")="" then
rs("u_biaoshi2")="空"
else
rs("u_biaoshi2")=request.form("p_biaoshi2")
end if
rs.update
%>
<html>里面是一段显示结果的页面代码</html>
<%
rs.close
conn.close
%> 展开
1个回答
展开全部
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="../../Inc/conn.asp" -->
<%
p_riqi=request.form("p_riqi")
p_fanghao=request.form("p_fanghao")
set rs=server.createobject("adodb.recordset")
sqltext="select * from borecorder where u_riqi='"&p_riqi&"' and u_fanghao='"&p_fanghao&"'"
rs.open sqltext,conn,3,3
if not rs.Eof
response.write"<SCRIPT language=JavaScript>alert('该房已经有客户！');javascript:history.go(-1)</SCRIPT>"
Response.End
else
'添加一条记录到数据库
rs.addnew
rs("u_riqi")=request.form("p_riqi")
rs("u_bumen")=request.form("p_bumen")
rs("u_renyuan")=request.form("p_renyuan")
rs("u_chebumen")=request.form("p_chebumen")
rs("u_fanghao")=request.form("p_fanghao")
if request.form("p_biaoshi2")="" then
rs("u_biaoshi2")="空"
else
rs("u_biaoshi2")=request.form("p_biaoshi2")
end if
rs.update
%>
<html>里面是一段显示结果的页面代码</html>
<%
end if
rs.close
conn.close
%>
<%response.Expires = 0%>
<!--#include file="../../Inc/conn.asp" -->
<%
p_riqi=request.form("p_riqi")
p_fanghao=request.form("p_fanghao")
set rs=server.createobject("adodb.recordset")
sqltext="select * from borecorder where u_riqi='"&p_riqi&"' and u_fanghao='"&p_fanghao&"'"
rs.open sqltext,conn,3,3
if not rs.Eof
response.write"<SCRIPT language=JavaScript>alert('该房已经有客户！');javascript:history.go(-1)</SCRIPT>"
Response.End
else
'添加一条记录到数据库
rs.addnew
rs("u_riqi")=request.form("p_riqi")
rs("u_bumen")=request.form("p_bumen")
rs("u_renyuan")=request.form("p_renyuan")
rs("u_chebumen")=request.form("p_chebumen")
rs("u_fanghao")=request.form("p_fanghao")
if request.form("p_biaoshi2")="" then
rs("u_biaoshi2")="空"
else
rs("u_biaoshi2")=request.form("p_biaoshi2")
end if
rs.update
%>
<html>里面是一段显示结果的页面代码</html>
<%
end if
rs.close
conn.close
%>
更多追问追答
追问
An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error.
访问页面是这样子的。
追答
你原来是否正常？把提交页和库传上来，帮你调试一下看看 。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
