-
在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的变量中.
作者:asdasdasd03-30
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]... -
用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