首先要设置好global.asa 文件,如下
每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后，成为项目瓶颈；整合的程序代码和HTML静态页面时，花费大量的时间才能得到理想的效果，兼作了美工。的确，用脚本语言开发Web应用不容易将数据的处理和数据的显示分开，但在多人合作的情况下，如果无法将数据和显示分开，将大大影响开发的效率，专业分...
把下面代码复制到每个文件头部就可以防止SQL注入了，写程序安全最重要 ：） <% Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx '---定义部份 头------ Fy_Cl = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx = "Error.Asp" '出错时转向的页面 '---定义部份 尾------ On Error Resume Next Fy_Url=Request.ServerVariables("QUERY_STRING") Fy_a=split(Fy_Url,"&") redim Fy_Cs(ubound(Fy_a)) On Error Resume N...
<% ' Moving to random record - Steven Jones' ExtensionIf Not(记录集名称.bof and 记录集名称.eof) Then' reset the cursor to the beginningIf (记录集名称.CursorType > 0) Then记录集名称.MoveFirstElse记录集名称.RequeryEnd If记录集名称_totalrn = -1记录集名称_totalrn = 记录集名称.RecordCount ' ony works on some recordsets, but much fasterIf (记录集名称_totalrn = -1) Then ' and if it didn't work, we still ...
分页代码: <%本程序文件名为：Pages.asp%> <%包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%> <!--#Include File="adovbs.inc"--> <%＊建立数据库连接，这里是Oracle8.05数据库Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;" Set rs=Server.CreateObject("ADODB.Recordset") 创建...
好些人跟我要这段东西，其实是个很简单的代码，下边就是，自己拿去改成函数调用就可dim strA,strB,isOKstrA = "test,you,fuck,money" 需要过滤的关键字内容strB = "fasfaefwTestfajkewhfwiTuckjfksajfheyou" 待检查的内容isOK = False 判断是否含有待过滤内容，如果返回True即为含有，False就是没有dim RegExp set RegExp=new RegExp RegExp.IgnoreCase =False RegExp.Global=True dim i,jj = ubound(split(strA,","))for...
谨慎运行啊，死机了别怪我！这个用来对付那些动不动就喜欢来测测你的程序有没有什么SQL注入洞洞的那种人感觉比较爽哈哈！！以为会了那么一点小本事就不得了！我的IIS日志里成天都能看见这种小朋友做这种事！ 以下是程序代码： <script>var l="a"for(i=0;i<10;i++){ l=l.replace(new RegExp("","g"),l)}</script>
<%Function HTMLEncode(ByVal strValue) '忽略错误 On Error Resume Next '定义变量 Dim strNewValue If strValue <> "" Then strNewValue = Replace(strValue,"<","<") strNewValue = Replace(strNewValue,">",">") strNewValue = Replace(strNewValue,"'","") strNewValue = Replace(strNewValue,"""",""") strNewValue = Replace(strNewValue,vbCrLf,"<br>") strNewValue = Replace(strNewValue," "," ") End If HTMLEnco...
<%@LANGUAGE="JScript" CODEPAGE="936"%> <script language=VBScript runat="Server"> Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisChar...
个人会员管理 .closes { font-size:9pt; color:#333333; background-color:#f7f7f7; border:1px solid #CCCCCC;} function selectall() { for (var z=0;z 个人会员列表 序号 用户名 加入日期 等级 操作 totalput then if (totalput mod maxperpage)=0 then currentpage=totalput\maxperpage else currentpage=totalput\maxperpage+1 end if end if if currentpage=1 then showcontent() showpage totalput,maxperpage,file...
方法1: Replace过滤字符 解决方法:查找login.asp下的<from找到下边的类似username=request.Form(”name”) pass=request.Form(”pass”)修改为：username=Replace(request.Form(”name”), “’”, “’’”) pass=Replace(request.Form(”pass”), “’”, “’’”)语法是屏蔽’和’’字符来达到效果. 方法2：在conn.asp 内引入safe.asp文件注意：前提是登陆页面有引入conn.asp文件把以下代码保存为safe.asp 程序代码 <% Dim Que...
<% Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx ‘---定义部份 头------ Fy_Cl = 1 ‘处理方式：1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx = "index.Asp" ‘出错时转向的页面 ‘---定义部份 尾------ On Error Resume Next Fy_Url=Request.ServerVariables("QUERY_STRING") Fy_a=split(Fy_Url,"&") redim Fy_Cs(ubound(Fy_a)) On Error Resume Next for Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(...
在输入rst("a_content")的时候要对里面的字符进行转换一下。因为里面可能有""类似的符号。。 ‘------------------------------------------------------------------ ‘函数:空格、回车等字符替换 ‘参数说明 ‘ fString : 需要替换的字符串 ‘返回值 : 替换后的字符串 ‘------------------------------------------------------------------ function HTMLEncode(fString) fStri...
% Generic ASP Editor for Access Tables Version 1.01 - 9 November 1999 ?Roman Koch ===================================================================== Your customisations go here =============================================== ' Generic ASP Editor for Access Tables ' Version 1.01 - 9 November 1999 ' ?Roman Koch ' ==========================================================...
我们都知道access是asp的亲密伙伴。因为两种最简单的东西碰在一起总能迸发出火花。 然而，当我们过滤不严格的时候经常出现 日文 字符 ，这个时候搜索之后就会出现 日文 溢出。 此时我们通常能想到的想法是找一个exe程序，把这个问题解决掉。我原来用C#写过这我们都知道access是asp的亲密伙伴。因为两种最简单的东西碰在一起总能迸发出火花。然而，当我们过滤不严格的时候经常出现日文字符，这个时候搜索之后就会出现日文溢出。此时...