📄 upload.asp

📁 本房地产网站功能强大
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file = "fy_ClsUpFile.asp"-->
<!--#include file = "getPartStrAndBytesLen.asp"-->
<%
housewebdir="../"
Dim sTrSetting,strJs
Dim IsReName,IsAutoSort
Dim sTrFilePath,InceptType,InceptMaxSize
Dim ModuleID,ChannelID,UpFileType
Dim Upload,FormName,FilePath,ChildFilePath
Dim File,F_FileName,F_ViewName,F_Filesize,F_FileExt,F_Type
Dim Previewpath,DrawInfo,InceptMaxFile
Dim IsTrueUpfiles,ComeUrl
Dim JsObjName,JsObjName2,JsTempObjName
Dim sProgressID
IsTrueUpfiles=0:IsReName=1:IsAutoSort=1  '默认

%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY{BACKGROUND-COLOR: #def0fa;font-size:9pt;}
INPUT {FONT-SIZE: 12px;HEIGHT: 20px;}
-->
</style>
<script language=javascript>
function SaveFilesUrl(sModuleID,type,arr,objname,objname2){
	if(objname!=''){
		//alert("OK!");
		var obj = parent.document.getElementById(objname);
		var strT=arr.split('|');
		if (sModuleID=='2'&&type=='3'){
			if (parent.document.getElementById('UseServer').checked==true){
			obj.value=strT[0];}
			else{
			var url='下载地址'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);}
		}
		else if (sModuleID=='3'&&type=='4'){
			var url='图片地址'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
		else if (sModuleID=='4'&&type=='2'){
			var url='影片地址'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
		else if (sModuleID=='5'&&type=='3'){
			var url='下载地址'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
		else if (sModuleID=='3'&&type=='6'){
			var url='小区环境'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
				else if (sModuleID=='3'&&type=='7'){
			var url='室内实景'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
				else if (sModuleID=='3'&&type=='8'){
			var url='户型图'+(obj.length+1)+'|'+strT[0];
			obj.options[obj.length]=new Option(url,url);
		}
		else {
			obj.value=strT[0];
		}
		if (objname2!='') {parent.document.getElementById(objname2).value=strT[1];}
	}
}
function AddUploadFiles(objname,files,filesv){
	if(objname!=''){
		//alert("OK!");
		var obj = parent.document.getElementById(objname);
		obj.options[obj.length]=new Option(filesv,files);
	}
}
</script>
</head>
<body leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<%
if Request("Action")="P" then
	call Upfile_Main()
else
	Call UpLoad_Main()
end if
%>
</body>
</html>
<%
Sub UpLoad_Main()
	Dim PostRanNum,cID,sType,sObj,sObj2,sTObj
	Dim UploadProgress,sPID,Barref
	sType=Trim(request.QueryString("Type"))
	sObj=Trim(request.QueryString("Obj"))
	sObj2=Trim(request.QueryString("Obj2"))
	sTObj=Trim(request.QueryString("TObj"))
	Randomize
	PostRanNum = Int(900*rnd)+1000
	Session("UpCode_" & cID & sType & sObj) = Cstr(PostRanNum)

	Response.write "<script language=javascript>" & vbcrlf
	Response.write "function check() " & vbcrlf
	Response.write "{" & vbcrlf
	Response.write "	var strFileName=document.form1.FileName.value;" & vbcrlf
	Response.write "	if (strFileName=='')" & vbcrlf
	Response.write "	{" & vbcrlf
	Response.write "    	alert('请选择要上传的文件');" & vbcrlf
	Response.write "		document.form1.FileName.focus();" & vbcrlf
	Response.write "    	return false;" & vbcrlf
	Response.write "  	}" & vbcrlf
	if Cint(upload1)=1 then
		Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
		sPID = "&PID=" & UploadProgress.CreateProgressID()
		Barref = "UploadBar.Asp?T=10" & sPID

		Response.write "	var strAppVersion = navigator.appVersion;" & vbcrlf
		Response.write "    if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)" & vbcrlf
		Response.write "    {" & vbcrlf
		Response.write "      window.showModelessDialog('"&barref&"&b=IE',null,'dialogWidth=375px; dialogHeight:150px; center:yes');" & vbcrlf
		Response.write "    }" & vbcrlf
		'Response.write "    else" & vbcrlf
		'Response.write "    {" & vbcrlf
		'Response.write "      window.open('"&barref&"&b=NN','','width=370,height=165', true);" & vbcrlf
		'Response.write "    }" & vbcrlf
	end if
	Response.write "}" & vbcrlf
	Response.write "</SCRIPT>" & vbcrlf
	%>	<form action="UpLoad.asp?Action=P&ID=<%=cID%>&Type=<%=sType%>&Obj=<%=sObj%>&Obj2=<%=sObj2%>&TObj=<%=sTObj%><%=sPID%>" method="post" name="form1" onSubmit="return check()" enctype="multipart/form-data">
		<INPUT TYPE="hidden" NAME="UpCode_<%=cID&sType&sObj%>" value="<%=PostRanNum%>">
		<input name="FileName" type="FILE" size="35">
		<input type="submit" name="Submit" value="上传" style="color: #FF0000; text-decoration: blink; border-style: solid; border-width: 1px">
	</form>
<%
End Sub

Sub Upfile_Main()

End sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -