直接保存URL图像或网页到服务器本地的类
iskPath
end if
''-------------
R_write "<b>===处理结果部分资料===</b><br>",1
R_write " 宽:"&imgUp.width&" pix",1
R_write " 高:"&imgUp.height&" pix",1
R_write " 大小:"&formatnumber(imgUp.imgSize/1024,2,-1)&" KB",1
R_write " 格式:"&imgUp.imgType,1
R_write "图像文件名:"&imgUp.imgName,1
R_write "文件名:"&imgUp.filename,1
R_write "扩展名:"&imgUp.extName,1
R_write "保存位置:"&imgUp.DiskPath,1
R_write "虚拟路径:"&imgUp.XuPath,1
R_write "保存后url:"&imgUp.NewUrl,1
call tform()
set imgUp=nothing
R_write "------------------------<br>传输完毕",0
End SUB
SUB tform()
%>
<FORM METHOD=POST name=form2 style="margin:0px;">
获取 URL：<INPUT TYPE="text" size=50 NAME="GetStrUrl" value="http://www.blueidea.com/img/common/logo.gif"><br>
保存路径：<INPUT TYPE="text" size=50 NAME="SavePath" value="./"><br>
保存文件名：<INPUT TYPE="text" size=50 NAME="SaveName" value=""><br>
保存类型：
<INPUT TYPE="radio" NAME="SaveMode" value=1 <%if iSaveMode="1" or iSaveMode="" then response.write "checked" end if%>> Web图像
<INPUT TYPE="radio" NAME="SaveMode" value=2 <%if iSaveMode="2" then response.write "checked" end if%>> 文本文件
<INPUT TYPE="radio" NAME="SaveMode" value=0 <%if iSaveMode="0" then response.write "checked" end if%>> 二进制数据
<INPUT TYPE="submit" value="确定提交">
<hr size=1>
<%
if GetStrUrl<>"" then
if iSaveMode="2" then
R_write "<button name=""Previews"" title=""页面快照"" onclick=""runCode(0);"">Run this code</button>",1
R_write "<textarea cols=100 name=content rows=10 style="" width:90%;fixed;word-break:break-all;"">"&server.htmlencode(imgUp.textStr)&"</textarea>",1
else
R_write "<img src="""&imgUp.XuPath&"?"&timer()&""" width="&imgUp.width&" height="&imgUp.height&" alt="&imgUp.imgName&">",1
end if
end if
%>
</FORM>
<hr size=1>
<br>如果保存为图像，不要加扩展名，自动识别加上，如果加的扩展名不合也回自动加上
<br>保存文件路径为空则保存在当前路径
<br>保存文件名为空则使用自动识别取得的文件名
<br>保存为其他任意方式，对asp html 等为取得发送结果的Html
<%End SUB
Sub R_write(str,num)
dim istr:istr=str
dim inum:inum=num
response.write str&"<br>"
if inum=0 then response.end
end sub
''=================调用过程 Execute========================
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="V37">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="JavaScript">
<!--
/*function runCode()
{
var code=event.srcE
end if
''-------------
R_write "<b>===处理结果部分资料===</b><br>",1
R_write " 宽:"&imgUp.width&" pix",1
R_write " 高:"&imgUp.height&" pix",1
R_write " 大小:"&formatnumber(imgUp.imgSize/1024,2,-1)&" KB",1
R_write " 格式:"&imgUp.imgType,1
R_write "图像文件名:"&imgUp.imgName,1
R_write "文件名:"&imgUp.filename,1
R_write "扩展名:"&imgUp.extName,1
R_write "保存位置:"&imgUp.DiskPath,1
R_write "虚拟路径:"&imgUp.XuPath,1
R_write "保存后url:"&imgUp.NewUrl,1
call tform()
set imgUp=nothing
R_write "------------------------<br>传输完毕",0
End SUB
SUB tform()
%>
<FORM METHOD=POST name=form2 style="margin:0px;">
获取 URL：<INPUT TYPE="text" size=50 NAME="GetStrUrl" value="http://www.blueidea.com/img/common/logo.gif"><br>
保存路径：<INPUT TYPE="text" size=50 NAME="SavePath" value="./"><br>
保存文件名：<INPUT TYPE="text" size=50 NAME="SaveName" value=""><br>
保存类型：
<INPUT TYPE="radio" NAME="SaveMode" value=1 <%if iSaveMode="1" or iSaveMode="" then response.write "checked" end if%>> Web图像
<INPUT TYPE="radio" NAME="SaveMode" value=2 <%if iSaveMode="2" then response.write "checked" end if%>> 文本文件
<INPUT TYPE="radio" NAME="SaveMode" value=0 <%if iSaveMode="0" then response.write "checked" end if%>> 二进制数据
<INPUT TYPE="submit" value="确定提交">
<hr size=1>
<%
if GetStrUrl<>"" then
if iSaveMode="2" then
R_write "<button name=""Previews"" title=""页面快照"" onclick=""runCode(0);"">Run this code</button>",1
R_write "<textarea cols=100 name=content rows=10 style="" width:90%;fixed;word-break:break-all;"">"&server.htmlencode(imgUp.textStr)&"</textarea>",1
else
R_write "<img src="""&imgUp.XuPath&"?"&timer()&""" width="&imgUp.width&" height="&imgUp.height&" alt="&imgUp.imgName&">",1
end if
end if
%>
</FORM>
<hr size=1>
<br>如果保存为图像，不要加扩展名，自动识别加上，如果加的扩展名不合也回自动加上
<br>保存文件路径为空则保存在当前路径
<br>保存文件名为空则使用自动识别取得的文件名
<br>保存为其他任意方式，对asp html 等为取得发送结果的Html
<%End SUB
Sub R_write(str,num)
dim istr:istr=str
dim inum:inum=num
response.write str&"<br>"
if inum=0 then response.end
end sub
''=================调用过程 Execute========================
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="V37">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="JavaScript">
<!--
/*function runCode()
{
var code=event.srcE