admin_editsave.asp

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

<!-- #include file="conn.asp" -->
<!-- #include file="cookies.asp" -->
<%
 dim xtitle
 dim xtype
 dim xkey
 dim xfrom
 dim xauthor
 dim xnr
 xtitle=request("title")
 xtype=request("type")
 xkey=request("key1")
 xfrom=request("from1")
 xauthor=request("author")
 if request.form("html")="on" then
  xnr=request("nr")
  else
 xnr=replace(server.htmlencode(request.form("nr")),chr(13),"<br>")
 end if
  if xtitle="" then
  response.redirect "error.asp?err_on=13"
 elseif xkey="" then
  response.redirect "error.asp?err_on=14"
 elseif xnr="" then
  response.redirect "error.asp?err_on=15"
 end if
 set rs1=server.createobject("adodb.recordset")
 sql1="select id from type where typename='"&xtype&"'"
 rs1.open sql1,conn,1,1
 ids=rs1("id")
 rs1.close
 set rs1=nothing
 set rs=server.createobject("adodb.recordset")
 sql="select * from book where id="&request.querystring("id")
 rs.open sql,conn,3,3
 rs("title")=xtitle
 rs("typeid")=ids
 rs("key1")=xkey
 if from1<>"" then
 rs("from1")=from1
 end if
 if author<>"" then
 rs("author")=author
 end if
 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("nr")=xnr
 rs.update
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 response.redirect "admin_editok.asp"
%>