down_cx_add_save.asp

一个网上flash网站源码

<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.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")=JyDownAdminName
		rs("gs")=request("gs")
		rs("user")=request("user")
		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")<>"http://www.99soft.com/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.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=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")</script>")
end if
response.write("<script>location.href='down_cx_add1.asp?addok=成功:添加作 品完成,请继续添加作 品!'</script>") 
response.end

end if
%>