请帮忙检查代码

lessbird 2002-02-06 12:03:07
我看了老半天,都看昏了,不知哪里的问题
是一个申请网站连接的
申请表格:
<TABLE cellSpacing=0 cellPadding=0 width=160 bgColor=#f8f8f8 border=0><form name='form1' method='post' action='addlink.asp'><TBODY><TR>
<TD><IMG src='images/friend.gif'></TD><tr><td><div align='center'>
申请连接<br><div align=center>网站名称:<input type='text' name='name' size='12'></td></tr><tr><td>
<div align=center>网站地址:<input type='text' name='url' size='12'></td></tr><tr><td></div>
<div align=center>申请类型:<select name='kind'><option select>请选择<option value=0>学生网站<option value=1>友情网站</option></select>
<div align=right><input type=submit name=Submit value=递交></div></td></TR></TBODY></from></TABLE>


addlink.asp
<!--#include file="conn.asp" -->
<%dim name,url,kind,rs,sql
name=request.form("name")
url=request.form("url")
kind=request.form("kind")
if name="" then
response.write"<script language='javascript'>alert('错误:请填写连接网站的名称!')</script>"
response.write"<center><a href=# onclick='history.go(-1)'><font size=2 color=#ff0000>请点击返回</font></a></center>"
response.end
end if
if url="" then
response.write"<script language='javascript'>alert('错误:请填写连接网站的地址!')</script>"
response.write"<center><a href=# onclick='history.go(-1)'><font size=2 color=#ff0000>请点击返回</font></a></center>"
response.end
end if
if kind<>"1" or kind<>"0" then
response.write"<script language='javascript'>alert('错误:请选择连接网站的类型!')</script>"
response.write"<center><a href=# onclick='history.go(-1)'><font size=2 color=#ff0000>请点击返回</font></a></center>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from link where linkname='"&name&"' and linkurl='"&url&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write"<script language='javascript'>alert('错误:该网站已经存在!')</script>"
response.write"<center><a href=# onclick='history.go(-1)'><font size=2 color=#ff0000>请点击返回</font></a></center>"
response.end
else
rs.addnew
rs("linkname")=name
rs("linkurl")=url
rs("kind")=kind
rs.update
rs.close
response.redirect "default.asp"
set rs=nothing
end if%>

无论选择哪个连接类型都提示请选择连接类型,如果去掉,却提示说该网站已经存在。
...全文
143 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
lessbird 2002-02-08
  • 打赏
  • 举报
回复
我知道了,解决了,原来是:<select name=''kind''><option select>请选择<option value=0>学生网站<option value=1>友情网站</option></select>
这里
lessbird 2002-02-06
  • 打赏
  • 举报
回复
我的连接只有这两种啊,而且分类放的,kind为0就是学生网站,kind为1就是友情连接
tjdiy 2002-02-06
  • 打赏
  • 举报
回复
改成if kind="" then 也可以!
playmud 2002-02-06
  • 打赏
  • 举报
回复
真 or 假 永远为真
所以出错
playmud 2002-02-06
  • 打赏
  • 举报
回复
如果选择学生网站
if 真 or 假 then
如果选择友情网站
if 假 or 真 then
二者没有区别
playmud 2002-02-06
  • 打赏
  • 举报
回复
if kind<>"1" and kind<>"0" then
xuchu 2002-02-06
  • 打赏
  • 举报
回复
<select name='kind'>
<option>请选择</option>
<option value=0>学生网站</option>
<option value=1>友情网站</option>
</select>
juqiang 2002-02-06
  • 打赏
  • 举报
回复
俺继续关注!!!
playmud 2002-02-06
  • 打赏
  • 举报
回复
if not rs.eof then
ehom 2002-02-06
  • 打赏
  • 举报
回复
是啊!可是
rs.eof and rs.bof表示无数据,既没有重复啊!
你弄反了!
lessbird 2002-02-06
  • 打赏
  • 举报
回复
我是想要如果有重复网站名字和URL就提示错误啊。
ehom 2002-02-06
  • 打赏
  • 举报
回复
if kind<>"1" or kind<>"0" then
有逻辑错误!不管等于0或1都会提示选择类型!因为等于1就不可能等于0!
if rs.eof and rs.bof then改为if not rs.eof then
返回记录为空应该是"网站不存在"而非"网站已经存在"!

28,405

社区成员

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

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