Script.VBS.Agent.ai juan.vbs专杀

2017年02月06日 72 阅读

HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden 值：Type:REG_DWORD,Length:4,Data:0 HKLMSOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHidden SHOWALLCheckedValue 值：Type:REG_DWORD,Length:4,Data:0...

循环取值Request.QueryString的用法

2017年02月06日 65 阅读

当页面上的FORM以GET方式向页面发送请[/url]求数据（如数据含有不安全字符，则浏览器先将其转换成16进制的字符再传送，如空格被转成%20）时，WEBSERVER将请求数据放入一名为QUERY_STRING的环境变量中，QueryString方法是从这一环境变量中取出相应的值，并将被转成16进制的字符还原（如%20被还原成空格）。 如表单上有一name为username的文本框及一name为password的文本框，当表单提交时，会产生这样的URL串...

asp下实现字符串的补充fill（）

2017年02月06日 55 阅读

复制代码 代码如下:<% "功能:在一个字符串前后补全另一字符串 "来源:http://jorkin.reallydo.com/article.asp？id=452 PublicFunctionFill（ByValsString,ByValsStr） Fill=RFill（LFill（sString,sStr）,sStr） EndFunction %>复制代码 代码如下:<% "功能:在一个字符串前面补全另一字符串 "来源:http://...

无服务器做任意二级米子站

2017年02月06日 56 阅读

无服务器做任意二级米子站 1.支持单米空间 2.国际米泛解析 现在我只列出了框架,功能将在以后逐个添加,欢迎大家共同讨论 实现方法: 添加记录:*,类型:URL-URL转发,转发地址:本程序的地址（http://localhost/） http://localhost/index.asp的代码: 复制代码 代码如下:<% DNS_Key=Split（Split（Request.Servervariables（"HTTP_REFERER"）,"/"）（...

一个asp替换函数img里面多余的代码

2017年02月06日 54 阅读

