ASP 判断数据库
<!--#includefile="ddn.asp"--><%DimTDimcljdT=now()//1.提交页面提交的name(gsmc)//数据库表名:NSCNord...
<!--#include file="ddn.asp"-->
<%
Dim T
Dim cljd
T = now()
//1.提交页面提交的name(gsmc)
//数据库表名:NSCNorder
//数据库字段名gsmc
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [NSCNorder] ",conn,1,3
rs.addnew
rs("gsmc")=trim(request("gsmc")) //可以正常提交,但是想判断下字段下是否有此内容,是否重复提交,谁能教教我怎么写 ,不胜感激
rs("dh")=trim(request("dh"))
rs("xm")=trim(request("xm"))
rs.Update
Response.Write("<script>alert(""提示:订单已提交成功!"&Copyright&""");location.href=""index.asp"";</script>")
rs.Close
set rs=nothing
%> 展开
<%
Dim T
Dim cljd
T = now()
//1.提交页面提交的name(gsmc)
//数据库表名:NSCNorder
//数据库字段名gsmc
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [NSCNorder] ",conn,1,3
rs.addnew
rs("gsmc")=trim(request("gsmc")) //可以正常提交,但是想判断下字段下是否有此内容,是否重复提交,谁能教教我怎么写 ,不胜感激
rs("dh")=trim(request("dh"))
rs("xm")=trim(request("xm"))
rs.Update
Response.Write("<script>alert(""提示:订单已提交成功!"&Copyright&""");location.href=""index.asp"";</script>")
rs.Close
set rs=nothing
%> 展开
4个回答
展开全部
在添加新内容之前,先在数据库里查找一下,看是否存在:
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [NSCNorder] where dh='" & trim(request("dh"))
& "' and xm='" & trim(request("xm"))
& "'",conn,1,1
if rs.eof then
添加新内容(代码自己加)
else
给出内容已存在的提示(代码自己加)
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [NSCNorder] where dh='" & trim(request("dh"))
& "' and xm='" & trim(request("xm"))
& "'",conn,1,1
if rs.eof then
添加新内容(代码自己加)
else
给出内容已存在的提示(代码自己加)
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
光点科技
2023-08-15 广告
2023-08-15 广告
通常情况下,我们会按照结构模型把系统产生的数据分为三种类型:结构化数据、半结构化数据和非结构化数据。结构化数据,即行数据,是存储在数据库里,可以用二维表结构来逻辑表达实现的数据。最常见的就是数字数据和文本数据,它们可以某种标准格式存在于文件...
点击进入详情页
本回答由光点科技提供
展开全部
<!--#include file="ddn.asp"-->
<%
Dim T
Dim cljd
T = now()
gsmc=trim(request("gsmc"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from [NSCNorder] where gsmc='"&gsmc&"'"
rs.Open sql,conn,1,3
if not(rs.eof and rs.bof) then
response.write("系统已有相同的记录")
end if
rs.addnew
rs("gsmc")=gsmc
rs("dh")=trim(request("dh"))
rs("xm")=trim(request("xm"))
rs.Update
Response.Write("<script>alert(""提示:订单已提交成功!"&Copyright&""");location.href=""index.asp"";</script>")
rs.Close
set rs=nothing
%>
<%
Dim T
Dim cljd
T = now()
gsmc=trim(request("gsmc"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from [NSCNorder] where gsmc='"&gsmc&"'"
rs.Open sql,conn,1,3
if not(rs.eof and rs.bof) then
response.write("系统已有相同的记录")
end if
rs.addnew
rs("gsmc")=gsmc
rs("dh")=trim(request("dh"))
rs("xm")=trim(request("xm"))
rs.Update
Response.Write("<script>alert(""提示:订单已提交成功!"&Copyright&""");location.href=""index.asp"";</script>")
rs.Close
set rs=nothing
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在添加前,进行数据查询,符合要求的就添加记录集。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询