rs.close
set rs=nothing
conn.close
set conn=nothing
%>
5.1.7更新信息页
1．Saveedit.asap页面示例
图为管理员修改信息成功所看到的页面。
2．页面中需要用户填写的表单元素
此页无需填写表单元素
3.页面所涉及的数据库表信息
此页使用了系统中信息记录表learning
4.页面代码分析
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
dim typename
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile
dim big
dim from
dim fromurl
dim url
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&articleid
rs.open sql,conn,3,3
rs("title")=title
rs("url")=url
rs("content")=content
rs("big")=big
rs("from")=from
rs("fromurl")=fromurl
rs("dateandtime")=date()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.redirect "manage.asp"
%>
5.1.8删除信息页
1．Delete.asp页面示例
管理员删除信息成功后跳转到管理员首页。
2．页面中需要用户填写的表单元素
此页无需填写表单元素
3.页面所涉及的数据库表信息
此页使用了系统中信息记录表learning
4.页面代码分析
<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<!--#include file="articleconn.asp"-->
<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from learning where articleid="&request("ID")
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
