上传到子文件夹的问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 04:32:14
<%
name1=request.QueryString("name1")
ExtName = "jpg,gif,bmp,png" '允许扩展名
SavePath1 = "../upload/"&name1 '保存路径
SavePath = SavePath1
If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
CheckAndCreateFolder(SavePath)
UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
If(UpLoadAll_a>0) Then
Set UploadStream_c = Server.CreateObject("ADODB.Stream")
UploadStream_c.Type = 1
UploadStream_c.Open
UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
UploadStream_c.Position = 0

FormDataAll_d = UploadStream_c.Read
CrLf_e = chrB(13)&chrB(10)
FormStart_f = InStrB(FormDataAll_d,CrLf_e)
FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

Set FormStream_h = Server.Createobject("ADODB.Stream")
FormStream_h.Type = 1
For

SavePath1 = "../upload/"&name1语句前检查name1是否存在？
加下面语句：
<%
name1=request.QueryString("name1")
ExtName = "jpg,gif,bmp,png" '允许扩展名
%>
name1=<%=name1%>
<%
SavePath1 = "../upload/"&name1
.......................
估计是name1变量没有传输过来。