UC知道如何判断网址和数据库的网址重复
来源：百度知道 编辑：UC知道 时间：2024/05/26 19:40:34
<%
dim founderr,errmsg
founderr=false
errmsg=""
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
leibie1=request("leibie1")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="0" then
Response.Write "<p> <p><center>"
Response.Write "表单填写不完整！！"
Response.Write "<br><a href='index.asp'>返回首页</a></center>"
response.end
end if
if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from XS20_WEB",conn,1,3
rss
dim founderr,errmsg
founderr=false
errmsg=""
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
leibie1=request("leibie1")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="0" then
Response.Write "<p> <p><center>"
Response.Write "表单填写不完整！！"
Response.Write "<br><a href='index.asp'>返回首页</a></center>"
response.end
end if
if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from XS20_WEB",conn,1,3
rss
rss.open "select * from XS20_WEB where url='"&url&"'",conn,1,3
'关键就在这里
if rss.eof or rs.bof then
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("classid1")=leibie1
rss("email")=email
rss("memo")=memo
rss("time")=now()
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
Response.Write "<p> <p><center>"
Response.Write "你的网站信息已经成功提交！我们会在72小时内审核你的网站是否收录！"
Response.Write "<br><a href='index.asp'>返回首页</a></center>"
response.end
else
Response.Write "网址已存在，请不要重复提交！<br><a href='index.asp'>返回首页</a></center>"
response.end
end if