利用xmlhttp和adodb.stream加缓存技术下载远程Web文件
% '----------远程获取内容,并将内容存在本地电脑上,包括任何文件!---------- '---------------利用xmlhttp和adodb.stream----------------- 'On Error Resume Next '-------------------------------定义输出格式----...
% '----------远程获取内容,并将内容存在本地电脑上,包括任何文件!---------- '---------------利用xmlhttp和adodb.stream----------------- 'On Error Resume Next '-------------------------------定义输出格式----...
1、备份 % SQL="backupdatabase数据库名todisk='""\\""'" setcnn=Server.createobject("adodb.connection") cnn.open"driver={SQLServer};Server=服务器名;uid=sa;pwd=" cnn.executeSQL onerrorresumenext iferr0then response.write"错误:"nbs...
1、备份 % SQL="backupdatabase数据库名todisk='""\""'" setcnn=Server.createobject("adodb.connection") cnn.open"driver={SQLServer};Server=服务器名;uid=sa;pwd=" cnn.executeSQL onerrorresumenext iferr0then response.write"错误:"nbsp...
复制代码 代码如下: % ' make sure you have the 6 dir_*.gif files! ' yes, you can copy ours if ya want too.. :) ' http://line9.com/img/dir_dir.gif .. etc. Function ShowImageForType(strName) strTemp = strName If strTemp "dir" Then strT...
实例一:“一句话木马”入侵“EASYNEWS新闻管理系统” “EASYNEWS新闻管理系统v1.01正式版”是在企业网站中非常常见的一套整站模版,在该网站系统的留言本组件中就存在着数据过滤不严...
比较复杂,可以支持多种逻辑符,包括+-andor空格等,并且根据需要随便增加。可以根据条件选择在那个表中搜索,对速度也做了优化,可以说是很快的。当然因为是以前写的,存在不少...
复制代码 代码如下: % Response.write"关键字:("")"lt;hr" x=Replace(trim(request("Q")),"",",") 'x=array(x) t=split(x,",") SQL="Select*FromTBwherekis0" fori=0toUBound(t) ift(i)""then Response.write"第"":""hr" SQL=SQLnbsp;ortitlelike...
复制代码 代码如下: '函数名称:ReadTextFile '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 '---------------------------------------------------- FunctionReadFromTextFile(FileUrl,CharSet) IfFileUrl=""ORIsNull(F...