admin_saveadmintype.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：[e-mail]
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<!--#include file="info.asp" -->
<%

if Request.Form("cz")="" then
cz=Request.QueryString("cz")
else
cz=Request.Form("cz")
end if

if cz="addclass" 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 class where Classid="&Request.Form("classid") 
rs.OPEN sql,Conn,1,3
else
sql = "SELECT * FROM class where (Classid is null)" 
rs.OPEN sql,Conn,1,3
rs.addnew
end if
rs("Classname")=Request.Form("classname")
rs("Classn")=Request.Form("classn")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect"Admin_Class.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 trim(Request.Form("classid"))="" 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 (Typeid is null)" 
rs.OPEN sql,Conn,1,3
rs.addnew
else
sql = "SELECT * FROM type where Typeid="&Request.Form("typeid") 
rs.OPEN sql,Conn,1,3
end if
rs("Typename")=Request.Form("typename")
if Request.Form("minipic")<>"" then
rs("Typeminipic")=Request.Form("minipic")
else
rs("Typeminipic")="files/nopic.gif"
end if
rs("classid")=Request.Form("classid")
rs("Classt")=Request.Form("classt")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect"Admin_Class.asp"
else
call infom()
end if

elseif cz="delclass" then

conn.execute "delete from class where CLassid="&Request.Form("classid")
conn.execute "delete from type where Classid="&Request.Form("classid")
conn.execute "delete from desktop where classid="&Request.Form("classid")
conn.close
Set conn=Nothing
Response.Redirect"Admin_Class.asp"

elseif cz="deltype" then

conn.execute "delete from type where Typeid="&Request.Form("typeid")
conn.execute "delete from desktop where typeid="&Request.Form("typeid")
conn.close
Set conn=Nothing
Response.Redirect"Admin_Class.asp"

end if
%>