flok.asp

一个完整的flash 教程 很不错 适合初学者~

<!--#include file="yz.asp"-->
<%
id=trim(Request.form("id"))
lb=trim(Request.form("lb"))
lb1=trim(Request.form("lb1"))
%>
<%
if request.form("submit")="修 改" then
if lb="" then 
Response.write "分类名不能为空！请重新输入"
Response.end 
end if
%>
<!--#include file="data.asp"-->
<%
sql="select * from 类别 where 类别='"&lb&"' and id<>"&id&""
set rs=conn.execute(sql)
If Rs.Bof OR Rs.Eof then
conn.execute("update 类别 set 类别='"&lb&"' where id="&id)
conn.close 
set conn=nothing
Response.write "操作成功"
Response.end 
else
Response.write "已经有一个类别同名了"
Response.end
end if 
end if
%>
<%
if request.form("Submit1")="删 除" then
%>
<!--#include file="data.asp"-->
<%
conn.execute("delete * from 类别 where id="&id)
conn.close 
set conn=nothing
Response.write "操作成功"
Response.end 
end if
%>
<%
if request.form("Submit2")="添 加" then
if lb1="" then 
Response.write "分类名不能为空！请重新输入"
Response.end 
end if
%>
<!--#include file="data.asp"-->
<%
sql="select * from 类别 where 类别='"&lb&"'"
set rs=conn.execute(sql)
If Rs.Bof OR Rs.Eof then
conn.execute("insert into 类别(类别) values ('"&lb1&"')")
conn.close 
set conn=nothing
Response.write "操作成功"
Response.end 
else
Response.write "已经有一个类别同名了"
Response.end
end if 
end if
%>