down_cx_edit_save.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·软件下载管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="Downconfig.asp"-->
<%
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")
if request("d")="editsave" then%>
<!--#include file="char.inc"-->                
<%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
sql="select * from down where cxn='"&request("cxn")&"' and cxv='"&request("cxv")&"' and tid="&request("tid")
rs.open sql,conn,1,1
if not rs.eof then
 if cint(rs("id"))<>cint(request("id")) then errmsg=errmsg & "本类别内已经有相同的程序了! \n"
end if
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
		rs.open "select * from down where id="&request("id"),conn,1,3
		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("hy")=request("hy")
		if request("user")="" then
		rs("user")=xoYuStudioAdminName
		end if
		if request("show")=1 then
		  show=1
		else
		  show=0
		end if
		rs("show")=show
		rs("hot")=request("hot")
		  if request("system2")<>"" then
		    rs("system")=request("system2")
		  else
		    rs("system")=request("system")
		  end if
		rs("reg")=request("reg")
		rs("ln")=request("ln")
		rs("lu")=request("lu")
		rs("pwd")=request("pwd")
		rs("pic")=request("pic")
			if request("html")="yes" then
			  rs("body")=request("body")
			else
			  rs("body")=htmlencode(request("body"))
			end if
		if request("updatehits")<>"" then
		   rs("hits")=request("hits")
		end if
		if request("updateerror")<>"" then
		   rs("error")=request("updateerror")
		end if
		if request("zd_date_yes")="yes" then
		   rs("date")=request("zd_date")
		else
		   if request("updatetime")<>"" then
		     rs("date")=savetime
		   end if
		end if
		rs.update
		rs.close
		for i=1 to request("oldhow")
		if not isempty(request("del"&i)) then
		conn.execute"delete from downfile where id="&request("id"&i)
		delcount=delcount+1
		else
		Conn.execute"update downfile set filename='"&request("filename"&i)&"' where id="&request("id"&i)
		Conn.execute"update downfile set file='"&request("file"&i)&"' where id="&request("id"&i)
		Conn.execute"update downfile set downno="&i-delcount&" where id="&request("id"&i)		
		end if
		next
		for i=1 to request("no")
		 if request("file"&(int(i)+int(request("oldhow")))&"")<>"" then
		sql="select * from downfile where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("downid")=request("id")
		rs("filename")=request("filename"&(int(i)+int(request("oldhow")))&"")
		rs("file")=request("file"&(int(i)+int(request("oldhow")))&"")
		rs("downno")=int(i)+int(request("oldhow"))-delcount
		rs.update
		rs.close
		 end if
		next
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "down_cx_edit.asp?id="&request("id")&"&d=saveok&update="&request("update")&""
Response.end
end if
end if
%>