www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_cx_add_save.asp
<%Admin="DownAdd"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_down.asp"--> <!--#include file="Downconfig.asp"--> <!--#include file="char.inc"--> <% savetime=Now()+webtime/24 set rs=server.CreateObject("ADODB.RecordSet") if request.form("tid")="" then errmsg=errmsg & ""程序类别"必选! \n" if request.form("cxn")="" then errmsg=errmsg & ""程序名称"不能为空! \n" if request("cxn")<>"" and request("cxv")<>"" and request("tid")<>"" then rs.open "select * from down where cxn='"&request("cxn")&"' and cxv='"&request("cxv")&"' and tid="&request("tid"),conn,1,1 if not rs.eof then errmsg=errmsg & "本类别内已经有相同的程序了! \n" rs.close end if if errmsg<>"" then set rs=nothing conn.close set conn=nothing response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") else sql="select * from down where (id is null)" rs.open sql,conn,1,3 rs.addnew rs("tid")=request("tid") rs("cxn")=request("cxn") rs("cxv")=request("cxv") rs("yy")=request("yy") rs("cd")=request("cd") rs("sq")=request("sq") rs("size")=request("size") rs("hot")=request("hot") rs("hy")=request("hy") rs("user")=xoYuStudioAdminName rs("gs")=request("gs") if request("show")=1 then rs("show")=1 end if if request("system2")<>"" then rs("system")=request("system2") else rs("system")=request("system") end if if request("zd_date_yes")="yes" then rs("date")=request("zd_date") else rs("date")=savetime end if rs("reg")=request("reg") rs("ln")=request("ln") rs("lu")=request("lu") if request("pic")<>"softimg/" then rs("pic")=request("pic") end if if request("html")="yes" then rs("body")=request("body") else rs("body")=htmlencode(request("body")) end if if request("pwdyes")="yes" then rs("pwd")=request("pwd") end if rs("keyword")=request("keyword") rs.update if request("makehtml")="yes" then temp = rs.bookmark rs.bookmark = temp newid=rs.Fields("ID") end if rs.close sql="select * from down order by id desc" rs.open sql,conn,1,1 if not rs.eof then newid=rs("id") end if rs.close if request("no")<>"" and newid<>"" then for i=1 to request("no") if request("file"&i&"")<>"" then sql="select * from downfile where (id is null)" rs.open sql,conn,1,3 rs.addnew rs("downid")=newid rs("downno")=i rs("filename")=request("filename"&i&"") rs("file")=request("file"&i&"") rs.update rs.close end if next end if set rs=nothing conn.close set conn=nothing if request("makehtml")="yes" then response.write("<script>window.open(""down_makesoft.asp?type=page&id="&newid&""","""",""width=0,height=0,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no"")</script>") end if response.write ("<script>alert('成功:添加完成,请继续添加!');location.href='down_cx_add.asp?id="&request("id")&"'</script>") response.end end if %>