Question

ASP 代码分析 麻烦下~ 详细点！ 谢谢。对我很重要

以下是 一个 ASP新闻发布的部分代码 包含 4个 文件 是添加分类 管理分类 删除分类的功能

addclass.asp editclass.asp editclass_save.asp delclass.asp

帮我 分析下 越详细 越好 可以加分

addclass.asp

<!--#include file="conn.asp"-->
<%
set rs=server.createobject ("adodb.recordset")
sql="select * from class"
rs.open sql,conn,3,3
%>
<%
if request.querystring("act")="tj" then
rs.addnew
rs("class")=request.form("addclass")
rs.update
rs.close
response.Write "添加完成，请执行其他操作"
else
%>

<div align="center">添加分类
</div>
<form id="form1" name="form1" method="post" action="addclass.asp?act=tj">
<label>
<div align="center">分类名称：
<input type="text" name="addclass" />
<input type="submit" name="Submit" value="添加" />
<
<%
end if
conn.close
set rs=nothing
set conn=nothing
%>
<%
end if
%>

<!--#include file="conn.asp"-->
editclass.asp

<p align="center" class="STYLE1">分类管理</p>
<div align="center" class="STYLE1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
do until rs.eof
%>

<td width="467">名称：
<a href="../class.asp?id=<%=rs("id")%>" target="_blank"><%=rs("class")%></a></td>
<td width="59"><a href="editclass_save.asp?id=<%=rs("id")%>">改名</a></td>
<td width="51"><a href="delclass.asp?id=<%=rs("id")%>">删除</a></td>

<%
rs.movenext
loop
%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%
end if
%>

editclass_save.asp

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class where id="&request.QueryString("id")
rs.open sql,conn,1,3
%>

<p align="center">更改类别名称</p>
<form id="form1" name="form1" method="post" action="editclass_save.asp?act=gm&id=<%=request.QueryString("id")%>">
<label>
<div align="center">
<input type="text" name="classname" value="<%=rs("class")%>" />
<input type="submit" name="Submit" value="修改" />

<div align="center">
<%
set rs1=server.createobject("adodb.recordset")
id=request.QueryString("id")
if request.QueryString("act")="gm" then
sql1="select * from class where id="&id
rs1.open sql1,conn,1,3
rs1("class")=request.form("classname")
rs1.update
rs1.close
response.Redirect "editclass.asp"
end if
%>

<%
rs.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>
<%
end if
%>

delclass.asp

<%
if not session("check")="checked" then
response.Redirect "login.asp"
else
%>
<!--#include file="conn.asp"-->
<%
id=request.querystring("id")
delclass="delete * from class where id="&id
conn.execute(delclass)
response.Redirect "editclass.asp"
%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%
end if
%>

Answer 1

这是最简单的ASP运用数据库的代码,给你说说,建议先学学ASp和数据库SQL基本语法,html脚本我就不说了,如果连html脚本都不会,那没说了
addclass.asp

<!--#include file="conn.asp"--> '把连接数据库代码的文件conn.asp包含进来,这里conn.asp文件和addclass.asp是在同一级目录
<%
set rs=server.createobject ("adodb.recordset") '建立数据集对象rs
sql="select * from class" 'SQL查询语句,*表示查询表class中所有记录
rs.open sql,conn,3,3 '对象打开数据库为可写(3表示可写)
%>
<%
if request.querystring("act")="tj" then '如果表单form提交了,就执行下面语句
rs.addnew '增加新记录
rs("class")=request.form("addclass") '新纪录的值等于表单文本框addclass中value的值
rs.update '更新数据库
rs.close'关闭对象,释放资源
response.Write "添加完成，请执行其他操作" '像客户端输出执行结果信息
else'如果表单还没有提交,即request.querystring("act")="" (空),就显示下面的html控件
%>

<div align="center">添加分类
</div>
<form id="form1" name="form1" method="post" action="addclass.asp?act=tj"> 'addclass.asp?act=tj表示向本页提交,同时传递参act=tj,这句可以写成"?act=tj",其中问号表示当前页面
<label>
<div align="center">分类名称：
<input type="text" name="addclass" />
<input type="submit" name="Submit" value="添加" />
<%
end if '结束判断
conn.close '下面三句都是释放数据库对象资源
set rs=nothing
set conn=nothing
%>
<%
end if '从你的代码上下文来看,这个end if好像是多余的,
%>
-----------------------------------------------------
<!--#include file="conn.asp"--> '同上
editclass.asp

<p align="center" class="STYLE1">分类管理</p>
<div align="center" class="STYLE1">
<%
set rs=server.createobject("adodb.recordset") '同上
sql="select * from class" '同上
rs.open sql,conn,1,1 '对象以只读方式打开数据库记录
do until rs.eof '用do...loop循环语句循环输出class表中的所有记录
%>

<td width="467">名称：
<a href="../class.asp?id=<%=rs("id")%>" target="_blank"><%=rs("class")%></a></td>'把记录通过id参数传递到上一级目录中的class.asp页面显示
<td width="59"><a href="editclass_save.asp?id=<%=rs("id")%>">改名</a></td> '把记录通过id参数传递到同级目录中的editclass_save.asp修改保存页面
<td width="51"><a href="delclass.asp?id=<%=rs("id")%>">删除</a></td>
'把记录通过id参数传递到同级目录中的delclass.asp删除页面
<%
rs.movenext '数据指针移动到下一条记录
loop '循环语句结束
%>
<%
rs.close '同上
conn.close '同上
set rs=nothing '同上
set conn=nothing '同上
%>
<%
end if '从你的代码上下文来看,这个end if好像是多余的,
%>
------------------------------------------------------
editclass_save.asp '修改页面,解释和addclass.asp页面的解释相似,在此省略,自己也想想
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class where id="&request.QueryString("id")
rs.open sql,conn,1,3
%>
<p align="center">更改类别名称</p>
<form id="form1" name="form1" method="post" action="editclass_save.asp?act=gm&id=<%=request.QueryString("id")%>">
<label>
<div align="center">
<input type="text" name="classname" value="<%=rs("class")%>" />
<input type="submit" name="Submit" value="修改" />

<div align="center">
<%
set rs1=server.createobject("adodb.recordset")
id=request.QueryString("id")
if request.QueryString("act")="gm" then
sql1="select * from class where id="&id
rs1.open sql1,conn,1,3
rs1("class")=request.form("classname")
rs1.update
rs1.close
response.Redirect "editclass.asp"
end if
%>

<%
rs.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>
<%
end if
%>
--------------------------------------------------------
delclass.asp '删除页面

<%
if not session("check")="checked" then '判断如果session("check")不等于checked,最好这样写:if session("check")<>"checked" then
response.Redirect "login.asp" '就转向登陆页面
else '如果session("check")等于checked,就执行下面语句
%>
<!--#include file="conn.asp"--> '下面是删除数据库记录,条件是传递的id
<%
id=request.querystring("id")
delclass="delete * from class where id="&id '这句可以写成:delclass="delete class where id="&id
conn.execute(delclass) 'conn对象执行delclass语句
response.Redirect "editclass.asp" '转向editclass.asp页面
%>
<%
rs.close '同上
conn.close '同上
set rs=nothing '同上
set conn=nothing '同上
%>
<%
end if
%>传递