savereview.asp

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

<!--#include file="articleconn.asp"-->

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

if request.form("reviewname")="" then
   response.write"请填写您的大名!!<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if request.form("review")="" then
   response.write"评论内容不能为空，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if len(request.form("review"))>800 then  
    response.write"评论内容不能太多，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if   
  reviewname=changechr(request.form("reviewname"))
  reviewemail=changechr(request.form("reviewemail"))
  review=changechr(request.form("review"))
  face=Request.Form("face") 
reviewurl=Request.Form("reviewurl") 
articleid=request("id")
title=request("title")
IP=Request("REMOTE_ADDR")
  

set rs=server.createobject("adodb.recordset")
sql="select review,reviewcount from article where newsid="&articleid
rs.open sql,conn,3,3

 rs("reviewcount")=rs("reviewcount")+1

rs("review")=rs("review")&"<font color=red>"&title&"</font>  来自 "&reviewname&_
       " "&ip&" 网友的评论 "&date()&"<table bgcolor=""#F7F7F7"" cellspacing=""0"" cellpadding=""5"" border=""0"" width=""100%"" align=""center""><tr><td width=""100%"" style=""font-size:9pt""><strong><font color=green>"&reviewtitle&"</font></strong><br>"&_
         review&"<br></td></tr></table>  " 
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing

response.redirect "review.asp?id="&request("id")
%>