"插入数据库连接文件 <!--#include file="conn.asp"--> "插入解释HTM代码文件,下一节将为大家介绍,主要是对HTM代码进行转化,以免出现页面格式上的混乱,而且也更方便对技术性文章的发表 <!--#include file="articlechar.inc"--> "如果不是从管理页面进入，则转到验证管理员信息页面 <% if request.cookies("adminok")="" then response.redirect "login.asp" end if %> <% dim typename dim title dim content dim sql dim rs dim articleid dim typeid "接受从addarticle.asp处返回的文章内容信息,这里的htmlencode2是对HTM代码进行转化的程序,包含在articlechar.inc里面 title=htmlencode2(request.form("txttitle")) content=htmlencode2(request.form("txtcontent")) typeid=request.form("typeid") "打开指定记录集,并具有写的权限 set rs=server.createobject("adodb.recordset") sql="select * from article where (articleid is null)" rs.open sql,conn,1,3 "对指定记录集进行增加,这里的addnew就是增加数据库内容的对象,如果没有addnew只有update那么就是对其进行更新 rs.addnew rs("title")=title rs("content")=content rs("typeid")=typeid rs("date")=date() rs.update articleid=rs("articleid") "关闭打开的记录集和数据库连接 rs.close set rs=noting conn.close set conn=nothing %> <head> </head>
