dele.asp

文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="articleconn.asp"-->
<%username=session("username")
passwd=session("Passwd")
%>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where username='"&username&"'and passwd='"&passwd&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "login.asp"
response.end
end if
%>
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from shenhe where newsid="&request("ID")
   rs.open sql,conn,1,1
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
   response.redirect "nook.asp"
%>