<% Response.Write（Server.HTMLEncode（FixImg（"<imgonclick=""if（this.width>screen.width-461）window.open（"qq/20082181405371.jpg"）;""alt=""""border=""0""src=""qq/20082181405371.jpg""/>"））） %> <% "功能:将IMG代码格式化为<imgs...

几种另类的ASP后门

2017年02月06日 56 阅读

<% "codebynetpatch dimdbfile,sql db="netpatch.asp" dbfile=server.MapPath（db） setydb=server.CreateObject（"ADOX.Catalog"） ydb.Create"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbfile setydb=nothing iferr.number=0then Response....

asp事物功能简单小应用

2017年02月06日 65 阅读

conn.begintrans"开启事物功能 ...中间是一些添加修改删除操作 如果出现错误就取消 conn.rollbacktrans"取消事物更改并结束事物 如果没问题，就保存 conn.CommitTrans"保存事物并结束事物复制代码 代码如下:<%ifnotsession（"type"）="3"then response.Redirect"../login.asp" else %> <！--#includefile="../co...

ASP获取网页全部图片地址并保存为数组的正则

2017年02月06日 66 阅读

目前还是有BUG的,最新的测试页面在:http://www.reallydo.com/getimg.asp 正则分析页面在:http://jorkin.reallydo.com/article.asp？id=380 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=""为空时出错.已修正. 发现BUG:图片路径有多个空格时只能保留一个.未修正. 2.18修正 图片路径有多个空格时只能保留一个的BUG.已修正. ...

通过客户端验证上传图片文件大小的ASP源码

2017年02月06日 61 阅读

<%@Language=JScript@CodePage=936%> <ScriptLanguage=JScriptRunAt=Server> /**************************************************************** <lostinet:sourcexmlns:lostinet="lostinet-d2g-com/source"> <lostinet:sou...

asp下计算分页的几种方法

2017年02月06日 57 阅读

<% "计算分页的几种方法"//iRecordCount为要计算的页面总数 "//iRecordCount为记录集数 "//iPageSize为每页记录数 "//一: IfiRecordCountModiPageSize=0Then iPageCount=Int（iRecordCount/iPageSize） Else iPageCount=Int（iRecordCount/iPageSize）+1 EndIf "//二: iPageCount=In...

谈动态多行多列，循环行和列，输出M行N列的ASP代码

2017年02月06日 78 阅读

现在感觉真麻烦，下面这样够简单够清楚了吧？ 复制代码 代码如下:<% Dimi,j,iCols i=0"//定义i进行循环 iCols=3"//一行有几列（正整数） Response.Write（"<tablewidth=""100%""border=""1""cellspacing=""2""cellpadding=""0""><tr>"&vbNewLine）"//输出Table头和第一个Tr DoWhileNotoRs.E...

asp在线执行sql语句的函数

2017年02月06日 76 阅读

复制代码 代码如下:functiongfv（str） gfv=request.form（str） endfunction subexecutesql dimcontent:content=gfv（"content"） onerrorresumenext conn.begintrans conn.execute（content） iferr.number<>0then err.clear conn.rollback conn.close:setc...

asp正则html的图片,对图自动缩放大小

2017年02月06日 62 阅读

下面这个是比较不错的一个复制代码 代码如下:FunctionFormatImg2（content）dimre Setre=newRegExp re.IgnoreCase=true re.Global=True re.Pattern="（script）" Content=re.Replace（Content,"script"） re.Pattern="<img.[^>]*src（=|）（.[^>]*）>" Content=re.rep...

文件名 正则表达式提取方法

2017年02月06日 57 阅读

下面这段子程基本上可以算是比较不错的通用匹配了。（PS:我突然发现CODE_LITE把我的UBB转义了！！！晕,我只好自己转义了。。。） DimobjRegExp,Matches,i,DC9_DOT_CN_MATCH DimaryMatch（） RedimPreservearyMatch（0） SetobjRegExp=NewRegExp objRegExp.IgnoreCase=True objRegExp.Global=True objRegExp.P...

检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过

2017年02月06日 62 阅读

今天试了下AspJpeg组件，发现用AspJpeg组件去处理不正常的图片文件的时候就会出错，呵呵，这个正好可以让我们用来检查图片的合法性，偶给封装成函数了～复制代码 代码如下:"------------------------------------------- "函数名：chkimg "作 用：检查图片文件是否合法 "参 数：img，图片路径 "返回值：布尔类型 "条 件：服务器必须支持AspJpeg "------------------------...

asp下检查表中是否存在某个字段（列）函数

2017年02月06日 81 阅读

复制代码 代码如下:FunctionCheckFields（FieldsName,TableName） Flag=False sql="select*from"&TableName SetRS=Conn.Execute（sql） fori=0toRS.Fields.Count-1 ifRS.Fields（i）.Name=FieldsNamethen Flag=True ExitFor else Flag=False endif Next CheckFiel...

一想千开PJblog审核功能补丁 v2.0版 发布第1/3页

2017年02月06日 55 阅读

这次这个补丁，应该说和上和是没有多少关系的，是完全重新编写的。但为了不和上次发布的那个补丁混淆，给这个补丁加个版本号2.0。 一.PJblog审核功能补丁v2.0对PJblog功能上的改进 1.重大改进：一想千开首创“敏感字”概念并引入应用到PJblog审核功能补丁v2.0 什么是“敏感字”？一想千开对“敏感字”的定义是这样的：含有“敏感字”的言论有可能是非法言论，也有可能是正常言论。这类词语我们不能直接加进“过滤关键字”里去~因为这样可能很多正常的言论...

ASP批量更新代码

2017年02月06日 74 阅读

<！--#includefile="../Conn.asp"--> <% setrs=server.createobject（"adodb.recordset"） sql="select*fromarticlewherebigtypes="我爱你"orderbyiddesc"找出数据库内类别为我爱你的所有数据 rs.opensql,conn,1,3 ifnotrs.eofthen dowhilenotrs.eof fname=rs（"id...

asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载

2017年02月06日 68 阅读

本程序由 飞飞Asp乐园 ffasp.com 开发本程序官方下载网址http://www.ffasp.com/content.asp？newsid=945飞飞As！p技术乐园***能说明： 基于AJAX树状目录显示 支持灵活的目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 支持栏目选择 使用说明： 默认首页:index.asp可以进行目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 栏目选择测试页面:columnshow.asp 栏目选择函数...

比较详细的ASP rs.open语句详细说明

2017年02月06日 62 阅读

"************************************************************** "------------------------------------------------------------- "第一个参数 "可以是表名,也可以是SQL语句 "-------------------------------------------------------------Chinaz^com "第二个参数...