lists_del.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="setup.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!--#include file="../WoLib/Function.asp"-->
<%
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
%>
<div align="center">
<%
src_id=request("src_id")
set rs=server.createobject("adodb.recordset")
rs.Open "Select * from [Wo_Source] where src_id="&src_id,conn,3,3
If rs.bof or rs.eof then 
  Response.write "数据出错，可能您已经删除了但没有刷新网页！"
Else
rs("Src_IsOver") = "True"
rs.Update
rs.Close
Response.Write "<a href=Admin_Manage.asp><p>审核成功!正在返回...</a><meta http-equiv=refresh content=2;URL=Admin_Manage.asp> "
Set rs=nothing
End If
%>
</div>