泞的组词是什么:Server.CreateObject 失败 asp 请求帮助

dim imgobj,imgwidth,imgheight,cimgw,cimgh,filesmallname,xjcs,pscs
xjcs=""
pscs=""
if icount=1 then

if photoxjcs=1 then
pscs=""
xjcs=""
dim objj,zgqii
zgqii=1
file1=UpFilePath&thispath&"."&fileext
set Objj = server.createobject("dazhounet.exifinfo")
Objj.filename = server.mappath(file1)
If Objj.IsExif = "True" Then
If Objj.CameraMake <> "" then xjcs=Objj.CameraMake
If Objj.CameraModel <>"" then xjcs=xjcs&"   "&Objj.CameraModel
If Objj.DateTime <>"" then
if zgqii mod 4=0 then
pscs=pscs&"<br>"
end if
dim width11,height11
width11=Jpeg.Width
height11=Jpeg.Height
if photosoff=1 then
if photos>0 thendim imgobj,imgwidth,imgheight,cimgw,cimgh,filesmallname,xjcs,pscs
xjcs=""
pscs=""
if icount=1 then

if photoxjcs=1 then
pscs=""
xjcs=""
dim objj,zgqii
zgqii=1
file1=UpFilePath&thispath&"."&fileext
set Objj = server.createobject("dazhounet.exifinfo")
Objj.filename = server.mappath(file1)
If Objj.IsExif = "True" Then
If Objj.CameraMake <> "" then xjcs=Objj.CameraMake
If Objj.CameraModel <>"" then xjcs=xjcs&"   "&Objj.CameraModel
If Objj.DateTime <>"" then
if zgqii mod 4=0 then
pscs=pscs&"<br>"
end if
zgqii=zgqii+1
pscs=pscs&"拍摄时间:"&Objj.DateTime
end if
if Objj.Xdpi <>"" then
if zgqii mod 4=0 then
pscs=pscs&"<br>"
end if
zgqii=zgqii+1
pscs=pscs&"   水平分辨率:"&Objj.Xdpi
end if