categoryupdate.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
oper=request.QueryString("oper")
if oper="add" then
Add
elseif oper="modify" then
Modify
elseif oper="del" then
Del
end if
if(rst<>null) then
	rst.close()
	set rst=nothing
end if
  set rst=nothing
  set conn=nothing
if(err)then
	response.Write("<SCRIPT language='javascript'>alert('操作失败，\n如有问题请联系管理员！');window.href='CategoryAdd.asp'</script>")
else
	response.redirect("Category.asp")
end if
'添加类别=================================================
sub Add
Name=request.Form("name")
set rst=conn.execute("select id from category where name='"&Name&"'")
if rst.eof then
Insert
else
response.Write("<SCRIPT>alert('已有此类别名称！');history.go(-1);</script>")
response.End()
end if
end sub
'入库操作
sub Insert
Name=request.Form("name")
sql="insert into category values('"&Name&"')"
'response.write(sql)
conn.execute(sql)
end sub
'修改类别=================================================
sub Modify
Name=request.form("name")
set rst=conn.execute("select id from category where name='"&Name&"'")
if rst.eof then
Update
else
	if(rst("id")=request.QueryString("id")) then
	Update 
	else
	response.Write("<SCRIPT>alert('已有此类别名称！');history.go(-1);</script>")
	response.End()
	end if
end if
end sub
'入库操作
sub Update
id=request.QueryString("id")
Name=request.Form("name")
sql="update Category set Name='"&Name&"' where id="&id
'response.write(sql)

conn.execute(sql)
end sub
'删除类别=================================================
sub Del
conn.execute("delete from Category where id="&request.QueryString("id"))
end sub
%>