2007-6-18 20:41:35
ASP 简体转反体
使用方法比如转换XX.TXT,那么页面就是A.asp?f=xx.txt%ifrequest(f)=thenresponse.endendiffunctionf(content)dims,t,c,d,is=万,与,丑,专,业,丛,东,丝,丢,两,严,丧,个,丬,丰,临,为,丽,举,么,义,乌,乐,乔,习,乡,书,买,乱,争,于,亏,云,亘,亚,产,亩,亲,亵,亸,亿,仅,从,仑,仓..
2007-6-18 20:40:17
ASP错误代码及原因一览表
ASP错误代码及原因一览表MicrosoftVBScript(0x800A03E9)内存不足 MicrosoftVBScript(0x800A03EA)语句格式错误（只有else，缺少If或EndIf） MicrosoftVBScript(0x800A03EB)缺少':' MicrosoftVBScript(0x800A03ED)缺少'(' MicrosoftVBScript(0x800A03EE)缺少'..
2007-6-18 20:39:52
防止外部提交的函数
防止外部提交的函数server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))server_v2=Cstr(Request.ServerVariables(SERVER_NAME))ifmid(server_v1,8,len(server_v2))server_v2thenresponse.Redirect(http://bbs.654.cn)'如果不是本站提交数据，就跳转到指定的地址endi..
2007-6-18 20:39:30
如何写ASP入库小偷程序
入库小偷的原理也很简单：就是用XMLHTTP远程读取网页的内容，然后根据需要，对读到的内容进行加工（过滤，替换，分类），最后得到自己需要的数据，加入到数据库中。首先：我们先用XMLHTTP读取远程网页（我的另一片文章中有介绍）。其次：对内容进行过滤，这个是比较关键..
2007-6-18 20:39:02
ASP初学者常犯的几个错误
ASP初学者常犯的几个错误1.记录集关闭之前再次打开:------------------------------------sql=select*fromtestrs.opensql,conn,1,1ifnotrs.eofthendimmyNamemyName=rs(name)endifsql=select*frommyBookrs.opensql,conn,1,1-------------------------------------解决:在..
2007-6-18 20:38:43
用VB编写ASP组件(DLL)源码
用vb编写asp组件(dll)示例下面,将演示如何使用vb制作asp的dll组件1.启动你的vb,选择activexdll图标,然后在点击菜单的工程引用,接着在弹出的引用窗口从中选择microsoftactiveserverpagesobjectlibrary.2.给工程和类重命名,在asp中调用时,就全靠它了^_^!我们的工程名改为a..
2007-6-18 20:36:14
ASP自定义函数：对字符串正则替换
RegReplace(str,regexStr,RepalceStr)对str进行正则替换如：htmlstr=123imgsrc=asdf.gifborder=045b6/bhtmlstr2=RegReplace(htmlstr,(.*),)返回htmlstr2为123456FunctionRegReplace(Str,PatternStr,RepStr)DimNewStr,regExNewStr=Strifisnull(NewStr)thenRegReplace=exi..
2007-6-18 20:33:48
用Asp写个加密和解密的类
用asp写个简单的加密和解密的类，在这个类中简单的实现了一个加密和解密。目的是和大家分享一下。这个类的破解非常简单。看看我的注释就知道是怎么回事了。下次编写一个java的加密和解密的类。 classBase64Class remConst dimsBASE_64_CHARACTERS转化码 dim..
2007-6-18 20:32:43
使用asp 制作文件批量改名
%@LANGUAGE=VBSCRIPTCODEPAGE=65001%!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//ENhttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtdhtmlxmlns=http://www.w3.org/1999/xhtmlheadmetahttp-equiv=Content-Typecontent=text/html;charset=utf-8/titleas
2007-6-18 20:32:23
怎样给文件加密最安全？
%@Language=VBScript%%Response.Expires=0p=abcdefgSetTestPWD=NewCPassWordTestPWD.EnPWDpTestPWD.UnPWDTestPWD.ShowPWD(True)k=TestPWD.ShowPWD(True)l=TestPWD.ShowPWD(False)SetTestPWD=NothingWithResponse.Write原文:pbr.Write加密后:kbr.Write解密后:LbrEndWithC..
