www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/type_add.asp

    <%Admin="InfoType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
if request("id")<>"" then
  tname=""&request("tname")&""&request("tname_add")&"|"
else
  tname=""&request("tname_add")&"|"
end if

if request("id")<>"" then
  tj=request("tj")+1
else
  tj="1"
end if

if request("tname_add")="" then errmsg=errmsg & "<li>类别名不能为空!</li>"
Set rsc = Conn.Execute("select * from infotype where tname= '" & tname & "'")
if not rsc.eof then errmsg=errmsg & "<li>当前目录已有相同的类别名!</li>"
if errmsg<>"" then
    Conn.Close
    Set conn = nothing
    Set rsc = nothing
    response.write("" & errmsg & "<br><Br><A href='javascript:history.go(-1)' style='text-decoration: none'><<后退</a>")
    response.end
end if
set rst=server.CreateObject("ADODB.RecordSet")

			rst.open "select * from infotype",conn,3,2
			rst.addnew
			rst("tname")=tname
			rst("MbName")=request("MbName")
			rst("last")=request("last")
			rst("imageshu")=request("imageshu")
			rst("imagelen")=request("imagelen")
			rst("imagewid")=request("imagewid")
			rst("chalen")=request("chalen")
			rst("toplen")=request("toplen")
			rst("jschalen")=request("jschalen")
			rst("MaxPerPage")=request("MaxPerPage")
			rst("Imagevshu")=request("Imagevshu")
			rst("imagevlen")=request("imagevlen")
			rst("imagevwid")=request("imagevwid")
			rst("newshuset")=request("newshuset")
			rst("jsshu")=request("jsshu")
			rst("topshu")=request("topshu")
			rst("TypePicmore")=request("TypePicmore")
			if request("id")<>"" then
			rst("tn")=request("id")
			end if
			rst("tj")=tj
			rst.update
			rst.close
			set rsedit=server.CreateObject("ADODB.RecordSet")
			rsedit.open "select * from infotype order by id desc",conn,1,3
			rsedit("ts")=""&request("ts")&""&rsedit("id")&","
			rsedit.Update
			rsedit.close
            response.redirect "html_listLB.asp?id="&request("id")&""
set rst=nothing
conn.close
set conn=nothing
%>