帮忙看看上传路径的问题？
以下代码在国内空间都用的好好的，现在刚搬到GD空间，发先会员在上传照片时上传不了，不知道是何原因？？？
<%
If Trim(request("Action"))="Upload" then
Call UploadData()
End If
Sub UploadData()
Dim upload
Server.ScriptTimeOut=999999
set upload=new UpFile_Class ''建立上传对象
Dim ProductId,ClassId,ProductName,ProductSize,SmallPic,SmallPicSize,BigPic,BigPicSize,title,S_Height,S_Width
S_Width=100
S_Height=100
Title=Replace(Replace(Replace(upload.form("Title"),"'",""),"<","<"),">",">")
if Trim(Title)="" then
closeconn:set upload=nothing
Call msg("照片说明不能空白！请重试。","-1")
end if
'图片处理
dim file,fileExt,Filesize
'BigPic=UserID'用户ID
BigPic=FormatDT(now(), 9)&cdstr(9)
set file=upload.file("Pic")
FileType=Ucase(file.FileType)
fileExt=file.fileExt
Filesize=file.FileSize
If Filesize>0 then
If instr(FileType,"JPEG")<=0 and instr(FileType,"GIF")<=0 Then
set file=nothing:set upload=nothing:Closeconn
Call msg("错误图片文件格式，必须是 jpg、gif。","-1")
End If
If Filesize>202400 Then
set file=nothing:set upload=nothing:Closeconn
Call msg("图片大小已经超出上传范围(200K)。","-1")
Else
ManageFilePath="uploadphoto/"&formatdt(now(),10)
ChkFod(ManageFilePath) '校对上传目录
SmallPic=ManageFilePath&"/s_"&UserID&"_"&BigPic&"."&fileExt '小图片路径
SmallPic_db=formatdt(now(),10)&"/s_"&UserID&"_"&BigPic&"."&fileExt
BigPic_db=formatdt(now(),10)&"/b_"&UserID&"_"&BigPic&"."&fileExt
BigPic=ManageFilePath&"/b_"&UserID&"_"&BigPic&"."&fileExt '大图片路径
file.SaveAs Server.mappath(BigPic) '无组件保存原始图片
set qswh=new picsize '调用图片规格类
arr=qswh.getimagesize(server.mappath(BigPic)) '打开保存原始图片后的路径
BigPicSize=arr(1)&"×"&arr(2) '返回原始图片规格
set arr=nothing
set qswh=nothing
Dim pic_height,pic_width,BBB
pic_height=split(BigPicSize,"×")(1)
pic_height_sy=pic_height
pic_width=split(BigPicSize,"×")(0)
pic_width_sy=pic_width
if pic_height>S_Height then
BBB=Int(100*S_Height/(pic_height+0.0001)+0.5)/100
pic_width=pic_width*BBB
pic_height=pic_height*BBB
End If
'和以上同理
if pic_width>S_Width Then '如果图片宽度大于范围宽度
BBB=Int(100*S_Width/(pic_width+0.0001)+0.5)/100 '计算出缩略的百分比
pic_width=pic_width*BBB '计算出缩略后的宽度尺寸
pic_height=pic_height*BBB '计算出缩略后的高度尺寸
end if
Set Photo = Server.CreateObject("Persits.Jpeg") '调用图片处理组件
Photo.Open Server.MapPath(BigPic)
Photo.Width = pic_width
Photo.Height = pic_height
Photo.Save Server.MapPath(SmallPic)
Set Photo = nothing
set qswh=new picsize
arr=qswh.getimagesize(server.mappath(SmallPic))
SmallPicSize=arr(1)&"×"&arr(2)
set arr=nothing
set qswh=nothing
Set Photo = Server.CreateObject("Persits.Jpeg")
Photo.Open Server.MapPath(BigPic)
If pic_width_sy>600 or pic_height_sy>600 Then
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images/06/photoLogo.gif")
Logo.Open LogoPath
Logo.Width = 120 '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
'Photo.DrawImage photo.width-192, photo.height-64, Logo,1,&H000000,100 '在这里可以更改水印所在的位置（photo.width-87,photo.height-19 这里我是放在了图片的右下角）还可以更改水印的透明度（我定义为0.7） ,&HFFFFFF,100
Set Logo = nothing
Elseif (pic_width_sy>200 and pic_width_sy<600) or (pic_height_sy>200 and pic_height_sy<600) Then'打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images/06/photoLogo_x.gif")
Logo.Open LogoPath
Logo.Width = 80 '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
'Photo.DrawImage photo.width-110, photo.height-36, Logo,1,&H000000,100 '在这里可以更改水印所在的位置（photo.width-87,photo.height-19 这里我是放在了图片的右下角）还可以更改水印的透明度（我定义为0.7） ,&HFFFFFF,100
Set Logo = nothing
Else'打开文字水印
photo.Canvas.Font.Color = &HFFFFFF
photo.Canvas.Font.Family = "Arial"
photo.Canvas.Font.Bold = True
photo.Canvas.Font.size = 15
photo.Canvas.Print 10, photo.OriginalHeight-17, "love.xmy69.com" '10为左边距,100为上边距
End if
Photo.Save Server.MapPath(BigPic)
Set Photo = nothing
End If
Else
set file=nothing
set upload=nothing:closeconn '释放上传对象
Call MsgOut("请选择本地的照片。","",1)
end if
set file=nothing
set upload=nothing '释放上传对象
'信息入库
set rs= Server.CreateObject("ADODB.Recordset")
rs.open"select username,picurl_s,picurl_b,title,addtime,userid from love_photo",conn,1,3
Rs.addnew
rs("username")=username
rs("userid")=userid
rs("picurl_s")=SmallPic_db
rs("picurl_b")=BigPic_db
rs("title")=title
rs("addtime")=now()
rs.update
rs.close:set rs=nothing:closeconn
response.redirect "u_photo_list.asp"
End Sub
%>
