backup.bat[code]backup.batftp-n-s:"d:\userweb\upbak.ftp"[/code]upbak.ftp[code]upbak.ftpopen192.168.1.19userwebbakusernamebakpassword!@#123lcdD:\userweb\www.gsta.cn\CMS\Databasesbinpromptmput*.*byequitexit[/code]...

Function filenum(filename,i)Dim st,s Set st= CreateObject("ADODB.Stream")st.Type = 2 '流类型为文本st.Mode = 3 '模式为读写st.Openst.LineSeparator=13 st.LoadFromFile filenameDo While Not St.EOS s = Split(st.readtext(),...

<%'名称：asp通用采集函数冗余版，要精品版的有心人自己改'作者：柳永法'日期：2007-6-23Function getHTTPPage(Path)    t = GetBody(Path)    getHTTPPage = BytesToBstr(t, "GB2312")End FunctionFunction GetBody(url)    On Error Re...

'=================================================='过程名：SaveRemoteFile'作  用：保存远程的文件到本地'参  数：LocalFileName ------ 本地文件名'参  数：RemoteFileUrl ------ 远程文件URL'==================================================Function SaveRemoteFile(LocalFileName,Remo...

我的私人信箱多次接到化妆品广告邮件，感觉不像是种毒的，于是点开连接去看看，原来是一个卖化妆品的商务网站。看上去较漂亮，就是不知安全性如何？以前注意过天意商务网，但这个较陌生，不知是什么系统（如图１所示）。图1   习惯性地看看有无上传之处，居然没有发现有上传图片或其它东东的地方。不死心，注册一个用户，仍然没有发现可以上传或发表文章之处。再看看有无注入漏洞，在网址后面加上“’”，提示“请勿输入非法字符”，说明已做了防注入处理。不甘心啊！再加上“and1=1”仍出现这个提示。如图2所示。 图2   看到上面有一个论坛，是动网7....

[code]’on error resume nextdl = http://www.jb51.net/index.htm'这是要下载的文件的路径str="Microsoft.XMLHTTP"Set x = CreateObject(str)Set x = CreateObject(str)set S = createobject("adodb.stream")S.type = 1x.Open "GET", dl,&...