存档
我真的太失败了~
总认为自己是最好的，自负的厉害，经常瞧不起别人。同时又太自卑了，把自己装到了一个盒子里。太失败了，太可怜了，太可悲了。
在一次次半途而废中，一次次失败，一次次为自己找种种借口。失败后想怎样怎样，让瞧不起自己的人好好看看，到底我是不是一个失败者。可惜一次次的半途而废，是我再次失败。想想以前，我着缺点太多了，这样发展下去，太可怕了~
可能是在家庭，朋友，长辈的影响下，认为本科生不过如此，经过与他们的交流之后，确实不是在一个档上的。我离他们太远了，太远了。。。
我现在隆重定下一个目标，2010年10月10日，我的月工资不低于6000。09年之前Python，并且能用Java编写基础的程序。
谨以此文，激励自己不要在半途而废。
不要把自己装在一个自闭的空间里，不要半途而费。晚上12点之前必须睡觉，以免影响第二天休息。
请保存为VBS文件
今天写完这篇，打开发现卡巴报病毒，汗，不知道的还以为我挂马~
下面代码需要将“。”替换成“.”，“””替换成““”(英文的双引号)
‘ASP图片小偷,批量下载格力全部图片
‘Design By Miaoqiyuan。cn
function getHTTPPage(url)
dim Http
set Http=createobject(”MSXML2。XMLHTTP”)
Http。open ”GET”,url,false
Http。send()
if Http。readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http。responseBody,”GB2312”)
set http=nothing
if err。number<>0 then err。Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = CreateObject(”adodb。stream”)
objstream。Type = 1
objstream。Mode [...]
< %
‘ASP获取文章列表
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3 [...]
实现功能：
1.预算剩余时间
2.预测剩余进度
3.转换大小
4.自动调整比列
5.显示转换所有时间
6.显示调整所用时间
7.显示征途所有时间
下面给出程序源代码(r.vbs)
oh=640 ‘最大高度
op=10 ‘运行完等待时间，默认1000，即1秒
Function Mappath(v)
Mappath=fso.getAbsolutePathName(v)
End Function
Sub Convert
imgnum=fpo.files.count
wscript.echo "图片批量转换工具 1.0 By 苗启源"&vbCrlf&String(60,"=")
imgsta=timer()
imgi=1
for each file in fpo.files
if ucase(fso.getExtensionName(file))="JPG" Then
imgedit=timer()
wscript.echo "开始"&file.name&"转换…"
jpeg.open file
owidth=jpeg.originalwidth
oheight=jpeg.originalheight
[...]
本博客正式“开源”，开源网址如下:
http://miaoqiyuan.cn/getcodenow.asp
以前刚刚懂404.asp的时候，曾经幻想把所有程序代码写到404.asp中，实现一个模拟生成静态网页的站，如果程序小还可以，用404.asp实现Rewrite还是一个不错的选择，如果程序代码多达100000行，恐怕就要开始爬了
直到看到asp的Server.Transfer,用404模拟生成静态页的站的念头重新在我的脑海中浮现出来，现在即使在大的程序，也可以用ASP中的Server.Transfer轻松搞定
<!–#include file="bin/404_Query"–>
< %
select case bin_command
case "bin"
server.transfer("bin/web")
case "uploadfiles"
server.transfer("bin/send-stream")
case else
server.transfer("bin/send-404")
end select
%>
呵呵，说白了，就是根据bin_command来判断到底要实现很么功能，如果为bin则由asp的Server.Transfer移交到到bin/web，然后返回结果，并且能很好的解决URL地址的友好性的问题，实现模式生成静态页的效果。在PHP中没有Rewrite，如果想要URL友好性通常实用PATH_INFO，而本程序由asp的Server.Transfer模拟了PHP中的Path_Info，唯一需要的就是要支持404.asp
bin/404_Query的源代码如下:
< %
Urls=mid(request.querystring,instr(request.querystring,":80")+4)
if instr(Urls,"/")>0 then
bin_command=left(Urls,instr(Urls,"/")-1)
getfile=replace(Urls,bin_command&"/","")
else
bin_command="bin"
end if
%>
这段代码主要是判断bin_command由什么来执行，首先看是否包含二级目录，如果没二级目录，则赋值”bin”(代表程序)
如:demo.com/index5.html,则bin_command=”bin”,通过上边的代码可以知道交给bin/web处理
demo.com/uploadfiles/123456.gif(该文件实际对应的是files/123456.gif),则bin_command=”uploadfiles”,通过上边的代码可以知道交给bin/send-stream处理，send-stream怎么输出files/123456.gif呢。可以参考我以前写的一篇文章 [url=http://miaoqiyuan.cn/p/asp-binarywrite-adodb-stream/]ASP实用BinaryWrite与Adodb.Stream实现下载[/url]（http://miaoqiyuan.cn/p/asp-binarywrite-adodb-stream/）
demo.com/111/222，则bin_command=”111″，在select case中没有定义，则是else，交给bin/send-404处理，输出没有找到文件的信息
这样在所有访客(包括：百度，Google)看来，本站都是一个生成静态的页面了。据我所知国内IIS主机有99.9%不支持Isapi_Rewrite，就遇过一次，因为占资源太严重很快就给取消了。
下面是我在ASP学习网上看到的，附在后面，以供参考：
调用 Server.Transfer 方法,立即终止执行第一页并且开始执行第二页。
如果第一页开始写入响应缓冲区, 第二页追加内容到缓冲区而不是替换它。
如果缓冲是打开, 该方法将修改 HTTP 头,除非尚没有内容已被发送.如果 ASP 缓冲关闭, HTTP 头将不修改.
当传输到其他应用程序, 起始页 Application 和 Session 对象将包含应用程序信息中。
示例
下列示例页阐释如何使用 Server.Transfer 方法。
1.
<html>
<body>
<h3>Step 1 – Form Page</h3>
<table border="1">
<tr>
<th>POST</th>
<td>
<form action="page2.asp" method="POST">
<input type="text" name="Name"/>
<input type="submit" [...]