请帮忙检查代码

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

<%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%>

无论选择哪个连接类型都提示请选择连接类型，如果去掉，却提示说该网站已经存在。

...全文