download.asp

asp源码 图片ASP整站

	   Optionstr = Optionstr+'<tr><td><div align="center">地址名称'+i+'&nbsp;<input type="text" size="20" name="AddressName'+i+'" value="">&nbsp;</div></td><td><div align="center">链接地址&nbsp;<input type="text" size="30" name="Url'+i+'" value="">&nbsp;</div></td><td><div align="center"><input type="button" name="Submit4" onClick="SetFilePath(document.DownForm.Url'+i+');" value="选择文件"></div></td><td><div align="center">地址排序&nbsp;<input type="text" name="Number'+i+'" value="'+i+'" size="3"><input name="AddressID'+i+'" type="hidden" value=""></div></td></tr>';
	}
	Optionstr = Optionstr+'</table>'; 
	document.all.Options.innerHTML = Optionstr;
  }
function SetFilePath(Obj)
{
	var ReturnValue=OpenWindow('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300);
	if (ReturnValue!='') Obj.value=ReturnValue;
}
function ChangeFolder(el)
{
	if (el.className=='LableSelected') return;
	var OperObj=null;
	var FolderIDArray=new Array('ContentFolder','AttributeFolder','AddressFolder');
	var EditAreaIDArray=new Array('ContentArea','AttributeArea','AddressArea');
	el.className='LableSelected';
	el.bgColor='#EFEFEF';
	for (var i=0;i<FolderIDArray.length;i++)
	{
		OperObj=document.getElementById(FolderIDArray[i]);
		AreaObj=document.getElementById(EditAreaIDArray[i]);
		if (OperObj!=null)
		{
			if (OperObj.id!=el.id)
			{
				OperObj.className='LableDefault';
				OperObj.bgColor='#FFFFFF';
				if (AreaObj!=null) AreaObj.style.display='none';			
			}
			else if (AreaObj!=null) AreaObj.style.display='';
		}
	}
}
function ChooseExeName()
{
  if (document.DownForm.BrowPop.value!='') document.DownForm.FileExtName.disabled=true;
  else document.DownForm.FileExtName.disabled=false;
 }
function SubmitData()
{
	document.DownForm.Description.value=frames["NewsContent"].EditArea.document.body.innerHTML;
	document.DownForm.submit();
}
function SelectClass()
{
	var ReturnValue='',TempArray=new Array();
	ReturnValue = OpenWindow('../../FunPages/SelectClassFrame.asp',400,300,window);
	if (ReturnValue.indexOf('***')!=-1)
	{
		TempArray = ReturnValue.split('***');
		document.all.ClassID.value=TempArray[0]
		document.all.ClassCNameShow.value=TempArray[1]
	}
}
ChooseExeName();
</script>
<%
if Request.Form("action") = "Submit" then
	Dim IDownObj,DownLoadSql
	Dim RsVoteObj,RsVoteSql,VoteName,RsDownAddrAddObj,RsVoteOptionSql
	If Replace(Replace(Replace(Replace(IName,"/",""),"\",""),"'","")," ","") = "" then
		Response.Write("<script>alert(""下载名称为空或是含有非法字符"");</script>")
		Response.End 
	End If
	If IClassID = "" then
		Response.Write("<script>alert(""请选择栏目"");</script>")
		Response.End 
	End If
	If IsDate(IAddTime) = false then
		Response.Write("<script>alert(""添加时间格式不正确"");</script>")
		Response.End 
	End If
	If IsNumeric(IClickNum) = false then
		Response.Write("<script>alert(""下载次数必须为数字类型"");</script>")
		Response.End 
	End If
	If INewsTemplet = "" then
		Response.Write("<script>alert(""文件模板名称不能为空"");</script>")
		Response.End 
	End If
	'判断下载地址
	For i=1 to Request.Form("AddressNum")
		if Request.Form("AddressName" & i) = "" or isnull(Request.Form("AddressName" & i & "")) then
			Response.Write("<script>alert(""地址名称" & i & "不能为空"");</script>")
			Response.End
		end if
		If Request.Form("Url"&i)="" or isnull(Request.Form("Url"&i)) then
			Response.Write("<script>alert(""链接地址" & i & "不能为空"");</script>")
			Response.End
		End If
	Next
	'判断下载地址
	Dim NewsFileNames,INewsAddSql
	if IDownLoadID <> "" then
		Set IDownObj = Server.CreateObject(G_FS_RS)
		DownLoadSql = "Select * from FS_DownLoad where DownLoadID='" & IDownLoadID & "'"
		IDownObj.open DownLoadSql,Conn,3,3
	else
		IDownLoadID = GetRandomID18()
		Set IDownObj = Server.CreateObject(G_FS_RS)
		DownLoadSql = "Select * from FS_DownLoad where 1=0"
		IDownObj.open DownLoadSql,Conn,3,3
		IDownObj.AddNew
		IDownObj("DownLoadID") = IDownLoadID    '新闻ID
		NewsFileNames = NewsFileName(GetConfig(16),IClassID,IDownLoadID)
		IDownObj("FileName") = NewsFileNames
	end if
	IDownObj("Name") = IName
	IDownObj("ClassID") = IClassID
	if IVersion <> "" then
		IDownObj("Version") = Replace(Replace(IVersion,"""",""),"'","")
	end if
	IDownObj("Types") = Cint(ITypes)
	IDownObj("Property") = Cint(IProperty)
	IDownObj("Language") = Cint(ILanguage)
	if IAccredit <> "" then 
		IDownObj("Accredit") = Cint(IAccredit)
	end if
	If IFileSize <> "" then
		IDownObj("FileSize") = Replace(Replace(IFileSize,"""",""),"'","")
	End If
	If Isnumeric(IAppraise) then
		IDownObj("Appraise") = Cint(IAppraise)
	End If
	If ISystemType <> "" then
		IDownObj("SystemType") = Replace(Replace(ISystemType,"""",""),"'","")
	End If
	If IEMail <> "" then
		IDownObj("EMail") = Replace(Replace(IEMail,"""",""),"'","")
	End If
	If IProvider <> "" then
		IDownObj("Provider") = IProvider
	End If
	If IProviderUrl <> "" then
		IDownObj("ProviderUrl") = IProviderUrl
	End If
	IDownObj("Pic") = Replace(IPic,"'","")
	if IBrowPop <> "" then
		IDownObj("BrowPop") = Cint(IBrowPop)
	end if
	Dim Description_Loop_Var,Save_Description
	For Description_Loop_Var = 1 To Request.Form("Description").Count
		Save_Description = Save_Description & Request.Form("Description")(Description_Loop_Var)
	Next
	IDownObj("Description") = replace(Save_Description,WebDomain,"")
	IDownObj("PassWord") = IPassWord
	IDownObj("AddTime") = Formatdatetime(IAddTime)
	if IDownLoadID <> "" then
		IDownObj("EditTime") = Formatdatetime(IEditTime)
	end if
	if IRecTF = "1" then
		IDownObj("RecTF") = 1
	else
		IDownObj("RecTF") = 0
	end if
	if Request("AuditTF") = "1" then
		IDownObj("AuditTF") = 1
	else
		IDownObj("AuditTF") = 0
	end if
	If Request.Form("BrowPop") <> "" then
		IDownObj("FileExtName") = "asp"
	Else
		IDownObj("FileExtName") = IFileExtName
	End If
	if IClickNum <> "" then
		IDownObj("ClickNum") = Clng(IClickNum)
	end if
	IDownObj("NewsTemplet") = Cstr(INewsTemplet)
	if IReviewTF = "1" Then
		IDownObj("ReviewTF") = 1
	Else
		IDownObj("ReviewTF") = 0
	End if
	if IShowReviewTF = "1" Then
		IDownObj("ShowReviewTF") = 1
	Else
		IDownObj("ShowReviewTF") = 0
	End if
	IDownObj.Update
	IDownObj.Close
	Set IDownObj = Nothing
	'保存下载地址
	Set RsDownAddrAddObj = Server.CreateObject(G_FS_RS)
	Conn.Execute("Delete From FS_DownLoadAddress where DownloadID='" &IDownLoadID & "'")
	For i = 1 to Request.Form("AddressNum")
			RsVoteOptionSql = "Select * from FS_DownLoadAddress where 1=0"
		RsDownAddrAddObj.Open RsVoteOptionSql,Conn,3,3
		RsDownAddrAddObj.AddNew
		RsDownAddrAddObj("ID") = GetRandomID18()
		RsDownAddrAddObj("DownLoadID") = Cstr(IDownLoadID)
		RsDownAddrAddObj("AddressName") = Replace(Request.Form("AddressName" & i),"'","")
		RsDownAddrAddObj("Url") = Request.Form("Url" & i)
		If isnumeric(Request.Form("Number" & i)) then
			RsDownAddrAddObj("Number") = Cint(Request.Form("Number" & i))
		Else
			RsDownAddrAddObj("Number") = i
		End If
		RsDownAddrAddObj.Update
		RsDownAddrAddObj.Close
	Next
	Set RsDownAddrAddObj = Nothing
	'保存下载地址
	'生成文件
	if Request.Form("AuditTF") = "1" then
		Dim CreatePageObj
		Set CreatePageObj = Conn.Execute("Select * from FS_DownLoad where DownLoadID='" & IDownLoadID & "'")
		If Not CreatePageObj.eof then
			Dim ClassCache,ClassInfo,f_SavePath
			Set ClassCache =New Cls_FsCache
			ClassCache.Name="ClassCache"
			ClassCache.ArrayIndex=0
			ClassCache.KnowValue=CreatePageObj("ClassID")
			ClassInfo = ClassCache.FindNeedRecord("")
			Set ClassCache = Nothing
			If ClassInfo(13)="/" Then
				f_SavePath= Get_RootDir & "/" & ClassInfo(2) 
			Else
				f_SavePath= Get_RootDir & ClassInfo(13) & "/" & ClassInfo(2) 
			End If
			RefreshInfo "DownLoad",CreatePageObj("DownloadID"),CreatePageObj("ClassID"),Get_RootDir & CreatePageObj("NewsTemplet"),CreatePageObj("FileName"),CreatePageObj("FileExtName"),f_SavePath
		Else
		  Response.Write("<script>if (confirm(""下载添加成功,但未能成功生成下载文件,是否继续添加?"")==false) {window.location='NewsList.asp?ClassID="&IClassID&"';} else {window.location=""?ClassID="&IClassID&""";}</script>")
		  Response.End
		End If	
		CreatePageObj.Close
		Set CreatePageObj = Nothing
	end if 
	if EditContentTF = True then
		Response.Redirect("DownloadList.asp?ClassID=" & IClassID)
	else
		If GetConfig(12)="1" and GetConfig(15)="1" then
			Response.Write("<script>if (confirm(""下载添加成功,是否生成此栏目和首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		ElseIf GetConfig(12)="1" then
			Response.Write("<script>if (confirm(""下载添加成功,是否生成此栏目?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		ElseIf GetConfig(15)="1" then
			Response.Write("<script>if (confirm(""下载添加成功,是否生成首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		Else
			Response.Write("<script>if (confirm(""下载添加成功,是否继续添加?"")==false) {window.location='NewsList.asp?ClassID=" & IClassID & "';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		End If
	end if
	Response.End
end if
%>