shenheok.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
%>
<% 

function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
    changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
    changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%>



<%dim title
dim r
dim content
dim sql
dim rs
dim articleid
dim typeid
typeid=request.form("typeid")
title=request.form("txttitle")
content=changechr(request.form("txtcontent"))
articleid=request("id")
tj=request.form("tj")
zt=request.form("zt")
%>

<%
dim sql1
dim rs1
dim typename
dim rs3
dim sql3
%>
<%dim username
dim zznews
dim about
sql1="select * from type where typeid="&typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename=rs1("type")
rs1.close
set rs1=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from shenhe where newsid="&articleid
rs.open sql,conn,3,3
rs("shenghe")="已审"
rs("title")=title
rs("content")=content
rs("type")=typename
rs.update
username=rs("username")
email=rs("Nfrom")
zznews=rs("zznews")
about=rs("about")
rs.close
set rs=nothing
rs1.close 
set rs1=nothing
%>

<%dim rs2
dim sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from article order by newsid"
rs2.open sql2,conn,3,3
rs2.addnew
rs2("zznews")=zznews
rs2("title")=title
rs2("content")=content
rs2("typeid")=typeid
rs2("typename")=typename
rs2("shenghe")="已审"
rs2("Nfrom")=email
rs2("about")=about
rs2("tjnews")=tj
rs2.update
rs2.close
%>
<%Set r = Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where username='"&username&"'"
   r.open sql,conn,3,2
   r("amount")=r("amount")+1
   r.update
    r.close
    conn.close
set conn=nothing
    response.redirect "shenhe.asp"
%>