www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/special_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 sname=""&request("sname")&""&request("sname_add")&"|" else sname=""&request("sname_add")&"|" end if if request("id")<>"" then tj=request("tj")+1 else tj="1" end if if request("sname_add")="" then errmsg=errmsg & "<li>专题类别名不能为空!</li>" Set rsc = Conn.Execute("select * from specialx where sname= '" & sname & "'") 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 specialx",conn,3,2 rst.addnew rst("sname")=sname 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("Imagevshu")=request("Imagevshu") rst("imagevlen")=request("imagevlen") rst("imagevwid")=request("imagevwid") rst("newshuset")=request("newshuset") rst("TypePicmore")=request("TypePicmore") if request("MaxPerPage")<>"" then '-----------lennyash add this item next rst("MaxPerPage")=request("MaxPerPage") else rst("MaxPerPage")=20 end if '----------------------------- 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 specialx order by id desc",conn,1,3 rsedit("ts")=""&request("ts")&""&rsedit("id")&"," rsedit.Update rsedit.close response.redirect "specialLB.asp?id="&request("id")&"" set rst=nothing conn.close set conn=nothing%>