java代码实例,ASP操作XML文件的完整实例代码
复制代码 代码如下:% '---------------------------------------------------------------- '程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 '入口参数: 无 '出口参数: 无 '------------------------------------------------ '函数名字：ConnectX... [阅读全文]
数据库操作类,ASP操作数据库的类
今天俺在这裡给大家提供一种数据库操作的思路，这些代码是俺在长期的ASP应用中不断完成和修正的，也已经用它完成了很多项目了，应该说直接拿去用是没有问题的。当然本人能力也有限，希望大家一起来讨论。 说明：此帖代码均是VBScript版本。另外最好你对手写ASP已经有一定的基础。 先简单介绍一下俺这个类的一些特点： 可同时操作多个不同类型的数据库。 完全不用考虑数据类型的差别，再也不用想字符型字段加不加... [阅读全文]
asp代码,asp中让function同时返回多个值的代码
复制代码 代码如下:% call getMyNumber(aa,bb,cc) response.write aa & " " & bb & "br /" & cc function getMyNumber(byref aa,byref bb,byref cc) aa=3 bb=4 cc =10 end function % ... [阅读全文]
asp源程序,用ASP创建日志文件(附源程序)
这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端!--#Include File="LogFile.asp"--当有人来访问你的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不写入文件 File: LogFile.asp 复制代码 代码如下:% Dim ValidEntry ' Log variable ... [阅读全文]
asp数据库备份,ASP备份SQL Server数据库改进版
复制代码 代码如下:form method="post" name="myform" action="?action=backupdatabase" 选择操作：INPUT TYPE="radio" NAME="act" id="act_backup"value="backup"label for=act_backup备份/label INPUT TYPE="radio" NAME="act" id... [阅读全文]
java代码实例,ASP处理多关键词查询实例代码
程序代码： 复制代码 代码如下:'关键字的搜索 str="select * from tableName where id4" if srhKey"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)"" then redim preserve keystrArr... [阅读全文]
程序自动运行代码,让ASP程序自动运行的代码
这要用到计划任务，首先假定你这个程序的地址为“http://1.0.0.8/a.asp”，那么你编辑如下内容： 复制代码 代码如下:Dim IE Set IE = CreateObject("InternetExplorer.Application") ie.navigate("http://1.0.0.8/a.asp") ie.visible=1 Set IE = Nothing 存储成一个vb... [阅读全文]
如何提高工作效率,提高ASP页面执行效率的方法分析
这些大都是与硬件相关。其实在软件上，好的程序设计的方法和正确的参数配置也可以提高程序的性能，有时 在同等情况下只要改变一个参数，程序执行效率就能大大提高。本文就试着在这方面做些探索。 一.影响性能的因素 ASP程序运行的性能主要决定于以下2个大方面： 1.HTML页面的执行效率 2.反应时间，其中反应时间主要受制于下面要素： (1).ASP页面的执行效率 (2).数据库因素 下面我们就来详细讨论... [阅读全文]
jsp生成验证码,asp无组件生成验证码 GIF图片格式
复制代码 代码如下:% Option Explicit ' 显示声明 Class Com_GifCode_Class ''''''''''''''''''''''''''''''''''''''''''''' ' Author: Layen [email protected] 84815733(QQ) ' Thanks: Laomi, Laomiao, NetRube ' 2006-01-02 ''... [阅读全文]
sql注入漏洞,asp终极防范SQL注入漏洞
下面给出4个函数，足够你抵挡一切SQL注入漏洞！读懂代码，你就能融会贯通。 注意要对所有的request对象进行过滤：包括 request.cookie, request.ServerVariables 等等容易被忽视的对象： 复制代码 代码如下:function killn(byval s1) '过滤数值型参数 if not isnumeric(s1) then killn=0 else if ... [阅读全文]
静态网页模板,asp简单生成静态的方法（模板标签替换）
CreateHtml所有文章生成，好用资源大 第一种方法：复制代码 代码如下:'开始HTML生成方式 Set Rs=Server.Createobject("Adodb.Recordset") Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Or... [阅读全文]
常用正则表达式,asp采集HTML内容常用代码，详讲正则采集
先说一下采集原理： 采集程序的主要步骤如下： 一、获取被采集的页面的内容 二、从获取代码中提取所有用的数据 一、获取被采集的页面的内容 我目前所掌握的ASP常用获取被采集的页面的内容方法： 1、用serverXMLHTTP组件获取数据 复制代码 代码如下:Function GetBody(weburl) '创建对象 Dim ObjXMLHTTP Set ObjXMLHTTP=Server.Crea... [阅读全文]
正则表达式详解,asp正则表达式使用详解
复制代码 代码如下:Dim re Set re = new RegExp '创建RegExp实例 re.Pattern = "ab+c" '定义正则表达式文字，你可以在这里替换正则表达式 Dim myString myString = "abcefg" '定义要匹配的字符串，可以进行替换 Response.write(re.Execute(myString)(0)) '进行匹配测试，并写出结果 复... [阅读全文]
sql存储过程,用SQL批量插入数据的存储过程
循环插入： 复制代码 代码如下:DECLARE @MyCounter INT SET @MyCounter = 0 /*设置变量*/ WHILE (@MyCounter 2) /*设置循环次数*/ BEGIN WAITFOR DELAY '000:00:10' /*延迟时间10秒*/ INSERT INTO time_by_day (time_id, the_date, the_year, mo... [阅读全文]
SmartHTTP 简易HttpRequest类（ASP）
最简单的调用方法： response.write SmartHttp("http://www.baidu.com/").send().gettext() 复杂调用 set myhttp = SmartHttp("http://www.baidu.com/s","GET") myhttp.dataset.append "wd","smarthttp" myhttp.send() response.w... [阅读全文]
ajax跨域,Ajax跨域代理访问网络资源的实现代码
smart.asp复制代码 代码如下:script language="jscript" runat="server" /* 在VBS里面的调用方法 dim myhttp set myhttp = SmartHttp(url,method,data); //三个参数均可选 属性： url：String，请求的URL地址 method：String，请求的方法 data：String，请求的数据 c... [阅读全文]
为SWFUpload增加ASP版本的上传处理程序
但也许是随着asp的逐渐淡出web开发，官方仅提供了.net、php等版本的上传处理程序，对于asp开发者来说则需要自行处理服务器端的数据接收。 刚接触此组件时就被它功能强大与灵活方便吸引，由于当时项目采用asp开发，百度一番后发现并无好用的asp上传处理程序（现在有很多啦^^），看来只能自己研究开发啦，最初采用处理普通上传的方法来截取文件的数据，几经测试发现并不能有效接收组件传递过来的文件数据，... [阅读全文]
webshell,asp木马代码解密的随机加密webshell
随机加密webshell，解密还不错，应当免杀 加密源码 复制代码 代码如下:%@ LANGUAGE = VBScript.Encode % %#@~^3A4CAA==@#@& jdDhl/k'r1v2FX!ZFE~,PP,~P,@#@&sHC:'r随机加密 J~P~~@#@&jkDnj"SxE4YY2lJzAhS 4l^0+MRmK:r~P,P~P,P~@#@&ZWazDbotDxEbUn木... [阅读全文]
获取旺旺代码,asp中获取内容中所有图片与获取内容中第一个图片的代码
复制代码 代码如下:'===================================== '获取内容中所有图片 '===================================== Function Get_ImgSrc(ByVal t0) Dim t1,Regs,Matches,Match t1="" IF Not(IsNull(t0) Or Len(t0)=0) Then Se... [阅读全文]
byref,Asp中通过简单的例子理解下ByVal和ByRef的用法
文件名称: ByVal.asp ByRef.asp 具体代码: %Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(ByVal T)T=T+1End subcall TestMain()% %Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AE... [阅读全文]
字符串函数,asp中常用的字符串安全处理函数集合（过滤特殊字符等）
复制代码 代码如下:'===================================== '转换内容，防止意外 '===================================== Function Content_Encode(ByVal t0) IF IsNull(t0) Or Len(t0)=0 Then Content_Encode="" Else Content_Enco... [阅读全文]
sdcms,asp中格式化HTML函数代码 SDCMS加强版
复制代码 代码如下:'============================== '格式化HTML，SDCMS加强版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Nohtml="" Exit Function End IF Dim Regs,Matches,Ma... [阅读全文]
文件夹后缀名,asp中文件与文件夹常用处理函数（文件后缀、创建文件等）
复制代码 代码如下:'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)2 Or Instr(t0,".")=0 Then Get_Filetxt=False:Exit Functio... [阅读全文]
当前页面的脚本,asp中获取当前页面的地址与参数的函数代码
复制代码 代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "http://" End If strTemp = strTemp & Req... [阅读全文]
服务器组件,asp中判断服务器是否安装了某种组件的函数
判断服务器是否安装了某种asp组件，比较常用的代码如下:复制代码 代码如下:% '功能:检查是否存在系统组件或组件是否安装成功 '参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.C... [阅读全文]
jmail组件,asp空间判断jmail组件是否安装或支持的代码
首先，必须有错误继续进行的声明On Error Resume Next 然后尝试简历jmail实例： Dim JMail Set JMail=Server.CreateObject("JMail.Message") 对实例做出判断，如果组件没有安装成功，则没有创建实例： If JMail Is Nothing Then Response.Write "不支持" Else Response.Writ... [阅读全文]
ASP的URLDecode函数URLEncode解码函数
下面的代码是从kesion系统扒下的，确实不错，支持utf8格式。复制代码 代码如下:'================================================ '函数名：URLDecode '作 用：URL解码 '================================================ Function URLDecode(ByVal urlcod... [阅读全文]
execute,ASP中使用Set ors=oConn.Execute（）时获取记录数的方法
复制代码 代码如下:% Dim oConn, ors, aRows Dim i,j Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/newasp.resx") Set ors=... [阅读全文]
ASP同一站点下gb2312和utf-8页面传递参数乱码的终极解决方法
①.页面文件使用正确的编码，gb2312使用ANSI，utf-8使用utf-8； ②.ASP代码中设置正确的CODEPAGE，gb2312使用936，utf-8使用65001； ③.HTML代码中设置正确的charset，gb2312使用gb2312，utf-8使用utf-8； ④.将传递的参数值使用js的escape函数进行编码； 示例代码 t1.asp(ANSI编码)： 复制代码 代码如下:%... [阅读全文]
个位数字,获取一个数字的个位、十位、百位的函数代码
复制代码 代码如下:Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," '余数 num = num \ 10 '整除 Next NumberSplit=Left(NumberSplit,Len(NumberSplit)-... [阅读全文]
