upload.asp

用ASP写的电子购物系统

<%@ LANGUAGE="VBSCRIPT" %>
<% 
iCount=Session("pfid")

writeln "iCount is " & Request("pfid") & Cstr(iCount)

set FileUp=server.createobject("ChinaASP.UpLoad")

set f = fileup.Files(1) 
	if f.isempty=false then
		if f.filesize<>0 then
		   writeln  "SaveAs="&server.MapPath("../prodimg/") & "\img"&cstr(iCount)&"."&getFileExtName(f.fileName)
		   '下面的语句用于将文件内容保存到sql server 7内。
		   'saveToDB f
		else
		   writeln "Filesize=0 file not saved"
		end if
		f.saveas server.MapPath("../prodimg/") & "\img"& iCount &"."&getFileExtName(f.fileName)
	else
		writeln "This field is empty"
	end if

 

'set fileup=nothing

sub WriteLn(str)
	Response.Write str & "<br>"
end sub

'获得文件的后缀名
function getFileExtName(fileName)
	dim pos
	pos=instrrev(filename,".")
	if pos>0 then 
		getFileExtName=mid(fileName,pos+1)
	else
		getFileExtName=""
	end if
end function 


%>