<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="800">
<tr>
<td width="100" background="../gb/images/main/left.gif"> </td>
<td width="600" bgcolor="#ADBDB4">
<table width="600" border="0" cellspacing="0" cellpadding="5" class="xzy" align="center">
<tr>
<td bgcolor="#5E7567" width="583">管理选项：<a href="admin.asp">管理首页</a> | <a href="adminfile.asp">管理文件</a>
| <a href="loginout.asp">退出管理</a></td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<tr>
<td height="5" bgcolor="#ADBDB4"></td>
</tr>
<form name="form1" method="post" action="saveadmintype.asp?cz=addclass">
<tr>
<td class="bk" bgcolor="#ADBDB4">添加分类：
<input type="text" name="classname" class="an" size="15" maxlength="50">
<input type="submit" name="Submit" value="添加" class="an">
</td>
</tr>
</form>
<form name="form2" method="post" action="saveadmintype.asp">
<tr>
<td class="xzy" bgcolor="#ADBDB4">管理分类：
<select name="classid">
<%
添加分类实现不了，麻烦指教一下，谢谢！
saveadmintype.asp
<%
if Request.Form("cz")="" then
cz=Request.QueryString("cz")
else
cz=Request.Form("cz")
end if
if cz="addtype" or cz="editclass" then
if Request.Form("classname")="" then
Response.Redirect"info.asp?info=请填写分类名称"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if cz="editclass" then
sql = "SELECT * FROM type where id="&Request.Form("classid")
rs.OPEN sql,Conn,1,3
else
sql = "SELECt * FROM type where (id is null)"
rs.OPEN sql,Conn,1,3
rs.addnew
end if
rs("name")=Request.Form("classname")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect"admin.asp"
elseif cz="addtype" or cz="edittype" then
founderr=false
if trim(Request.Form("typename"))="" then
founderr=true
info=info+"<li>请填写分类名称</li>"
end if
if founderr=false then
Set rs = Server.CreateObject("ADODB.Recordset")
if cz<>"edittype" then
sql = "SELECT * FROM type where (id is null)"
rs.OPEN sql,Conn,1,3
rs.addnew
else
sql = "SELECt * FROM type where id="&Request.Form("typeid")
rs.OPEN sql,Conn,1,3
end if
rs("name")=Request.Form("typename")
if Request.Form("minipic")<>"" then
rs("minipic")=Request.Form("minipic")
else
rs("minipic")="images/nominipic.gif"
end if
rs("typeid")=Request.Form("typeid")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect"admin.asp"
else
call infom()
end if
elseif cz="delclass" then
conn.execute "delete from type where id="&Request.Form("classid")
conn.execute "delete from desktop where typeid="&Request.Form("classid")
conn.close
Set conn=Nothing
Response.Redirect"admin.asp"
elseif cz="deltype" then
conn.execute "delete from type where id="&Request.Form("typeid")
conn.execute "delete from desktop where typeid="&Request.Form("typeid")
conn.close
Set conn=Nothing
Response.Redirect"admin.asp"
end if
%>