保存WEB图像或页面到本地的类

'本类的使用方法

'用法:
'dim imgUp
'set imgUp=new BoxInfoImg

'属性:
'imgUp.width '宽
'imgUp.height '高
'imgUp.imgSize '大小
'imgUp.imgType '类型
'imgUp.imgName '文件名
'imgUp.imgName '图像文件名:"&
'imgUp.filename '文件名"&
'imgUp.extName '扩展名"
'imgUp.DiskPath '保存位置"
'imgUp.XuPath '虚拟路径"
'imgUp.NewUrl '保存后url"
'imgUp.SaveMode '保存模式 "1" 图像 "2" 文本 "0" 二进制 注意是字符串型的
'方法:
'imgUp.saveImg(fullpath) '保存图像文件

代码拷贝框
<% @ LANGUAGE="VBSCR<a class="channel_keylink" href="http://www.ggbing.com/ip">IP</a>T" CODEPAGE="936"%> <% Option Explicit Class BoxInfoImg '传输类的使用方法 '图象上传和上传信息获取CLASS '用法: 'dim imgUp 'set imgUp=new BoxInfoImg '属性: 'imgUp.width '宽 'imgUp.height '高 'imgUp.imgSize '大小 'imgUp.imgType '类型 'imgUp.imgName '文件名 'imgUp.imgName '图像文件名:"& 'imgUp.filename '文件名"& 'imgUp.extName '扩展名" 'imgUp.DiskPath '保存位置" 'imgUp.XuPath '虚拟路径" 'imgUp.NewUrl '保存后url" 'imgUp.SaveMode '保存后url" '方法: 'imgUp.saveImg(fullpath) '保存图像文件 dim ADOS dim width,height,imgSize,imgType,imgName,fileName dim preName,extName dim SavePath,SaveName,SaveMode dim DiskPath,XuPath,NewUrl dim textStr dim i Private Sub Class_Initialize set ADOS=Server.CreateObject("Adodb.Stream") ADOS.Type=1 ADOS.Mode=3 ADOS.Open getImageSize End Sub Private Sub Class_Terminate ADOS.close set ADOS=nothing End Sub Public Function getImageSize() dim ret(3),bFlag,fdata,fsize fdata=GetWebData(GetStrUrl) '取得XmlHttp数据 fsize=clng(lenb(fdata)) '取得数据尺寸 if fsize=0 then exit function R_write "无有效数据保存",0 end if ADOS.Write fdata ADOS.Position=0 SaveName=iSaveName SavePath=iSavePath SaveMode=iSaveMode '写文本对象读取图像长宽和类型 ADOS.Position=0 '重置数据开始位置 bFlag=ADOS.read(3) if isNull(bFlag) then width=0 height=0 imgSize=0 imgType="unknow" ret(0)=imgType:ret(1)=width:ret(2)=height:ret(3)="" getimagesize=ret exit function end if '取文件类型和长宽 select case hex(binVal(bFlag)) case "4E5089": ADOS.read(15) ret(0)="png" ret(1)=BinVal2(ADOS.read(2)) ADOS.read(2) ret(2)=BinVal2(ADOS.read(2)) case "464947": ADOS.read(3) ret(0)="gif" ret(1)=BinVal(ADOS.read(2)) ret(2)=BinVal(ADOS.read(2)) case "FFD8FF": dim p1 do do: p1=binVal(ADOS.Read(1)): loop while p1=255 and not ADOS.EOS if p1>191 and p1<196 then exit do else ADOS.read(binval2(ADOS.Read(2))-2) do:p1=binVal(ADOS.Read(1)):loop while p1<255 and not ADOS.EOS loop while true ADOS.Read(3) ret(0)="jpg" ret(2)=binval2(ADOS.Read(2)) ret(1)=binval2(ADOS.Read(2)) case else: if left(Bin2Str(bFlag),2)="BM" then ADOS.Read(15) ret(0)="bmp" ret(1)=binval(ADOS.Read(4)) ret(2)=binval(ADOS.Read(4)) else ret(0)="" end if end select ' dim tempStr dim nameStr dim defaultName dim ln tempStr=split(GetStrUrl,"/") nameStr=tempStr(ubound(tempStr)) if nameStr="" then r_write "错误的URL,请输入可访问的URL",0 exit function end if fileName=split(nameStr,"?")(0) ln=inStrRev(fileName,".") if ln>0 then preName=left(fileName,inStrRev(fileName,".")-1) else preName=fileName end if 'R_write fileName,1 'R_write inStrRev(fileName,"."),1 'R_write fileName,0 extName=right(fileName,len(fileName)-inStrRev(fileName,".")) Select case ret(0) case "png","jpg","bmp","gif","swf" width=ret(1) height=ret(2) imgSize=fsize imgType=ret(0) imgName=preName&"."&ret(0) case else width=0 height=0 imgSize=fsize imgName="unknow" imgType=".unknow" end select if SaveMode="1" then defaultName=imgName if SaveName="" then SaveName=defaultName else if lcase(right(SaveName,4))<>"."&imgType then SaveName=SaveName&"."&imgType end if end if else defaultName=filename end if if SaveName="" then SaveName=defaultName SavePath=replace(SavePath,"//","/") if right(SavePath,1)<>"/" then SavePath=SavePath&"/" if SavePath="" then SavePath="./" DiskPath=server.mappath(SavePath&SaveName) XuPath=replace(replace(DiskPath,server.mappath("/"),""),"\","/") NewUrl="http://"&Request.ServerVariables("SERVER_NAME")&XuPath getimagesize=ret End Function Public function SaveImg(FullPath) SaveImg=false if SaveMode="1" then if trim(fullpath)="" or _ width=0 or _ height=0 or _ imgSize=0 or _ imgType=".unknow" then exit function end if end if ADOS.Position=0 if SaveMode="2" then ADOS.Type=2 ADOS.Charset ="gb2312" ADOS.SaveToFile FullPath,2 textStr=ADOS.readtext() else ADOS.SaveToFile FullPath,2 end if SaveImg=true End function Private Function Bin2Str(Bin) Dim I,Str,clow For I=1 to LenB(Bin) clow=MidB(Bin,I,1) if ASCB(clow)<128 then Str = Str & Chr(ASCB(clow)) else I=I+1 if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) end if Next Bin2Str = Str End Function Private Function Num2Str(num,base,lens) dim ret:ret = "" while(num>=base) ret=(num mod base) & ret num=(num - num mod base)/base wend Num2Str = right(string(lens,"0") & num & ret,lens) End Function Private Function Str2Num(str,base) dim ret:ret = 0 for i=1 to len(str) ret = ret *base + cint(mid(str,i,1)) next Str2Num=ret End Function Private Function BinVal(bin) dim ret:ret = 0 for i = lenb(bin) to 1 step -1 ret = ret *256 + ascb(midb(bin,i,1)) next BinVal=ret End Function Private Function BinVal2(bin) dim ret:ret = 0 for i = 1 to lenb(bin) ret = ret *256 + ascb(midb(bin,i,1)) next BinVal2=ret End Function Private Function GetWebData(byval StrUrl) if StrUrl="" then r_write "无效",1 exit function end if dim tempStr tempStr=split(GetStrUrl,"/") if tempStr(ubound(tempStr))="" or inStr(StrUrl,"/")=0 then R_Write "未指定有效的URL",0 exit function end if dim Retrieval Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", StrUrl, False, "", "" .Send GetWebData =.ResponseBody End With Set Retrieval = Nothing End Function End Class %> <% SUB saveUpload(GetUrl,SavePath,SaveName,mode) dim chkInfo if GetUrl="" then call tform() R_Write "<br>传输文件栏没有填写!",0 end if set imgUp=new BoxInfoImg if mode="1" and imgUp.imgName="unknow" then call tform() set imgUp=nothing R_Write "<br>传输文件栏没有填写有效的图像URL!",0 end if chkInfo="" dim i,testStr,showStr '限定格式 select case imgUp.imgType case "png","jpg","bmp","gif" if imgUp.width=0 or imgUp.height=0 or imgUp.imgSize=0 then chkInfo="<li>"+"传输图像数据不存在,请确定你的URL是否正确" end if case else chkInfo="<li>无效的传输格式,允许图像数据格式为 ""png"",""jpg"",""bmp"",""gif""</li>" end select 'R_Write SavePath,1 'R_Write mode,1 'R_Write imgUp.imgName,1 'R_Write imgUp.filename,1 'R_Write "SaveName="&SaveName,1 if mode="1" and chkInfo<>"" then '检查上传图像数据合格后,则保存之 call tform() R_Write chkInfo,0 else Server.ScriptTimeOut=5000 imgUp.saveImg imgUp.DiskPath 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%>> 二进制数据 &nbsp;&nbsp;&nbsp;<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=""&g</p><p align='center'><b><font color='red'>[1]</font> <a href='ShowArticle.asp?ArticleID=20819&Page=2'>[2]</a>  <a href='ShowArticle.asp?ArticleID=20819&Page=2'>下一页</a></b></p><br>没有相关教程 <script type="text/javascript"> /*728*90，创建于2010-9-16*/ var cpro_id = 'u203664';</script> <script type="text/javascript" src="http://cpro.baidu.com/cpro/ui/c.js"></script> <script language=javascript> document.body.oncopy=function(){ event.returnValue=false; var t=document.selection.createRange().text; var s=" 来源:[学习笔记★闵涛★计算机学习电脑编程软硬件技巧-网页制作] "+location.href; window.clipboardData.setData('Text', t+'\r\n'+s); } </script><center></center></td></tr> <tr><td height="10"></td></tr> <tr><td align='right' class="Article_tdbgall">教程录入：mintao    责任编辑：mintao </td></tr> <tr><td height="1" background="/Skin/sealove/line01.gif"></td></tr> <tr><td height="6"></td></tr> <tr><td><li>上一篇教程： <a class='LinkPrevArticle' href='/Article/ShowArticle.asp?ArticleID=20818' title='文章标题：ColdFusionMX 编程指南 第四期 作    者：武汉SEO闵涛 更新时间：2009/4/23 14:18:34'>ColdFusionMX 编程指南 第四期</a></li><br><li>下一篇教程： <a class='LinkNextArticle' href='/Article/ShowArticle.asp?ArticleID=20820' title='文章标题：实战留言簿(EJB,Struts应用篇) 作    者：武汉SEO闵涛 更新时间：2009/4/23 14:18:35'>实战留言簿(EJB,Struts应用篇)</a></li></td></tr> <tr><td height="6"></td></tr> <tr><td height="1" bgcolor="#CCCCCC"></td></tr> <tr><td height="22" bgcolor="#F2F2F2" align="right">【字体：<a href="javascript:fontZoomA();" class="top_UserLogin">小</a> <a href="javascript:fontZoomB();" class="top_UserLogin">大</a>】【<a href="/Article/Comment.asp?ArticleID=20819" target="_blank">发表评论</a>】【<a href="/User/User_Favorite.asp?Action=Add&ChannelID=1&InfoID=20819" target="_blank">加入收藏</a>】【<a href="/Article/SendMail.asp?ArticleID=20819" target="_blank">告诉好友</a>】【<a href="/Article/Print.asp?ArticleID=20819" target="_blank">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】 </td></tr> <tr><td height="1" bgcolor="#CCCCCC"></td></tr> </table> <table width="100%" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td height="25">　<img src="/Images/TEAM.gif" align="absmiddle"> 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] </td></tr> <tr><td height="25">　<img src="/Images/TEAM.gif" align="absmiddle">　<b>网友评论：</b>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td></tr> <tr><td class="main_tdbg_760"> <script language='javascript' src='/Article/Comment.asp?Action=JS&CommentNum=10&ArticleID=20819'></script> </td></tr> </table><br> </td> </tr> </table> </td> <td width="5"></td> <td width="1" bgcolor="#EEEEEE"></td> <td width="5"></td> <td width="170" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="33" height="28"><img src="/Skin/sealove/Column01_L.gif"></td> <td background="/Skin/sealove/Column01_BG.gif" style="color:#FFFFFF"><b>同类栏目</b></td> <td width="10"><img src="/Skin/sealove/Column01_R.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="1" bgcolor="#AAAAAA"></td> <td valign="top"> <table width="96%" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td height="70" valign="top">· <a class='childclass' href='/Article/ShowClass.asp?ClassID=114' target="_self">Web开发</a>  · <a class='childclass' href='/Article/ShowClass.asp?ClassID=115' target="_self">网页制作</a><br>· <a class='childclass' href='/Article/ShowClass.asp?ClassID=27' target="_self">平面设计</a>  · <a class='childclass' href='/Article/ShowClass.asp?ClassID=28' target="_self">网站运营</a><br>· <a class='childclass' href='/Article/ShowClass.asp?ClassID=29' target="_self">网站推广</a>  · <a class='childclass' href='/Article/ShowClass.asp?ClassID=30' target="_self">搜索优化</a><br>· <a class='childclass' href='/Article/ShowClass.asp?ClassID=116' target="_self">建站心得</a>  · <a class='childclass' href='/Article/ShowClass.asp?ClassID=117' target="_self">站长故事</a><br>· <a class='childclass' href='/Article/ShowClass.asp?ClassID=66' target="_self">互联动态</a></td></tr> </table> </td> <td width="1" bgcolor="#AAAAAA"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="6" height="23"><img src="/Skin/sealove/Column01_Lb.gif"></td> <td background="/Skin/sealove/Column01_BGb.gif" align="right"><img src="/Skin/sealove/More01.gif" border="0" alt="更多内容"></td> <td width="6"><img src="/Skin/sealove/Column01_Rb.gif"></td> </tr> <tr><td colspan="3" height="8"><img src="/Skin/sealove/space.gif"></td></tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="14" height="28"><img src="/Skin/sealove/Column02_L.gif"></td> <td background="/Skin/sealove/Column02_BG.gif" style="color:#0099BB"><b>热门推荐</b></td> <td width="45" background="/Skin/sealove/Column02_BG.gif" align="right"><a href="/Article/ShowElite.asp"><img src="/Skin/sealove/More01.gif" border="0" alt="更多内容"></a></td> <td width="10"><img src="/Skin/sealove/Column02_R.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="7" background="/Skin/sealove/Column02_Lc.gif"></td> <td valign="top"> <table width="96%" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td height="80" valign="top"><li>没有教程</li></td></tr> </table> </td> <td width="7" background="/Skin/sealove/Column02_Rc.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="8" height="7"><img src="/Skin/sealove/Column02_Lb.gif"></td> <td background="/Skin/sealove/Column02_BGb.gif"><img src="/Skin/sealove/space.gif"></td> <td width="8"><img src="/Skin/sealove/Column02_Rb.gif"></td> </tr> <tr><td colspan="3" height="8"><img src="/Skin/sealove/space.gif"></td></tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="33" height="28"><img src="/Skin/sealove/Column01_L.gif"></td> <td background="/Skin/sealove/Column01_BG.gif" style="color:#FFFFFF"><b>赞助链接</b></td> <td width="10"><img src="/Skin/sealove/Column01_R.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="1" bgcolor="#AAAAAA"></td> <td valign="top"> <table width="98%" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td height="600" valign="top"> <script type="text/javascript"> /*160*600，创建于2010-9-16*/ var cpro_id = 'u203713';</script> <script type="text/javascript" src="http://cpro.baidu.com/cpro/ui/c.js"></script> </td></tr> </table> </td> <td width="1" bgcolor="#AAAAAA"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="6" height="23"><img src="/Skin/sealove/Column01_Lb.gif"></td> <td background="/Skin/sealove/Column01_BGb.gif" align="right"><img src="/Skin/sealove/More01.gif" border="0" alt="更多内容"></td> <td width="6"><img src="/Skin/sealove/Column01_Rb.gif"></td> </tr> <tr><td colspan="3" height="8"><img src="/Skin/sealove/space.gif"></td></tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="14" height="28"><img src="/Skin/sealove/Column02_L.gif"></td> <td background="/Skin/sealove/Column02_BG.gif" style="color:#0099BB"><b><a href="http://www.mintao.net/blog/" target="_blank">闵涛</a>博文</b></td> <td width="45" background="/Skin/sealove/Column02_BG.gif" align="right"><a href="/blog/"><img src="/Skin/sealove/More01.gif" border="0" alt="更多关于武汉SEO的内容"></a></td> <td width="10"><img src="/Skin/sealove/Column02_R.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="7" background="/Skin/sealove/Column02_Lc.gif"></td> <td valign="top"> <table width="96%" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td height="80" valign="top"><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/> <title>500 - 内部服务器错误。</title> <style type="text/css"> <!-- body{margin:0;font-size:.7em;font-family:Verdana, Arial, Helvetica, sans-serif;background:#EEEEEE;} fieldset{padding:0 15px 10px 15px;} h1{font-size:2.4em;margin:0;color:#FFF;} h2{font-size:1.7em;margin:0;color:#CC0000;} h3{font-size:1.2em;margin:10px 0 0 0;color:#000000;} #header{width:96%;margin:0 0 0 0;padding:6px 2% 6px 2%;font-family:"trebuchet MS", Verdana, sans-serif;color:#FFF; background-color:#555555;} #content{margin:0 0 0 2%;position:relative;} .content-container{background:#FFF;width:96%;margin-top:8px;padding:10px;position:relative;} --> </style> </head> <body> <div id="header"><h1>服务器错误</h1></div> <div id="content"> <div class="content-container"><fieldset> <h2>500 - 内部服务器错误。</h2> <h3>您查找的资源存在问题，因而无法显示。</h3> </fieldset></div> </div> </body> </html> </td></tr> </table> </td> <td width="7" background="/Skin/sealove/Column02_Rc.gif"></td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr><td width="8" height="7"><img src="/Skin/sealove/Column02_Lb.gif"></td> <td background="/Skin/sealove/Column02_BGb.gif"><img src="/Skin/sealove/space.gif"></td> <td width="8"><img src="/Skin/sealove/Column02_Rb.gif"></td> </tr> <tr><td colspan="3" height="8"><img src="/Skin/sealove/space.gif"></td></tr> </table> </td> <td width="5"></td> <td width="8" background="/Skin/sealove/Main_Right.gif"></td> </tr> </table> <table cellSpacing=0 cellPadding=0 width=1000 align=center bgColor=#ffffff border=0> <tr> <td width=8 background=/Skin/sealove/Main_Left.gif></td> <td vAlign=top> <table cellSpacing=0 cellPadding=0 width="100%" border=0> <tr> <td bgColor=#faac24 height=1></td> </tr> <tr> <td height=1></td> </tr> <tr> <td bgColor=#faac24 height=9></td> </tr> <tr> <td height=1></td> </tr> <tr> <td bgColor=#faac24 height=1></td> </tr> </table> <table cellSpacing=0 cellPadding=0 width="90%" align=center border=0> <tr> <td style="COLOR: #000000" align=middle height=25>| <A class=Bottom onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.mintao.net/');" href="#">设为首页</A> |<A class=Bottom href="javascript:window.external.addFavorite('http://www.mintao.net/','学习笔记★闵涛★计算机学习电脑编程软硬件技巧');">加入收藏</A> | <A class=Bottom href="mailto:admin@mintao.net">联系站长</A> | <A class=Bottom href="/FriendSite/Index.asp" target=_blank>友情链接</A> | <A class=Bottom href="/Copyright.asp" target=_blank>版权申明</A> | <A class=Bottom href="/html/friends.html" target=_blank>广告服务</A> </td> </tr> <tr> <td background=/Skin/sealove/line01.gif height=1></td> </tr> </table> <table cellSpacing=0 cellPadding=0 width="100%" border=0> <tr> <td align=middle width=210><A href="http://www.mintao.net/" target=_blank><IMG alt=MinTao学以致用网 src="/Skin/sealove/PElogo_sealove.gif" border=0></A></td> <td><table border=0 width=100% cellspacing=0 cellpadding=0> <tr> <td colspan=2> <p align=center><span style='font-size: 9pt'>Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（<A href='http://www.mintao.net/'>学习笔记</A>） Inc All Rights Reserved. <br> <A href='http://www.mintao.net/'>闵涛</A> <a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=543098146&Site=敏韬网&Menu=yes" rel="nofollow"><img border="0" SRC=http://wpa.qq.com/pa?p=1:543098146:10 alt='投放广告、内容合作请Q我!'></a> E_mail:admin@mintao.net(欢迎提供学习资源)</span></p> <div style="width:300px;margin:0 auto; padding:1px 0;"> <a target="_blank" href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=42011102001154" style="display:inline-block;text-decoration:none;height:20px;line-height:20px;"><img src="http://www.mintao.net/images/beian_ico.png" style="float:left;"/><p style="float:left;height:20px;line-height:20px;margin: 0px 0px 0px 5px; color:#939393;">鄂公网安备 42011102001154号</p></a> </div> <p align=center><span style='font-size: 9pt'> 站长：<A href='http://www.mintao.net/'>MinTao</A> <align=center><span style='font-size: 9pt;color:#7f270f'>ICP备案号：<a target="_blank" href="https://beian.miit.gov.cn">鄂ICP备11006601号-18</a> <script src='http://s79.cnzz.com/stat.php?id=495319&web_id=495319&show=pic' language='JavaScript' charset='gb2312'></script> <script type="text/javascript"> var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://"); document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3F83055e3c4dcc2c9c0e7ad2643e08b99d' type='text/javascript'%3E%3C/script%3E")); </script> </span></p></td> </tr> <tr> <td align=center> 闵涛站盟:<A href='http://pub.mintao.net/' target='_blank'>医药大全</A>-<A href='http://www.iwuxue.com/' target='_blank'>武穴网</A>。<A href='http://www.mintao.net/sitemap_index.xml' target='_blank'>A</A>打造<A href='http://www.mintao.net/SiteMap/Soft1.htm' target='_blank'>B</A>、<A href='http://www.mintao.net/SiteMap/Article1.htm' target='_blank'>C</A>、<A href='http://www.mintao.net/SiteMap/Photo1.htm' target='_blank'>D</A>……</span></td> <td> </td> </tr> </table> <script language="JavaScript" src="http://www.mintao.net/js/qqkf.js"></script> </td> <td width=20></td> <td width=120 height=80><A href="http://xianning.cyberpolice.cn/" rel="nofollow" target=_blank><IMG alt=咸宁网络警察报警平台 src="http://www.mintao.net/images/xnwj.gif" width=120 border=0></A></td> </tr> </table> </td> <td width=8 background=/Skin/sealove/Main_Right.gif></td> </tr> </table> <script type="text/javascript"> /*blog.mintao.net250*200 创建于 2015-07-01*/ var cpro_id = "u2183153"; </script> <script src="http://cpro.baidustatic.com/cpro/ui/f.js" type="text/javascript"></script> <table width="1000" align="center" border="0" cellpadding="0" cellspacing="0"> <tr><td width="15"><img src="/Skin/sealove/Main_BottomLeft.gif"></td> <td height="11" background="/Skin/sealove/Main_BottomBG.gif"><img src="/Skin/sealove/space.gif"></td> <td width="15"><img src="/Skin/sealove/Main_BottomRight.gif"></td> </tr> <tr><td colspan="3" height="5"></td></tr> </table> </body> </html><NOSCRIPT><IFRAME src='*' Width='0' Height='0'></IFRAME></NOSCRIPT>