admin_add1.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<!--#include file="conn.asp"-->
<!--#include file="chk.asp"-->
<%
dim rs
dim sql
bookid=request("bookid")
biaoti=trim(request("biaoti"))
zuozhe=trim(request("zuozhe"))
zhengwen=trim(request("zhengwen"))
if len(biaoti)=0 then response.redirect("error.asp?word=请输入正确的标题")
if len(zuozhe)=0 then response.redirect("error.asp?word=请输入作者")
if len(zhengwen)=0 then response.redirect("error.asp?word=请输入的文章正文")
set rs=server.createobject("adodb.recordset")
sql="select * from read"
rs.open sql,conn,3,3
rs.addnew
rs("biaoti")=server.htmlencode(biaoti)
rs("zuozhe")=server.htmlencode(zuozhe)
rs("bookid")=server.htmlencode(bookid)
rs("zhengwen")=server.htmlencode(zhengwen)
rs.update
rs.close
set rs=nothing
response.redirect("admin_add_co.asp")
%>