admin_bookzjsave.asp

管理系统部分功能如下： （１）在线增加、修改、删除管理员 （２）在线增加、修改、删除作品、支持HTML等.. （３）前台作品付有评论功能．．以及评论数目和点击次数显示

<!-- #include file="conn.asp" -->
<!-- #include file="cookies.asp" -->
<%
'on error resume next
 dim title
 dim type1
 dim key1
 dim from1
 dim author
 dim nr
 dim cs
 dim ids
 dim hitday
 dim todayhit
 title=request.form("title")
 type1=request.form("type")
 key1=request.form("key1")
 from1=request.form("from1")
 author=request.form("author")
 if request.form("html")="on" then
  nr=request.form("nr")
  else
  nr=replace(server.htmlencode(request.form("nr")),chr(13),"<br>")
 end if
 	if title="" then
  		response.redirect "error.asp?err_on=13"
 	elseif key1="" then
  		response.redirect "error.asp?err_on=14"
 	elseif nr="" then
  		response.redirect "error.asp?err_on=15"
 	end if
 set rs1=server.createobject("adodb.recordset")
 sql1="select id from type where typename='"&type1&"'"
 rs1.open sql1,conn,1,1
 ids=rs1("id")
 rs1.close
 set rs1=nothing
 set rs=server.createobject("adodb.recordset")
 sql="select * from book"
 rs.open sql,conn,1,3
 rs.addnew
 rs("todayhit")=0
 rs("title")=title
 rs("key1")=key1
 rs("typeid")=ids
 if from1<>"" then
 rs("from1")=from1
 end if
 if author<>"" then
 rs("author")=author
 end if
 rs("nr")=nr
 if request.form("img1")<>"" then
 rs("img1")=trim(request.form("img1"))
 end if
 if request.form("img2")<>"" then
 rs("img2")=trim(request.form("img2"))
 end if
 rs("time1")=now()
 rs("cs")=0
 rs("hitday")=date()
 rs.update
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 response.redirect "admin_zjok.asp"
%>