<%
if request("add")<>"" then
title=Trim(request("title"))
url=Trim(request("url"))
ftp=Trim(request("ftp"))
typeid=Trim(request("typeid"))
shehe=Trim(request("shehe"))
user=Trim(request("user"))
if session("flag")>0 then
user=session("admin")
else
user=""
end if
if session("flag")>1 then
shehe=false
else
shehe=true
end if
if Request("url")=""then
url="image/nextdoor.jpg"
else
url=Request("url")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select*from main where title='"&title&"'"
rs.open sql,conn,2,3
if not rs.eof then /*问题在这。。。。。这里我想加个提示。。。如果有记录时提示。记录以有。。是否复盖原来的。是就复盖,否就返回
rs("title")=title
rs("url")=url
rs("ftp")=ftp
rs("typename")=typeid
rs("shehe")=shehe
rs("user")=user
rs.update
else /*记录不荐在就新增了
rs.addnew
rs("title")=title
rs("url")=url
rs("ftp")=ftp
rs("typename")=typeid
rs("shehe")=shehe
rs("user")=user
rs.update
set rs=nothing
conn.close
set rs=nothing
response.redirect "admin_add.asp"
end if
end if
%>
以下提交表单。。。以及表单检查