ASP功能实现
文章平均质量分 70
hanxcloveyou
这个作者很懒,什么都没留下…
展开
-
SQL防注入公用代码
dim SQL_injdata,SQL_injSQL_injdata="|and|or|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"SQL_inj=split(SQL_injdata,"|")If Request.QueryStringFor Each SQL_Get In Req原创 2007-06-27 18:14:00 · 152 阅读 · 0 评论 -
ASP实现批量录入数据的实现
批量录入在数据库的应用中比较广泛的,关于批量录入的方法也有好多种。下面我就结合我实际中的应用,谈一下儿我是怎么实现的。主要用到的是form的集合的概念,通过循环取的所有的集合内数据。考虑到大家看着方便,我把它集成到了一个页面。下面是具体的代码:batchInput.asp#####################################File Function:批量录入数原创 2007-05-30 08:27:00 · 561 阅读 · 0 评论 -
小偷程序(asp)
这里所说的“小偷”指的是在ASP中运用XML中的XMLHTTP组件提供的强大功能,把远程网站上的数据(图片,网页及其他文件)抓取到本地,经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序,完成过去一些似乎完全不可能实现的任务,比如说把某个站的页面偷梁换柱后变成自己的页面,或者把某个站的一些数据(文章,图片)保存到本地数据库中加以利用。“小偷”的优点有:无须维护网站原创 2007-05-30 08:33:00 · 196 阅读 · 0 评论 -
JMail发送电子信
Set JMail=Server.CreateObject("JMail.Message")JMail.Charset="gb2312"JMail.ContentType="text/html"JMail.AddRecipient "[email protected]" 接受者信箱JMail.Subject = "jmail发信试验" JMail.Body = "信件内容"JMail.Fro原创 2007-06-01 09:07:00 · 126 阅读 · 0 评论 -
一个搜索硬盘文件的Asp源码
**************************代码源自网络*****************************************可能具有一定的危害性,请不要用于非法企图,否则后果自负*****************************************修改:Blue2004************************************Set new原创 2007-06-01 13:06:00 · 119 阅读 · 0 评论 -
asp中获取汉字拼音的第一个字母
获取客户简称的拼音缩写 function getpy() dim str dim i str=document.all.txtContactName.value dim ret for i=1 to len(str) ret=ret&getpychar(mid(str,i,1)) next document.all.txtSpellCode.value=ret end function getpy原创 2007-06-01 13:11:00 · 198 阅读 · 0 评论 -
asp分页加编辑
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") 创建Re原创 2007-06-05 13:30:00 · 149 阅读 · 0 评论 -
JMail发送电子邮件(ASP)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 创建一个JMAIL对象 jmail.silent = true JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging = true 启用使用日志 jmail.Charset = "GB2312" 邮件文字的代码为简体中文原创 2007-06-12 13:13:00 · 430 阅读 · 0 评论 -
动态生成Html文件
当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题注意:本文件一定要放在filename指向的文件的同一目录下dim hughchiu_rtcodeFunction get_exe_code(filename) dim execode dim tmp_str Dim re,re1,content,fso,f,aspStart,aspEnd dim原创 2007-06-18 08:38:00 · 138 阅读 · 0 评论 -
FSO操作类
主要功能: 1,创建删除文件夹 2,获取某个文件夹里的文件夹名称和个数 3,获取某个文件夹里的文件名称和个数 4,检查某个文件夹是否存在 5,检查某个文件是否存在 6,删除文件 7,读取某个文件的内容 7,创建一个文件,并把内容写到这个文件里面 *************************** 名称:FSO操作类 作者:西楼冷月 日期:2007-10-20 描原创 2007-11-14 10:40:00 · 219 阅读 · 0 评论 -
常用正则表达式
.NET2.0 验证控件常用的正则表达式验证数字:只能输入1个数字表达式 ^/d$描述 匹配一个数字匹配的例子 0,1,2,3不匹配的例子只能输入n个数字表达式 ^/d{n}$ 例如^/d{8}$描述 匹配8个数字匹配的例子 12345678,22223334,12344321不匹配的例子 只能输入至少n个数字表达式 ^/d{n,}$ 例如^/d{8,}$描述 匹配最少转载 2008-10-30 11:22:00 · 172 阅读 · 0 评论 -
VB函数大全
Abs 函数 返回数的绝对值。 And 运算符 执行两个表达式的逻辑连接。 Array 函数 返回含一数组的 变体 。 Asc 函数 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn 函数 返回数的反正切值。 调用语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数原创 2008-11-06 08:38:00 · 245 阅读 · 0 评论 -
ASP去除HTML标记
Function RemoveHTML(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, "")End Function转载 2008-11-08 14:36:00 · 776 阅读 · 0 评论 -
读出所有服务器已向用户发送的 cookie
下面的代码可读出所有服务器已向用户发送的 cookie 。请注意,我们使用了 HasKeys 属性来判断 cookie 是否拥有 key :dim x,yfor each x in Request.Cookies response.write("") if Request.Cookies(x).HasKeys then for each y in Request.Cookie原创 2008-11-13 15:53:00 · 216 阅读 · 0 评论 -
动态网站首页的静态生成方法
方法一常用函数1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystateexit functione原创 2007-05-30 08:07:00 · 137 阅读 · 0 评论 -
ASP操作XML文件的完整实例
---------------------------------------------------------------- 程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 入口参数: 无 出口参数: 无 ------------------------------------------------ 函数名字:ConnectXml() 入口参数:原创 2007-05-30 07:50:00 · 121 阅读 · 0 评论 -
asp读取省市(XML文件)-1
FormName="form1"seleProvince="河北省"seleCity="保定市"seleCounty="新市区"Call CityForm(FormName,seleProvince,seleCity,seleCounty) Province 省名City 市名County 县名FormName=""seleProvince=原创 2007-05-29 14:52:00 · 155 阅读 · 0 评论 -
自定义日期格式函数(asp)
统一调用函数Function FormatNow(s_Time) 参数:n_Flag 1:"yyyy-mm-dd" 2:"yyyy/mm/dd" 3:"yyyy年mm月dd日" 4:"hh:mm:ss" 5:"hh:mm" 6:"hh时mm分ss秒" 7:"hh时mm分" 8:"yyyy-mm-dd hh:mm:ss" 9:"yyyy/mm/dd hh:mm:ss" 10:原创 2007-07-04 17:35:00 · 328 阅读 · 0 评论 -
文件下载
在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.Filename must be inputif Request("Filename")="" thenresponse.write原创 2007-04-10 13:05:00 · 616 阅读 · 0 评论 -
查询结果分页显示的sql语句
四种方法取表里n到m条纪录:1.select top m * into 临时表(或表变量) from tablename order by columnname -- 将top m笔插入set rowcount nselect * from 表变量 order by columnname desc2.select top n * from (select top m * from tabl原创 2007-05-09 16:46:00 · 327 阅读 · 0 评论 -
SetUp.asp
主栏目显示LineNum=0 LineNum为一列显示数,为0只显示一列;MenuKind=0 主栏目类型:0为显示文字,1为显示图片ImgKind=0 图片类型:0为jpg,1为gifImgNameStr="Menu" 图片前辍 ,图片名称是:前辍加数字,数字从1开始ImgChange=0 图片是否交换:0为不交换,1为交换 ,交换的图片在原图片名称名加后辍"Re"TwoMenu=0原创 2007-05-12 17:09:00 · 217 阅读 · 0 评论 -
取得远程url数据
用xml function GetSource(url) 取得url页面的数据. dim oXmlHttp,oStream set oXmlHttp=Server.CreateObject("Microsoft.XMLHTTP") oXmlHttp.open "GET",url,false oXmlHttp.send() set oStream=Server.Cre原创 2007-05-15 08:05:00 · 237 阅读 · 0 评论 -
图片渐变调用
//图片渐变调用///*Gradual-Highlight Image Script II-By J. Mark Birenbaum ([email protected])Permission granted to Dynamicdrive.com to feature script in archiveFor full source to script, visit原创 2007-05-12 13:58:00 · 562 阅读 · 0 评论 -
ASP加密字符串
Response.Write StrReverse("abc")字符倒序A_Key=split("96,44,63,80",",") 定义密钥 *********加密的过程********* Function EnCrypt(m) Dim strChar,iKeyChar,iStringChar,I k=0 for I = 1 to Len(m) iKeyChar =Ci原创 2007-08-18 10:49:00 · 194 阅读 · 0 评论 -
ASP接口程序使用
api.asp-----------------------------------------------DIM HttpDIM ResultDIM StrDIM URLDIM Regset Reg = new PostFormSet Http = SERVER.CREATEOBJECT("Microsoft.XMLHTTP")URL = "http://smsapi.com.cn/apis.a原创 2007-08-20 08:45:00 · 338 阅读 · 0 评论 -
easymail 组件发送邮件说明
Function SendEasyMail(Email,Topic,MailBody,TextBody) on error resume next dim Mailsend set Mailsend = Server.CreateObject("easymail.Mailsend") Dim Tid,Un yy=Year(Now()) mm=Month(Now()) dd=Day(Now())原创 2007-08-22 15:09:00 · 452 阅读 · 0 评论 -
asp读取XML文件
分别保存下面两段代码,一个保存为readxml.asp另一个保存为test.xml,放在同一个目录下面,调试程序即可,在程序里面我已经做了解释,读取代码可以做成一个readxml的函数,通过使用输入的参数而读取xml不同数据记录的不同的值。这段程序的改编来自互联网,有什么出入请见谅。readxml.aspdim xml,objNode,objAtr,nCntChd,nCntAtrSet x原创 2007-05-29 08:35:00 · 247 阅读 · 0 评论 -
数据用户名读取文件
Sub IniFileLoad(ByVal FilSpc) FilSpc = lcase(FilSpc) dim PhyPth if left(FilSpc, 1) = "p" then Physical path PhyPth = mid(FilSpc, instr(FilSpc, "=") + 1) else Virtual path PhyPth = Se原创 2007-05-25 07:41:00 · 131 阅读 · 0 评论 -
用ASP建站十大常用程序
门户网、专业网、购物网各种千姿百态的网站构成我们的互联网世界,不过分析这些网站除了内容不同外,搭建这些网站的要素几乎完全一样,页面、社区、搜索、EMail这些普通的程序构成了虚拟世界的骨架。只要明白了如何编写这些要件,那么建一个网站就是举手之劳。我在这期专题中总结了ASP建站的十个常用程序,可以说绝大部分网站都是在这十个程序的基础上搭建起来的。原创 2007-05-30 07:52:00 · 420 阅读 · 0 评论 -
用ASP实现支持附件的EMail系统
input { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px} select { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px} textarea { font-size: 9pt原创 2007-05-30 08:01:00 · 738 阅读 · 0 评论 -
ASP事务操作的三种方法
在开发Web应用时,无一例外地需要访问数据库,以完成对数据的查询、插入、更新、删除等操作。受应用逻辑的影响,有时需要将多条数据库操作指令组成一个工作单元(事务)。在数据库中,所谓事务是指一组逻辑操作单元,它使数据从一种状态变换到另一种状态。为确保数据库中数据的一致性,应当用离散的成组的逻辑单元操作数据:当它全部完成时,数据的一致性可以保持;而当单元中的一部分操作失败时,整个事务会被全部忽略,所有从转载 2008-11-14 09:13:00 · 214 阅读 · 0 评论