tuigao.asp

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

<!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super" or session("KEY")="check" ) THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>


<%
dim sql
dim rs
dim articleid
articleid=request("id")
if request("id")="" then
response.redirect "error.asp?id=070"
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from shenhe where newsid="&articleid
rs.open sql,conn,3,3
rs("shenghe")="退稿"
rs.update
rs.close
set rs=nothing
rs1.close 
set rs1=nothing
conn.close
set conn=nothing
    response.redirect "shenhe.asp"
%>