怎么判断重复？

2006-04-13 03:31:03 218 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零搭建一个AF架构项目：基于TIA Portal V19和S7-PLCSIM的仿真调试全流程本文详细介绍了如何在TIA Portal V19环境中从零搭建西门子Automation Framework（AF架构）项目，包括环境准备、硬件组态、核心组件创建、项目架构分层实现以及仿真调试全流程。通过模块化编程和标准化接口设计，AF架构显著提升工业自动化项目的开发效率和维护便利性，特别适合S7-1500系列PLC的应用开发。阅读详情

在线报名系统，怎样判断已经报过名了，不在重复添加到数据库中去？下面是我的代码
<%
On Error Resume Next

dim jibie
jibie="Select name From form1" ‘为了不让重复而设置的jibie，读出所有
等级考试的名称
if Request.form("testtype")="请选择"then 'testtype下拉框名

Response.Write "<p><a href='index.asp'></a>" '如果没有选择，回到首页
Elseif Request.form("testtype")=jibie then

Response.Write "<p><a href='index.asp'></a>" '如果重复回到首页，我估计
在这里

else
dim testtype,sqla
testtype=Request.form("testtype")
sqla="Insert Into form1(name) Values('"&testtype&"')" ‘如果不重复添加

end if
db.Execute(sqla)

Response.Write "<br>考试类别: " & testtype
db.close
Response.redirect "index.asp" ，完了回首页显示

%>

...全文

H3C设备VRF配置实战：5步搞定多业务网络隔离（附排错技巧）本文详细介绍了在H3C设备上配置VRF（虚拟路由转发）实现多业务网络隔离的实战方法。通过五步配置流程，从创建VPN-instance、绑定接口到配置独立路由表，帮助网络工程师在单台设备上构建逻辑隔离的企业级网络，并分享了高级路由配置与常见排错技巧。阅读详情

ilhateyou

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

ilhateyou 2006-04-13

打赏
举报

可以加分了

ilhateyou 2006-04-13

打赏
举报

还有，现在我想给这个主题多点分，在那里设置啊？

ilhateyou 2006-04-13

打赏
举报

sotwind(醉风)你是好样的，向你学习！但是我想问你个问题，我在左边WEB开发版块点ASP然后在右边选择WEB开发，选者小类ASP，输入关键字：书，然后点击对选择的小类进行搜索怎么只能搜到几页，怎么才能搜到以前的帖子呢？比如想搜到建站以前的帖子，谢谢

sotwind 2006-04-13

打赏
举报

另外再指出几点原代码中的错误
1. jibie="Select name From form1" '为了不让重复而设置的jibie，读出所有等级考试的名称
而其后并没有打开数据库读取该记录
jibie的值就是刚才的值导致 Elseif Request.form("testtype")=jibie then 这句
Request.form("testtype") 有可能等于 jibie 吗?
2. Response.Write "<p><a href='index.asp'></a>" '如果重复回到首页
回首页或上页请参照我的写法这样写一点用也没有建议是至少得了解一下js 会后台而不会前台就好像一个人断了一条手
3.Response.Write "<br>考试类别: " & testtype
Response.redirect "index.asp"
试图在返回index.asp 给出一些提示语句但事实上这是不可能的
response.redirect 将直接把页面转到index.asp 客户端根本没法收到response.write的结果
应该写成 (假设变量是 testtype)
response.write "<script language=JavaScript>{alert('考试类别:" & testtype & "');location.href='index.asp'}</script>"
这是服务器端脚本和客户端脚本的跳转页面的区别
你在服务器端已经跳转了用户哪还能收到什么提示

^_^ 不好意思乱点几句希望对你有点帮助

xyhabc 2006-04-13

打赏
举报

嗯,就是sotwind(醉风)这个写法,简单多了

sotwind 2006-04-13

打赏
举报

我不太清楚你的数据库结构只是大致看着你上面的代码猜的
不对的地方自己改希望你能看懂思路就行

sotwind 2006-04-13

打赏
举报

草草写了一下你看合用不
<%
jiebie=request.form("testtype")
if jiebie="请选择" then
response.write "<script language=JavaScript>{alert('请选择考试什么东西！');history.back()}</script>"
response.end
end if

'检查是否重复
set rs=server.createobject("adodb.recordset")
sql="select * from FORM1 where NAME='" & jiebie & "'"
rs.open sql, db, 1, 1
if not rs.eof then
rs.close
response.write "<script language=JavaScript>{alert('你已报过名了！');history.back()}</script>"
response.end
end if
rs.close
set rs=nothing

'添加数据
sql="Insert Into form1(name) Values('" & jiebie & "')"
db.execute sql
db.close
set db=nothing
response.write "<script language=JavaScript>{alert('报名成功！');location.href='index.asp'}</script>"
%>

qsj48747776 2006-04-13

打赏
举报

Response.redirect "index.asp"
这就是返回首页，干嘛加它啊

ilhateyou 2006-04-13

打赏
举报

我是象下面写的，但是现在不能添加，老是返回首页，也不报错。怎么回事？
<%
On Error Resume Next

if Request.form("testtype")="请选择"then

Response.Write "<p><a href='index.asp'></a>（testtype为下拉框名，如果下拉框还在请选择状态，返回首页继续选择）

Elseif "Select name From form1 where name=" & Request.form("testtype") then

Response.Write "<p><a href='index.asp'></a>"
（如果数据库中跟下拉框添加的重复，那么不添加回首页继续选择）

else
dim testtype,sqla
testtype=Request.form("testtype")
sqla="Insert Into form1(name) Values('"&testtype&"')"

db.Execute(sqla)
end if
（如果选择的考试科目，数据库里没有就添加）
Response.Write "<br>考试类别: " & testtype
db.close

Response.redirect "index.asp"

%>

xyhabc 2006-04-13

打赏
举报

是啊,你这么决断多麻烦啊,看的头晕,直接就
"Select name From form1 where testtype=" & Request.form("testtype")
就完了

ruide205 2006-04-13

打赏
举报

代码太乱了讲下思路
select count() from table where fname = ''
count>0表示有过记录就不要再插入了

ilhateyou 2006-04-13

打赏
举报

我是这样做的，但是用我刚才的代码还是不行

youzi520 2006-04-13

打赏
举报

提交的名字在库里查询下
有就不添加,提示已报名..没则INSERT

怎么判断重复？

相关推荐