Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/photo/admin/mainconfig_save.asp，行 129
<!--#include file="conn.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="login1.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="Style.css">
<%photoxpathsize=request.form("photoxpathsize")
photoxjcs=request.form("photoxjcs")
photoname=request.form("photoname")
photodzdx=request.form("photodzdx")
photolx=request.form("photolx")
photopath=request.form("photopath")
yphotopath=request.form("yphotopath")
photoemail=request.form("photoemail")
photouser=request.form("photouser")
photoreg=request.form("photoreg")
photohight=request.form("photohight")
photowidth=request.form("photowidth")
photoimages=request.form("photoimages")
photodhight=request.form("photodhight")
photodwidth=request.form("photodwidth")
photoxhight=request.form("photoxhight")
photoxwidth=request.form("photoxwidth")
photoxpath=request.form("photoxpath")
photoxwz1=request.form("photoxwz1")
photoxwz2=request.form("photoxwz2")
photoxwz3=request.form("photoxwz3")
photoxwz4=request.form("photoxwz4")
photoxsize=request.form("photoxsize")
photoxcolor=request.form("photoxcolor")
photoxbold=request.form("photoxbold")
photoxfont=request.form("photoxfont")
photodzb=request.form("photodzb")
photodwz1=request.form("photodwz1")
photodwz2=request.form("photodwz2")
photodzbhight=request.form("photodzbhight")
photodzbwidth=request.form("photodzbwidth")
photodzbtm=request.form("photodzbtm")
sywz=request.form("sywz")
sywz1=request.form("sywz1")
sywz2=request.form("sywz2")
photodbk=request.form("photodbk")
photodbkcx=request.form("photodbkcx")
photodbkcolor=request.form("photodbkcolor")
photoupload=request.form("photoupload")
gifoff=request.form("gifoff")
photos=request.form("photos")
photosoff=request.form("photosoff")
numload=request.form("numload")
logowz=request.form("logowz")
fdl=request.form("fdl")
if photoname="" then
call photoxx("网站名称不能为空。")
response.end
end if
if photodzdx="" then
call photoxx("单张图片大小不能为空。")
response.end
end if
if photolx="" then
call photoxx("允许上传类型不能为空。")
response.end
end if
if photopath="" then
call photoxx("图片保存目录不能为空。")
response.end
end if
if instr(photopath,"../")>0 then
call photoxx("图片保存目录不要以ADMIN目录为准。以相册目录为准。")
response.end
end if
if photoimages="0" then
if yphotopath<>"" then
if instr(yphotopath,"../")>0 then
call photoxx("原始图片保存目录不要以ADMIN目录为准。以相册目录为准。")
response.end
end if
end if
if photohight="" then
call photoxx("已经使用了缩小图，请填写缩小后的高度。")
response.end
end if
if photowidth="" then
call photoxx("已经使用了缩小图，请填写缩小后的宽度。")
response.end
end if
if int(photohight)<50 and int(photohight)>120 then
call photoxx("缩小图的高度应该在50—120之间，系统推荐90。")
response.end
end if
if int(photowidth)<50 and int(photowidth)>120 then
call photoxx("缩小图的宽度应该在50—120之间，系统推荐120。")
response.end
end if
end if
if photodhight="" then
call photoxx("允许用户上传图片的最大高度不能为空。")
response.end
end if
if int(photodhight)<500 and int(photodhight)>1024 then
call photoxx("允许用户上传图片的最大高度应在500—1024之间。系统推荐1024。")
response.end
end if
if photodwidth="" then
call photoxx("允许用户上传图片的最大宽度不能为空。")
response.end
end if
if int(photodwidth)<400 and int(photodwidth)>800 then
call photoxx("允许用户上传图片的最大高度应在400—800之间。系统推荐768。")
response.end
end if
if photoxhight="" then
call photoxx("允许用户上传图片的最小高度不能为空。")
response.end
end if
if int(photoxhight)<300 and int(photoxhight)>400 then
call photoxx("允许用户上传图片的最小高度应在300—400之间。系统推荐300。")
response.end
end if
if photoxwidth="" then
call photoxx("允许用户上传图片的最小宽度不能为空。")
response.end
end if
if int(photoxwidth)<350 and int(photowidth)>500 then
call photoxx("允许用户上传图片的最小宽度应在350—500之间，系统推荐420")
response.end
end if
if photoxpath<>"" then
此处错误：if int(photoxpathsize)/2*int(photoxsize)>=int(photowidth) then call photoxx("水印文字长度及字体大小，已经超过缩小图的宽度，请检查。")
response.end
end if
if photoxcolor="" then
call photoxx("请选择水印文字的字体颜色。")
response.end
end if
end if
if photodzb<>"" then
if instr(Lcase(photodzb),"http:")>0 then
call photoxx("站标不要使用http://开头，请使用本地图片。")
response.end
end if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if not objfso.FileExists(Server.MapPath("../"&photodzb)) then
Set objfso=nothing
call photoxx("站标文件不存在，不要以ADMIN管理目录为准。要以相册目录为准。")
response.end
end if
Set objfso=nothing
if photodzbhight="" then
call photoxx("站标文件的高度必须填写。")
response.end
end if
if photodzbwidth="" then
call photoxx("站标文件的宽度必须填写。")
response.end
end if
if int(photodzbhight)<50 and int(photodzbhight)>150 then
call photoxx("站标文件的高度应保持在50—150之间。")
response.end
end if
if int(photodzbwidth)<80 and int(photodzbwidth)>200 then
call photoxx("站标文件的宽度应保持在50—150之间。")
response.end
end if
if left(photodzb,1)="\" or left(photodzb,1)="/" then
call photoxx("请取掉前面的根目录标志。")
response.end
end if
if photodzbtm="" then
call photoxx("站标文件的透明度不能为空。")
response.end
end if
end if
if trim(photodbk)="1" then
if photodbkcx="" then
call photoxx("你选择了使用大图边框，就必须填写边框粗细。最低为1。")
response.end
end if
if int(photodbkcx)<1 and int(photodbkcx)>10 then
call photoxx("大图边框粗细应在1—10之间。推荐1。")
response.end
end if
if photodbkcolor="" then
call photoxx("选择了边框之后，请再次选择边框颜色。")
response.end
end if
end if
sql="select * from xcconfig"
rs.open sql,connphoto,1,3
if not rs.eof then
rs("photoname")=photoname
rs("photodzdx")=photodzdx
rs("photolx")=photolx
rs("photopath")=photopath
if trim(photoemail)="1" then
rs("photoemail")=1
else
rs("photoemail")=0
end if
if trim(photouser)="1" then
rs("photouser")=1
else
rs("photouser")=0
end if
if trim(photoreg)="1" then
rs("photoreg")=1
else
rs("photoreg")=0
end if
rs("photohight")=int(photohight)
rs("photowidth")=int(photowidth)
if trim(photoimages)="1" then
rs("photoimages")=1
else
rs("photoimages")=0
end if
rs("photodhight")=int(photodhight)
rs("photodwidth")=int(photodwidth)
rs("photoxhight")=int(photoxhight)
rs("photoxwidth")=int(photoxwidth)
rs("photoxpath")=photoxpath
if trim(photoxwz1)="1" then
rs("photoxwz1")=1
else
rs("photoxwz1")=0
end if
if trim(photoxjcs)="1" then
rs("photoxjcs")=1
else
rs("photoxjcs")=0
end if
if trim(photoxwz2)="1" then
rs("photoxwz2")=1
else
rs("photoxwz2")=0
end if
if trim(photoxwz3)="1" then
rs("photoxwz3")=1
else
rs("photoxwz3")=0
end if
if trim(photoxwz4)="1" then
rs("photoxwz4")=1
else
rs("photoxwz4")=0
end if
rs("photoxsize")=int(photoxsize)
rs("photoxcolor")=replace(trim(photoxcolor),"#","&h")
rs("photoxfont")=photoxfont
if trim(photoxbold)="1" then
rs("photoxbold")=1
else
rs("photoxbold")=0
end if
rs("photodzb")=photodzb
if trim(photodwz1)="1" then
rs("photodwz1")=1
else
rs("photodwz1")=0
end if
if trim(photodwz2)="1" then
rs("photodwz2")=1
else
rs("photodwz2")=0
end if
rs("photodzbhight")=int(photodzbhight)
rs("photodzbwidth")=int(photodzbwidth)
rs("photodzbtm")=photodzbtm
if trim(photodbk)="1" then
rs("photodbk")=1
else
rs("photodbk")=0
end if
if trim(photoupload)="1" then
rs("photoupload")=1
else
rs("photoupload")=0
end if
if photoxpath<>"" then
rs("photoxpathsize")=int(photoxpathsize)
end if
if gifoff="1" then
rs("gifoff")=1
else
rs("gifoff")=0
end if
rs("numload")=int(numload)
if logowz="1" then
rs("logowz")=1
else
rs("logowz")=0
end if
if photosoff="1" then
rs("photosoff")=1
else
rs("photosoff")=0
end if
if photos="" then
rs("photos")=0
else
rs("photos")=int(photos)
end if
if sywz="1" then
rs("sywz")=1
else
rs("sywz")=0
end if
if sywz1="1" then
rs("sywz1")=1
else
rs("sywz1")=0
end if
if sywz2="1" then
rs("sywz2")=1
else
rs("sywz2")=0
end if
rs("fdl")=fdl
rs("photodbkcx")=int(photodbkcx)
rs("photodbkcolor")=replace(trim(photodbkcolor),"#","&h")
rs.update
end if
rs.close
call adminxx("网络管理资料修改成功。","main.asp")
%>