ASP进阶之文章在线管理更新(4)
日期：2011-01-09 浏览次数：20837 次
经过了文章的添加过程，我想大家更想知道ASP代码是怎样将页面上的信息保存到数据库里面的呢？而且这一功能还必须由另外一个页面来实现，由于ASP对数据库支持的完好性，由ASP来实现对数据库的操作是非常简单的，很容易对数据库进行新增、更新、修改、删除等操作，而我们的程序正好对这些方面都有一定的要求，下面就来介绍本程序中的文章保存页面！
新建一ASP文件savearticle.asp，以下注明其主要代码的具体含义：
"插入数据库连接文件
<!--#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>
<div align="center">
<table border="1" cellspacing="0" width="50%" bgcolor="#F0F8FF" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
<tr>
<td width="100%" bgcolor="#0080C0" height="20">
<p align="center"><font color="#FFFFFF"><b>添加文章成功</b></font></td>
</tr>
<tr>
<td width="100%">
<p align="left"><br>
"显示保存成功后页面,并指出其文章号和标题
其文件名为：<%response.write "article"&articleid%><br>
文件标题为：<%response.write title%></p>
<center>
<p align="center">是否继续添加？<br>
<br>
<a href="addarticle.asp">
是</a> <a href="manage.asp">否</a><br>
<br>
</p>
</td>
</tr>
</table>
</div>
好了，我们的文章的在线添加保存程序到这里就大功告成了，利用它你可以随心所欲的在线添加你想要的文章和信息，在本节提到了对HTM代码进行转化的程序，那么在下一节我们就来谈谈怎样实现对HTM代码的转化吧！
新建一ASP文件savearticle.asp，以下注明其主要代码的具体含义：
"插入数据库连接文件
<!--#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>
<div align="center">
<table border="1" cellspacing="0" width="50%" bgcolor="#F0F8FF" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
<tr>
<td width="100%" bgcolor="#0080C0" height="20">
<p align="center"><font color="#FFFFFF"><b>添加文章成功</b></font></td>
</tr>
<tr>
<td width="100%">
<p align="left"><br>
"显示保存成功后页面,并指出其文章号和标题
其文件名为：<%response.write "article"&articleid%><br>
文件标题为：<%response.write title%></p>
<center>
<p align="center">是否继续添加？<br>
<br>
<a href="addarticle.asp">
是</a> <a href="manage.asp">否</a><br>
<br>
</p>
</td>
</tr>
</table>
</div>
好了，我们的文章的在线添加保存程序到这里就大功告成了，利用它你可以随心所欲的在线添加你想要的文章和信息，在本节提到了对HTM代码进行转化的程序，那么在下一节我们就来谈谈怎样实现对HTM代码的转化吧！
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
