• 查看服务器Application/Session变量工具

    %@LANGUAGE="javascript" CODEPAGE="936"% % Response.Expires = 0; Response.Buffer = true; var tPageStartTime = new Date(); % html head title网站-Application变量-Session变量/title meta http-equiv="Content-Type" content="text/html; charset=gb2312" STYLE...

    2008-02-23 05:29:32

  • 在ASP中,用JScript脚本实现分页的另类办法

    %@LANGUAGE="JAVASCRIPT" CODEPAGE="936"% !--#include file="connect.asp"-- !--#include file="news.asp"-- % var DataSet,sql,DataList; var i=0; var j=0; DataList=new News(); DataSet=Server.CreateObject("Adodb.recordset"); sql="select * from News where n...

    2008-02-23 05:29:32

  • ASP安全检测与过滤函数SafeCheck

    '作用:安全字符串检测函数 '名字:SafeCheck '参数:CheckString,CheckType,CheckLength '说明: 'Checkstring待检测字符串:任意字符. 'CheckType检测类型0正常短字符1数字2日期3金钱4编码HTML5解码HTML6登录字符串7防攻击检测 'CheckLength检测类型长度:类型为int,当为金...

    2008-02-23 05:29:30

  • asp模块化分页制作详解

    模块化分页 1.查询语句块 % 取得当前文件名 temp = Split(request.ServerVariables("URL"), "/") fy = temp(UBound(temp)) set rs=server.createobject("adodb.recordset") if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 en...

    2008-02-23 05:29:30

  • 升级MD5.ASP,打造完全动态不重复的安全加密代码

    做一个完全动态的密码,让相同的密码生成不同的结果 密码aaa经过第一次运算后结果为: jlce1d65ec3b91556234879c9db8f6da1123 第二次: hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4 第三次: grttb05901915e121d83ebefad7e809ef1b0 ... ... 当然,亦可还原比较 以下我根据动...

    2008-02-23 05:29:29

  • 关于如何利用COM ,来提高ASP执行权限的问题!

    我们知道,想在一个操作系统执行任何一个操作都是需要用户的。然后操作系统会检查该用户是否有权限执行这个操作的权限,如果有,就会执行,如果没,就会拒绝。这和我们浏览网站是一样的道理,当我们在客户端输入一串URL并执行时,其实是向服务端发送要浏览的请求,在操...

    2008-02-23 05:29:28

  • 在ASP中利用COM组件开发Web应用程序

    作者: 沈晓刚 如果你是一名Active Server Page (ASP) 开发者,相信你可能经常使用COM对象来创建ASP页面。甚至在你使用中都忽略了他就是COM对象。比如:ADO。只个调用率最高的组件已让你的页面扩展了无限的功能。然而ASP本身是解释型脚本,在功能上不足COM强大。作为拥...

    2008-02-23 05:29:27

  • 一个asp函数, 解决SQL Injection漏洞

    /** 作者:慈勤强 Email: cqq1978@Gmail.com */ 函数很简单, 主要是针对字符串和数字两种类型的传入数据分别进行了处理,具体用法: 字符类型的 strUsername = CheckInput(Request(“username“),“s“) 数字类型的 ID = CheckInput(Request(“id“),“i“) 下面是函...

    2008-02-23 05:29:26

  • 将身份证从15位升级为18位的函数

    '将身份证从15位升级为18位的函数 Function GetNewIDCard(ByVal IDCard As String) As String Dim i, S As Integer Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",") Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",") If Mid(IDCa...

    2008-02-23 05:29:25

  • ASP动态生成的javascript表单验证代码

    以网上down了一个ASP动态生成Form验证Javascript的代码,自己扩容了一下。作者的大名我给忘了,不过我记得清楚,从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限,从第九条至第十五条不见得会条条生效啊?呵呵,其...

    2008-02-23 05:29:24

2