del2.asp

来自「一个bbs的代码」· ASP 代码 · 共 33 行

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%
     name=request("name")
     pass=request("pass")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select top 1 id,name,pass FROM admin Order By id desc"
rs.open sql,conn,1,3
     
        if pass=rs("pass") and name=rs("name") then
topicid=request("topicid")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="Delete * from book where id="&request("id")
rs.open sql,conn,1,2
sql="update book set retimes=retimes-1 where id="&topicid&""
rs.open sql,conn,1,3
'-----------------------------------------------------------------------
sql="select * from book  where reid="&topicid&" order by id desc"
set fs=conn.execute(sql)
fs.movefirst
t=trim(fs("t"))
fs.close
set fs=nothing
sql="update book set redate='"&t&"' where id="&topicid
conn.execute(sql)
'-----------------------------------------------------------------------
response.redirect "default.asp"
else
     response.redirect "erro.asp?erro=1"
     end if

%>