标题: [求助]高人指点。。。有点难度 [打印本页] 作者: 神①→沙加 时间: 2010-1-17 03:07 标题: [求助]高人指点。。。有点难度 <%
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
%>
以下提交表单。。。以及表单检查作者: 大天使路西法 时间: 2010-1-17 03:07
<script LANGUAGE="VBSCRIPT">
function check()
a=msgbox("真的要删除该记录吗？",1,"注意")
if a=1 then
location="Dodelete.asp?id=<%=id%>" //指向执行删除的页面Dodelete.asp
end if
end function
</script>
<input type="button" name="Submit" value="按钮" onclick="check()" />