ASP进阶之文章在线管理更新(4)
程序员文章站
2023-02-18 14:13:07
asp进阶之文章在线管理更新--文章的保存篇作者：沙滩小子 经过了文章的添加过程，我想大家更想知道asp代码是怎样将页面上的信息保存到里面的呢？而且这一功能还...
asp进阶之文章在线管理更新--文章的保存篇
作者：沙滩小子
经过了文章的添加过程，我想大家更想知道asp代码是怎样将页面上的信息保存到里面的呢？而且这一功能还必须由另外一个页面来实现，由于asp对数据库支持的完好性，由asp来实现对数据库的操作是非常简单的，很容易对数据库进行新增、更新、修改、删除等操作，而我们的程序正好对这些方面都有一定的要求，下面就来介绍本程序中的文章保存页面！
新建一asp文件savearticle.，以下注明其主要代码的具体含义：
"插入数据库连接文件
<!--#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>
<p 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>
作者：沙滩小子
经过了文章的添加过程，我想大家更想知道asp代码是怎样将页面上的信息保存到里面的呢？而且这一功能还必须由另外一个页面来实现，由于asp对数据库支持的完好性，由asp来实现对数据库的操作是非常简单的，很容易对数据库进行新增、更新、修改、删除等操作，而我们的程序正好对这些方面都有一定的要求，下面就来介绍本程序中的文章保存页面！
新建一asp文件savearticle.，以下注明其主要代码的具体含义：
"插入数据库连接文件
<!--#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>
<p 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>
上一篇： 用ASP开发一个在线考试程序（八）
下一篇： 用ASP开发一个在线考试程序（七）