作家
登录
  • 在ASP中用组件检测当前网卡地址的代码

    Option Explicit Private Const NCBASTAT = &H33 Private Const NCBNAMSZ = 16 Private Const HEAP_ZERO_MEMORY = &H8 Private Const HEAP_GENERATE_EXCEPTIONS = &H4 Private C...

    作者:asdasdasd03-30
  • ASP中类Class相关内容的整理资料

    Class 对象 使用 Class 语句创建的对象。提供了对类的各种事件的访问。 说明 不允许显式地将一个变量声明为 Class 类型。在 VBScript 的上下文中,“类对象”一词指的是用 VBScript Class 语句定...

    作者:asdasdasd03-30
  • asp中向文本框输出数据原样式的函数

    从数据库输出信息时有转换函数,可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。复制代码 代码如下:Function cc_f_textarea_html_encode(cc_f_t_h_e_str) If Not IsNull(cc_f_t...

    作者:asdasdasd03-30
  • 实例分析之用ASP编程实现网络内容快速查找的代码

    有一天我突发奇想,要是我每到一个网站,那里都能立刻调出我需要看的信息,那岂非美妙得很。接下来我想更深入地考虑这个问题,坐到椅子上拿一支铅笔,却不知道自己写什么。如此一来,我还是得着...

    作者:asdasdasd03-30
  • asp中"无限流"分页程序代码

    <% '****************************************************************** '** 本程序名:"无限流"分页程序 '** 作者:Arbiter(AAsx) '** 版本:Million Level '** '** QQ:22222xx '** Email:...

    作者:asdasdasd03-30
  • asp中COM组件中如何连接数据库的代码

    VB- 工程 -引用 - ADO 2.0 ,建一个类DB,工程名设为 SQLCONN 以下是偶程序中的部分代码,大家有空可以试试 Option Explicit Public strError As String Public Conn As New ADODB.Connection Pu...

    作者:asdasdasd03-30
  • 服务端 VBScript 与 JScript 几个相同特性的写法与示例

    By shawl.qiu 摘要: 本文演示了ASP服务端脚本的几个重要应用. 目录: 1. 遍历集合/对象 1.1 VBScript 遍历表单集合 1.2 JScript 遍历表单集合 2. 转变量值为变量, 并赋值 2.1 VBScript 转变量值...

    作者:asdasdasd03-30
  • ASP中实现限制IP的函数详解

    '****************************** 'Function CheckIp(cInput_Ip,cBound_Ip) 'Created by qqdao, qqdao@263.net 2001/11/28 '说明:首先需要根据;号循环,然后判断是否含有"-",如果有则进行拆分...

    作者:asdasdasd03-30
  • ADODB.Stream组件Charset属性值集合

    翻了半天MSDN后找到的,|后边是别名复制代码 代码如下:ANSI_X3.4-1968|iso-8859-1 ANSI_X3.4-1986|iso-8859-1 arabic|iso-8859-6 ascii|iso-8859-1 ASMO-708 Big5 chinese|gb2312 CN-GB|g...

    作者:asdasdasd03-30
  • asp的一个日期格式化函数

    如何把日期2007-03-02格式化成[03.02]?假设2007-03-02放在一个叫datestring的变量中.

    [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]...

    作者:asdasdasd03-30
  • 用ASP创建MDaemon用户的代码

    <%@ Language=VBScript %> <!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" --> <HTML> <BODY> <H1 align=center>在线注册演示</H1> <% Dim sMessage If Request....

    作者:asdasdasd03-30
  • Asp下实现限制IP访问的程序代码

    <% ''获取访问者的地址 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.write checkip(ip,allow...

    作者:asdasdasd03-30
  • ASP 环境下 VBS 事件应用 示例代码

    <% Class TopicModel Public OnView Public Function Load(id) IF Not(IsEvent(OnView)) Then OnView(1) End IF End Function Function IsEvent(evnet) IsEvent = IsEmpty(evnet) ...

    作者:asdasdasd03-30
  • 关于ASP代码的加密的几个方法

    1.MS SCRIPT ENCODE 基本上没什么用了,一段JS就可以破解 2.封装成DLL 比较可行的方法,有通过VB封装成DLL的例子,而且无需改动很多代码,修改方便,调用时也很简单.缺点是需要注册DLL控件,虚拟主机通...

    作者:asdasdasd03-30
  • asp中创建多级目录的两段代码

    复制代码 代码如下: '============================== '创建多级目录,可以创建不存在的根目录 '参数:要创建的目录名称,可以是多级 '创建目录的根目录从当前目...

    作者:asdasdasd03-30
  • ASP使用FSO读取模板的代码

    m_Root是文件名,可以使用相对路径。 调用调用示例: Response.Write(LoadFile("Test.htm")) Function LoadFile(m_Root) Dim Filename,fso,hndFile Filename = m_Root If Right(Filename, 1)<...

    作者:asdasdasd03-30
  • asp 之上传漏洞终结篇

    收藏关于上传漏洞的文章,最近一直遇到这个麻烦, 作者:szjwwwww     出自:黑鹰基地论坛 http://www.3800cc.com 一、写在前面 ***这个上传漏洞利用的原理只是针对form格式上传的asp和php脚本...

    作者:asdasdasd03-30
  • 支持权重的无组件ASP广告显示代码

    网站同一显示很多广告?需要不同权重?简单的20行代码。 复制代码 代码如下:Dim cc_fv_ad_468_80_code,cc_fv_ad_power,cc_fv_ad_i '广告权重显示 明月星光 Copyright http://www.5iya.com/...

    作者:asdasdasd03-30
  • asp下DateDiff 函数参数说明

    DateDiff 函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]]) DateDiff 函数的语法有以下参数: 参数 描述 interva...

    作者:asdasdasd03-30
  • asp中去除内容HTML标签的三个function函数

    复制代码 代码如下:'============================== '功能描述: 用正则除去HTML标记 '不能保留<b><strong>等以及用户自定义的<和> '============================== Function RemoveHTMLTag(f...

    作者:asdasdasd03-30
  • 结合FSO操作和Aspjpeg组件写的Class

    《结合FSO操作写的一个Class》 尚在完善中,基本功能已具备. 也可作为初学者的教程 程序代码 <% '***************************** CDS系统 FSO操作类 Beta1 ***************************** '调用...

    作者:asdasdasd03-30
  • asp中一段防SQL注入的通用脚本

    '屏蔽通过地址栏攻击 url=Request.ServerVariables("QUERY_STRING") if instr(url,";")>=1 then url=Replace(url,";",";") : Response.Redirect("?" & url) end if '屏蔽通过表单攻击...

    作者:asdasdasd03-30
  • ASP下实现自动采集程序及入库的代码

    最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,你会感觉实现自动化也是那么的简单. 原理及优点:通过...

    作者:asdasdasd03-30
  • Highlight patterns within strings

    复制代码 代码如下:'Replaces pattern with highlighted replacement (using style) and preserves case Public Function highlight(strText, strFind) Dim objRegExp, i, strHighlight...

    作者:asdasdasd03-30
  • chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解

    chr(9)、chr(10)、chr(13)、chr(32)、chr(34)所有关于 ASCII码的表格:[url]http://www.asciitable.com/[/url]chr(13) 是一个回车Chr(10) 是个换行符chr(32) 是一个空格符934 是tab,未确定?...

    作者:asdasdasd03-30