无风的港湾 » ASP

开源软件的盈利模式

江小邪 — Wed, 29 Jun 2011 05:48:56 +0000

盈利模式之一：多种产品线

在这种模式中，利用开源软件为直接产生收入的专有软件来创造或维持一种市场地位。例如，开放源代码的客户端软件带动了服务器软件的销售，或者借用开源版本带动商业许可版本的产品销售。这种模式应用的比较普遍。如 MySQL 产品就同时推出面向个人和企业的两种版本，即开源版本和专业版本，分别采用不同的授权方式。开源版本完全免费以便更好的推广，而从专业版的许可销售和支持服务获得收入。再如 Redhat 自 Redhat Linux 9.0 后将原桌面操作系统转为 Fedora 项目，借 Fedora Core Linux 在开源社区的声望而促进 Redhat Enterprise Linux AS/ES/WS 服务器产品线的销售。

盈利模式之二：技术服务型

在这种模式中，开放源代码软件采用了一种全新的市场定位，并非面向产品，而是针对技术服务。JBoss就是这种模式的典型代表。JBoss 应用服务器完全免费，而通过提供技术文档、培训、二次开发支持等技术服务而获得收入。

盈利模式之三：应用服务托管（ASP）

这种模式适用于基于开源软件的应用服务供应商（ASP）。

例如，PHP Live！就是一种构架于 PHP、MySQL 之上的开源软件，它可为企业用户提供实时交谈服务。目前已经有数十家公开提供 PHP Live！托管服务的应用服务提供商。

盈利模式之四：软、硬件一体化

这种模式是针对硬件制造商的。随着竞争的普及，市场压力迫使硬件公司开发并维护软件，但是软件本身却并不是利润中心，因而采用开源软件。这种模式为大型公司广泛采纳，比如 IBM HP 等服务器供应商巨头，通过捆绑免费的 Linux 操作系统销售硬件服务器。SUN 公司近期将其 Solaris 操作系统开放源码，以确保服务器硬件的销售收入，也是这种模式的体现。

盈利模式之五：附属品

在这种模式中，出售开放源代码的附加产品。比如在低端市场，出售杯子和T恤衫等；在高端市场上，出售专业编辑出版的文档和书籍。O’Reilly集团是销售开源软件附加产品公司的典型案例，他出版了很多优秀的开放源代码软件的参考资料。O’Reilly实际上雇用和支持了一些著名的开放源代码黑客（例如Larry Wall和Brain Behlendorf），并以此提高它在市场上的声望。

盈利模式之六：品牌战略、服务致上

在这种模式中，开源公司通过开源软件先天的传播优势，以极低的成本建立和传播品牌。并通过向用户提供产品相关的服务来获得回报。康比尔公司的 Compiere ERP & CRM 软件是这种模式的典型案例。康比尔公司开发了开源的 ERP & CRM 软件，由于其产品优秀，很快便获得了北美、欧洲和亚洲中小企业用户的认可，Compiere 品牌也因此迅速地传播到了世界各地，在企业管理软件市场已经成为全球知名品牌。

盈利模式之七：市场策略

这种模式，是一种快速抢占市场的营销策略，主要是为以后增强版产品的销售打下基础。这种情形的案例有很多。比如，微软宣称部分的公开 Office 的源代码，就是执行这种策略。另一个案例则是CRM 领域的新星 SugarCRM，这款由速加科技开发的开源版本从2004年上半年公开下载后广为传播，为在9月推出的盒装专业版套件做好口碑上的准备。

开源软件的经营模式多种多样，随着开源软件的发展，会有更多的盈利模式应运而生。事实上，一家公司可能混合采用其中的几种盈利模式，比如康比尔公司不仅采用了第六种品牌策略，同时也采用了第二种提供技术服务的方式。在开源软件大潮的冲击之下，包括微软在内的商业软件公司，也开始认可开源软件”软件成为服务”的本质。微软支持的金牌合作伙伴已经提供包括 Exchange Server 2003、SharePoint Server 2003 等在内的托管服务，如 ASP-One.com 每月每用户起价1美元的 SharePoint Server 2003 租赁服务和全包价9.95美元每月的Exchange Server 2003 租赁服务。在欧洲和亚太地区各国政府的压力下，微软被迫开放Windows 和Office 的部分源代码，以改善政府的信任度，赢得庞大的政府采购订单。开源软件的商业运动正方兴未艾。这是否会对传统的商业模式构成致命一击？开源软件在走向成熟的过程中，企业用户和政府用户由怀疑上升到愿意尝试，并最终形成了信任。开源软件已经成为软件业未来发展的重要趋势。正如 Navica 公司 CEO 本纳德·高登所说，”短短两三年间，任何人在选择任何企业软件之时，都开始考虑一个问题：是否有开源软件可作替代？”

***老文章，不知道原文出处

ASP防注入新方式，希望对大家是有用的

江小邪 — Wed, 28 Jul 2010 02:00:27 +0000

最近我的网站经常把js脚本注入到数据，清除了又来。先后在网上找了很多的方法，还是没有用的，十分恼火。

首先先告诉大家一个批量清除代码的sql语句。

update 表名 set 字段=replace(字段,’script src=http://3b3.org/c.js>
1、分析那些无聊的人，或者有些病态的人究竟做了些什么。

通过iis的日志或者microsoft urlscan 日志查看，在一些通过id查询数据库内容的时候后面被人加了一段很长的字符窜。

%%3B%%44%%65%%43%%4C%%61%%52%%45%%类似这样的字符窜，一定是其他的方式编码

首先我们先用工具分析下如此之长的字符窜究竟包含了些什么内容。

通过批量替换工具把%%全部替换成空，然后把得到的字符串通过其他的转码工具，转成字符窜。

;DeCLaRE @S NvArCHaR(4000);SeT @S=CaSt(0×45这里代码去掉了06F007200 aS NvArChAR(4000));ExEc(@S);–

就是一段与通过id查询数据库同时执行的sql，就给数据库某些表的字段加入了js病毒连接。

2、所以我们的原来的防sql注入的字符串就需要升级了。

如果过滤16进制

; 对应 3B

DeCLaRE 对应 4465434C615245

@ 对应 40

NvArCHaR 对应 4E76417243486152

set 对应 536554

CaSt 对应 43615374

as 对应 6153

exec 对应 45784563

- 对应 2D

把16进制的代码用|隔开放到injdata 里面

injdata = “3B|2D|’|;|and|exec|insert|select|delete%20from|update|count|”

然后自己测试下，程序是否拦击了这些16进制的代码，本人测试过是可以拦击的，如果不加入这些是不拦击的

照样可以注入到数据库。

如何删除删不掉的”PRN.asp:.jpg”

江小邪 — Wed, 28 Jul 2010 01:59:36 +0000

一个用户的网站被挂马很多以prn.开头的文件…这个文件其实是windows禁止建立的..但是可以在dos建立

所以在dos下用更改属性结果不让改

然后想恢复权限不让恢复，网站的跟目录被加了几个文件，怎么删也删不掉，

prn.gupiao.asp

prn.liuhe.asp

com1.shouji.asp

或是COM2，COM8等文件主，

第一步：打开工具>文件夹选项>查看>有一项为”隐藏受保护的操作系统文件(推荐)”,去掉其前边的钩,选中”显示所有文件和文件夹”

第二步：建立一个del.bat的文件把以下代码黏贴进去…

DEL /F /A /Q \\?\%1

RD /S /Q \\?\%1
然后要删那个文件就把那个文件拖进去即可….

但是又遇到问题了…有一个顽固的…PRN.asp;.jpg 拖进去也删不掉….

不过没问题这个也可以删…先把这个文件的文件夹里的其他的文件备份…

然后把文件夹拖过去…^_^ 删了吧…

然后把备份的文件拷回去 ok了

AJAX的各种控件和类库

江小邪 — Sun, 25 Jul 2010 16:49:49 +0000

Ajax控件和类库现在真的太多了，不知不觉中增加了Ajax的神秘性和复杂性，看到版内很多人为此费解和伤神，决定发此贴谈谈本人对Ajax的观点，希望能让大家对Ajax有一个本质的认识。

　　观点一：Ajax和服务器端技术毫不相关

　　严格的说，与传统web开发相比，Ajax是完完全全的客户端技术。由于很多控件封装了客户端和服务器端的通信过程，因此很多问题也因通信而起。事实上，不论何种Ajax技术，服务器端都是返回的一个纯文本流，再由客户端来处理这个文本。这段文本可以是xml格式，也可以是一个Html片段，也可以是一段JavaScript脚本，或者仅是一个字符串。服务器端仅仅是作为一个数据接口，客户端使用XMLHttpRequest对象来请求这个页面，服务器端在页面内写入结果文本，这个过程和普通的web开发没有任何区别。所不同的只是，客户端在异步获取结果后，不是直接显示在页面，而是由客户端的Javascript脚本处理后再显示在页面。至于各种控件所谓的能返回DataSet对象，Date对象，或者其他的数据类型，都是封装了这个处理过程的结果。

　　观点二：DOM模型是Ajax最本质的技术

　　之所以没有把XMLHttpRequest列为最本质的技术，因为本人觉得它实在是太简单了，它只是可以让浏览器在后台请求一个页面，并将其内容交给JavaScript处理。真正的核心应该是：DOM模型，即文档对象模型。在DOM模型里，Html标记都被认为是一个对象，例如：div对象，table对象等等。DOM模型就规定了这些对象所具有的属性、方法和事件。通过这些性质，可以对一个已经显示于浏览器的页面进行内容的修改，例如增加节点、修改节点位置，删除节点等等。而不仅仅是一个innerHTML属性这么简单，虽然这是一个很有用的属性。

　　观点三：在使用Ajax控件前理解它们的实现

　　使用Ajax控件的确可以提高效率，但如果你空中楼阁般使用控件，那就得不偿失了。从一个控件换到另外一个控件又会有一个漫长的学习曲线。所以应该从底层了解其，况且Ajax实在不是什么高深的技术。其实任何东西的最底层其实都是简单的，但如果封装了这些底层的东西，事情会变得复杂和难以理解。以Asp.net为例，它的定制特性可以使得只要在方法前加上[ajax method]类似这样的标志就可以称为一个异步方法，相信这使得Asp.net的Ajax开发显得更加“高效”或者是“神秘”，而更多的事情则被封装了。同样记住一条，任何对服务器端的请求仅仅是返回纯文本，我们不一定要依赖于封装好的处理过程，而完全可以自己来实现。

　　观点四：学好JavaScript

　　在大多数人看来，JavaScript总不是那么一种正规的语言，随便copy一段就碰巧能运行，学过c之类的人，一看也能看懂，而且在浏览器中常常有脚本错误提示，所以潜意识觉得总不能付之以大任。事实上，要学好Ajax，这就完全是一种错误的看法。javascript作为一种脚本语言，其语法的确不是很严格，但并不妨碍其完成诸多复杂的任务，没有JavaScript，就没有Ajax。所以本人强烈建议，学Ajax前，一定要好好研究一番JavaScript，一般来讲，如果能顺利看懂prototype框架的代码（如：prototype-1.3.1.js），你的JavaScript水平就基本过关了。同时对DOM模型也可以算有一个基本的了解。

　　观点五：Ajax点缀：CSS

　　用JavaScript控制CSS其实很简单，基本上每个DOM对象都有一个style对象，只要把css属性里的”-”去掉，并让随后的字母变为大写就可以作为属性使用了，例如：element.style.backgroundColor=”#f00″;在css是：选择符 {background-color:#f00}

　　一口气说这么多，希望对大家有点用处。

了解Ajax中的Get和Post

江小邪 — Sun, 25 Jul 2010 16:45:02 +0000

Get方式:

作用:可传送简单数据
大小:url最大长度是2083 bytes,可以用于GET传递数据的长度是2048 bytes
包含体:数据追加到url中发送,也就是http的header传送

Post方式:

作用:可传送简单复杂数据
大小:web.config里限制
包含体:数据在http请求的实体内容里传送

Ajax用Post模式传送数据.需注意：

1.设置header的Context-Type为application/x-www-form-urlencode确保服务器知道实体中有参数变量.通常使用XmlHttpRequest对象的SetRequestHeader(“Context-Type”,”application/x-www-form-urlencoded;”)
2.参数是名/值一一对应的键值对,每对值用&号隔开.如 name=abc&sex=man&age=18.
3.参数在Send(参数)方法中发送
4.服务器端请求参数区分Get与Post.例如asp.net中以Request.Form["name"]对实体中的参数请求.这时url参数请求Request.QueryString["name"]将引发异常

<javascript language="javascript>
function StateEvent()
{
if(XmlHttpObject.readyState == 4)
{
if(XmlHttpObject.status == 200)
{
//code
}
}
}

function CreateXmlHttp()
{
if(window.ActiveXObject)
{
return new ActiveXObject(“Microsoft.XMLHTTP”);
}
else if (window.XMLHttpRequest)
{
return new XmlHttpRequest();
}
}

function Start()
{
var ParamString = “name=abc&sex=man&age=18″;
var XmlHttpObject = CreateXmlHttp();
XmlHttpObject.onreadystatechange = StateEvent;
XmlHttpObject.open(“post”,”test.aspx”,true);
XmlHttpObject.setRequestHeader(“Content-Type”,”application/x-www-form-urlencoded;”); //设置服务器响应请求体参数
XmlHttpObject.send(ParamString);
}

nginx 通过user-agent判断手机终端

江小邪 — Sat, 22 May 2010 21:12:45 +0000

user-agent 收集：

http://www.developershome.com/wap/detection/detection.asp?page=userAgentHeader

http://search.cpan.org/~cmanley/Mobile-UserAgent-1.05/lib/Mobile/UserAgent.pm

http://www.zytrax.com/tech/web/mobile_ids.html

http://en.wikipedia.org/wiki/List_of_user_agents_for_mobile_phones

nginx

location = / {

root /var/www/path;
if ($http_user_agent ~* “Nokia”) { rewrite . /index.html break; }

if ($http_user_agent ~* “Mobile”) { rewrite . /index.html break; }

if ($http_user_agent ~* “SAMSUNG”) { rewrite . /index.html break; } }

if ($http_user_agent ~* “SonyEricsson”) { rewrite . /index.html break; }
if ($http_user_agent ~* “MOT”) { rewrite . /index.html break; } }
if ($http_user_agent ~* “BlackBerry”) { rewrite . /index.html break; }
if ($http_user_agent ~* “LG”) { rewrite . /index.html break; } }
if ($http_user_agent ~* “HTC”) { rewrite . /index.html break; }

if ($http_user_agent ~* “J2ME”) { rewrite . /index.html break; }
if ($http_user_agent ~* “Opera Mini”) { rewrite . /index.html break; } }
index index.html;
}

用正则解析图片地址,并利用XMLHTTP组件将其保存

江小邪 — Sat, 29 Dec 2007 19:49:54 +0000

现在基于WEB页的HTML的编辑器在新闻系统，文章系统中用得越来越广，一个网页一粘就可以保持原来的样式，同时图片也可以在这个页中保持。但是在使用过程中，如果所粘贴页中的图片被删除，就会在自己的页面上留下一个大大的“X”，影响美观。以前只好把这个图片保存下来，再重新上传到服务器上，这样实在麻烦。能不能让服务器自动去下载图片保存在服务器并且替换页面上的链接？答案是肯定的。
要实现这个功能需要经过三个步骤：
一，取得原页中的图片的地址。方法很多，可以用分割字符串，也可以用正则匹配。实践证明用正则匹配最为简单。经过分析图片的地址都保存在标签中。我们可以先取得所有这个标签。过程如下：
Set objRegExp = New Regexp'设置配置对象
objRegExp.IgnoreCase = True’忽略大小写
objRegExp.Global = True’设置为全文搜索
objRegExp.Pattern = ""'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
strs=trim(str)
Set Matches =objRegExp.Execute(strs)’开始执行配置
For Each Match in Matches
RetStr = RetStr &getimgs( Match.Value )’执行第二轮的匹配
Next

所有的图片在里面都是这样的src="http://图片的地址"，所以可以这样来取得确切的图片地址：
function getimgs(str)
getimgs=""
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "http://.+?"""’取出里面的地址
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&"||"&left(Match1.Value,len(Match1.Value)-1)’把里面的地址串起来备用
next
end function

取得了所有的图片的地址，我们就可以进行第二步的操作了。
二，下载图片并保存在服务器上。这个又可以分为两个步骤：一个是取得图片的内容，另一个是保存在服务器上。取得图片的内容是通过下面的函数来实现的：
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")‘使用xmlhttp的方法来获得图片的内容
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
取得了图片的内容要保存，给人一种感觉是用FSO来作就可以了，但实际上不行，这样保存程序就会出错，因为FSO不支持流式的文件，所以我们要调用另一个对象：ADO.STREM。具体的过程如下：
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)'取得图片的具休内容的过程
Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO 2.5以上版本
objStream.Type =1'以二进制模式打开
objStream.Open
objstream.write imgs'将字符串内容写入缓冲
objstream.SaveToFile server.mappath(tofile),2'-将缓冲的内容写入文件
objstream.Close()'关闭对象
set objstream=nothing
end function
所以只要用一个循环来把刚才取得的地址中的图片全部保存下来，具体过程如下：
arrimg=split(retstr,"||")'分割字串，取得里面地址列表
allimg=""
newimg=""
for i=1 to ubound(arrimg)
if arrimg(i)<>"" and instr(allimg,arrimg(i))<1 then'看这个图片是否已经下载过
fname=baseurl&cstr(i&mid(arrimg(i),instrrev(arrimg(i),".")))
saveimage(arrimg(i),fname)‘保存地址的函数，过程见上面
allimg=allimg&"||"&arrimg(i)'把保存下来的图片的地址串回起来，以确定要替换的地址
newimg=newimg&"||"&fname'把本地的地址串回起来
end if
next
第三步就是替换原来的地址了。具体的过程就是下面了：
arrnew=split(newimg,"||")'取得原来的图片地址列表
arrall=split(allimg,"||")'取得已经保存下来的图片的地址列表
for i=1 to ubound(arrnew)'执行循环替换原来的地址
strs=replace(strs,arrall(i),arrnew(i))
next
cctv=strs
讲到这里，这个函数的基本过程就是这样了，当然可以对它进行改造就可以实现更多的功能，如：加上图片大小的限制，加上对本地机上的图片下载的限制，以免造成重复下载图片。同时也应该看到这个函数的不足之处是只能处理静态的图片文件，不能适用程序生成的图片。

在asp文件中访问flash详细信息

江小邪 — Sat, 29 Dec 2007 19:44:00 +0000

Class SWFDump

dim header
dim RECTdata
dim nBits
dim mversion
dim mfilelen
dim mxMin
dim mxMax
dim myMin
dim myMax
dim mheigt
dim mwidth
dim mframerate
dim mframecount

public Sub Class_Initialize()

End Sub

public Sub Class_Terminate()

End Sub

public Function ReadHeader (filename)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f = fso.OpenTextFile(filename, ForReading)
ReadHeader = f.Read(21)
End Function

public Function ToBin(inNumber, OutLenStr )
Dim binary
binary = “”
do while inNumber >= 1
binary = binary & inNumber mod 2
inNumber = inNumber \ 2
loop
binary = binary & String(OutLenStr – len(binary), “0″)
ToBin = StrReverse(binary)
End Function

public Function Bin2Decimal(inBin)
Dim counter
Dim temp
Dim Value
inBin = StrReverse(inBin)
temp = 0
For counter = 1 to Len(inBin)
If counter = 1 then
Value = 1
Else
Value = Value * 2
End If
temp = temp + mid(inBin, counter ,1) * Value
Next
Bin2Decimal = temp
End Function

Public Function SWFDump(fileName)

header = ReadHeader (fileName)
mversion = asc(mid(header,4,1))
mfilelen = asc(mid(header,5,1))
mfilelen = mfilelen + asc(mid(header,6,1)) * 256
mfilelen = mfilelen + asc(mid(header,7,1)) * 256 * 256
mfilelen = mfilelen + asc(mid(header,8,1)) * 256 * 256 * 256

RECTdata = ToBin(asc(mid(header,9,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,10,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,11,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,12,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,13,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,14,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,15,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,16,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,17,1)),8)

nBits = Mid(RECTdata,1,5)
nBits = Bin2Decimal(nBits)

mxMin = Bin2Decimal(Mid(RECTdata,6,nBits))
mxMax = Bin2Decimal(Mid(RECTdata,6 + nBits * 1 ,nBits))
myMin = Bin2Decimal(Mid(RECTdata,6 + nBits * 2 ,nBits))
myMax = Bin2Decimal(Mid(RECTdata,6 + nBits * 3 ,nBits))

mheigt = (myMax – myMin) / 20
mwidth = (mxMax – mxMin) / 20

mframerate = asc(mid(header,18,1))

mframecount = asc(mid(header,19,1))
mframecount = mframecount + asc(mid(header,20,1)) * 256

End Function

Public Property Get Heigt()
Heigt = mheigt
End Property

Public Property Get Width()
Width = mwidth
End Property

Public Property Get Version()
Version = mversion
End Property

Public Property Get FileLen()
FileLen = mfilelen
End Property

Public Property Get xMin()
xMin = mxMin
End Property

Public Property Get xMax()
xMax = mxMax
End Property

Public Property Get yMin()
yMin = myMin
End Property

Public Property Get yMax()
yMax = myMax
End Property

Public Property Get Framerate()
Framerate = mframerate
End Property

Public Property Get Framecount()
Framecount = mframecount
End Property
End Class
%>

做成包含文件swfheaderdump.inc
调用：

<%
' Pass the SWF name in querystring this way
' swfdump.asp?swf=yourmovie.swf

set myObj = new swfdump
myObj.SWFDump (Server.MapPath(request(“swf”)))

Response.Write “Heigt (pixel) = ” & myObj.Heigt & “
“
Response.Write “Width (pixel) = ” & myObj.Width & “
“
Response.Write “Version = ” & myObj.Version & “
“
Response.Write “FileLen (bytes) = ” & myObj.FileLen & “
“
Response.Write “xMin (twips) = ” & myObj.xMin & “
“
Response.Write “xMax (twips) = ” & myObj.xMax & “
“
Response.Write “yMin (twips) = ” & myObj.yMin & “
“
Response.Write “yMax (twips) = ” & myObj.yMax & “
“
Response.Write “FrameRate = ” & myObj.FrameRate & “
“
Response.Write “FrameCount = ” & myObj.FrameCount & “
“
%>

ASP初学者常犯的几个错误

江小邪 — Sat, 29 Dec 2007 19:41:34 +0000

1.记录集关闭之前再次打开:
————————————
sql=”select * from test”
rs.open sql,conn,1,1
if not rs.eof then
dim myName
myName=rs(“name”)
end if
sql=”select * from myBook”
rs.open sql,conn,1,1
————————————-
解决:在第二次rs.open之前先关闭 rs.close
或
set rs1=server.createobject
rs1.open sql,conn,1,1

2,用SQL关键字做表名或字段名
————————————-
sql=”select * from user”
rs.open sql,conn,1,1
————————————-
user为sql关键字
解决:改为
sql=”select * from [user]“

3,用锁定方式去进行update
————————————-
sql=”select * from [user]“
rs.open sql,conn,1,1
rs.addnew
或
rs(“userName”)=”aa”
rs.update
————————————-
当前记录集的打开方式为只读
解决:
改为
rs.open sql,conn,1,3

4,在查询语句中采用的对比字段值与字段类型不符
—————————————–
sql=”select * from [user] where id= ” & myID & ” “
rs.open sql,conn,1,1
—————————————–
假设表中设计ID为数字型，那么些时出错。
解决:
sql=”select * from [user] where id=” & myID

5,未检查变量值而出错
—————————————–
sql=”select * from [user] where id=” & myID
rs.open sql,conn,1,1
—————————————–
假设myID变量此时值为null,那么sql将成为
sql=”select * from [user] where id=”
解决:
在前面加上
if isnull(myID) then 出错提示

6,未检查变量值类型而出错
—————————————–
sql=”select * from [user] where id=” & myID
rs.open sql,conn,1,1
—————————————–
假设id为数字型,myID变量此时值不为null,但为字符，比如myID此时为”aa”
那么sql将成为
sql=”select * from [user] where id=aa”
解决:
在前面加上
if isnumeric(myID)=false then 出错提示

这也可以有效防止 sql injection 漏洞攻击。

7,由于数据库文件所在目录的NTFS权限而引起的不能更新。数据库或对象为只读”错误。
说明:
WIN2K系统延续了WINNT系统的NTFS权限。
对于系统中的文夹都有默认的安全设置。
而通过HTTP对WWW访问时的系统默认用户是 iusr_计算机名用户 ,它属于guest组。
当通过HTTP访问时，可以ASP或JSP，也或是PHP或.NET程序对数据进行修改操作：
比如：
当打开某一个文章时，程序设定，文章的阅读次数=原阅读次数+1
执行
conn.execute(“update arts set clicks=clicks+1 where id=n”)
语句时，如果 iusr_计算机名用户没有对数据库的写权限时，就会出错.
解决方法:
找到数据库所在目录
右键》属性》安全选项卡》设置 iusr_计算机名用户的写权限(当然，也可以是everyone)

一个新的JMail发送代码

江小邪 — Sat, 29 Dec 2007 19:36:40 +0000

该段代码涉及到JMail v4.3的大部分常用方法。
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用，也可以改成函数或过程。

<%
Dim JMail, contentId
Set JMail = Server.CreateObject(“JMail.Message”)

JMail.Charset = “gb2312″ ' 邮件字符集，默认为”US-ASCII”
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

' 发送者信息（可用变量方式赋值）
JMail.From = “test@5bay.cn” ' 发送者地址
JMail.FromName = “D.J.” ' 发送者姓名
JMail.Subject = “您在无风的港湾的资讯快递（请将编码设为简体中文(gb2312)）” ' 邮件主题

' 身份验证
JMail.MailServerUserName = “user” ' 身份验证的用户名
JMail.MailServerPassword = “password” ' 身份验证的密码

' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3

JMail.AddHeader “Originating-IP”, Request.ServerVariables(“REMOTE_ADDR”)

' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(email)

' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
contentId = JMail.AddAttachment (filename, True)

' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = “

点击这里[附件文件]将文件保存”

' 邮件主体（文本部分）
JMail.Body = “我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：http://music.liuxuan.com”

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send(“user:password@smtp.5bay.cn”)

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>

ASP提速技巧五则

江小邪 — Sat, 29 Dec 2007 19:33:51 +0000

今天我给大家讲一下如何提高ASP提速技巧的五则方法希望能对大家有所帮助！

技巧之一：提高使用Request集合的效率
　　访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。例如将代码写成下面的形式以加快脚本引擎处理速度：

strTitle=Request.Form(“Title”)
strFirstName=Request.Form(“FirstName”)　
strLastName=Request.Form(“LastName”)　
If Len(strTitle) Then strTitle=strTitle & ” “　
If strFirstName=”" Then strFullName=strTitle & ” ” & strLastName　
Elseif Len(strFirstName)=1 Then
strFullName=strTitle & strFirstName & “. ” & strLastName
Else
strFullName=strTitle & strFirstName & ” ” & strLastName　
End If

技巧之二：直接访问适当的集合

　　如果不是别无选择，否则不要使用strPage=Request(“page”)的这样的形式来获取参数，因为这将按顺序搜索全部的集合—QueryString、Form、Cookies、ClientCertificate、ServerVarible直到发现第一个匹配值的名称。这样做比直接访问适当的集合效率低，并且是不安全的，除非能绝对保证这个值不会出现在另外一个集合中。
例如，可能希望搜索满足客户请求的WEB服务器名称，这通过出现在每个查询中的Request.ServerVarables集合中寻找“SERVER_NAME”来实现。然而，假如其他的集合也包含名为“SERVER_NAME”的值（键名不区分大小写），当使用Request(“server_Name”)时，就会得到错误的结果。总而言之，应尽可能直接访问适当的集合。

技巧之三：在费时操作前使用Response.IsClientConnected属性

　　使用Response.IsClientConnected是观察用户是否仍连到服务器并正在载入ASP创建的网页的有用方式。如果用户断开连接或停止下载，我们就不用再浪费服务器的资源创建网页，因为缓冲区内容将被IIS丢弃。所以，对那些需要大量时间计算或资源使用较多的网页来说，值得在每一阶段都检查游览者是否已离线：

…… Code to create first part of the page
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
…… Code to create next part of page

技巧之四：优化ASP中的ADO操作

通常面言，数据构成了WEB站点的实际内容。所以，优化ADO操作以加速ASP代码执行，十分有用：
a. 仅选择所需的列：当打开ADO记录集时，除非需要获得所有的列，否则不应自动地使用表名（即SELECT*）。使用单独的列意味着将减少发送到服务器或从服务器取出的数据量。即使需要使用全部列，单独地命名每个列也会获得最佳的性能，因为服务器不必再解释这些列的名字。

b. 尽可能的使用存储过程。存储过程是预先编译的程序，含有一个已经准备好的执行计划，所以比SQL语句执行更快。

c. 使用适当的光标和锁定模式。如果所做的全部工作只是从记录集中读取数据，并将其显示在屏幕上，那么就使用缺省的只能前移、只读的记录集。ADO用来维护记录和锁定的细节的工作越少，执行的性能就越高。

d. 使用对象变量。当遍历记录集时一个肯定能提高性能的方法是使用对象变量指向集合中的成员。例如：

While Not RsGc.EOF
Response.Write “工程名称：” & RsGc(“GcMC”) & “(工程代码：” & RsGc(“GcCode”) & “) “　
RsGc.MoveNext
Wend

可以用改写为下面的代码以加快执行：

set GcMc=RsGc(“GcMc”)
set GcCode=RsGc(“GcCode”)　
While Not rsGc.EOF Response.Write “工程名称：” & GcMc & “(工程代码：” & GcCode & “)
” RsGc.MoveNext　
Wend

　　新的代码建立了对象变量的引用，所以可以使用对象变量而不是实际的变量，这意味着脚本引擎的工作减少了，因为在集合中进行索引的次数变少了。

技巧五：不要混用脚本引擎

　　我们知道，ASP页面中既可以使用VBScript，也可以使用JScript。但是在同一个页面上同时使用JScript和VBScript则是不可取的。因为服务器必须实例化并尝试缓存两个（而不是一个）脚本引擎，这在一定程度上增加了系统负担。因此，从性能上考虑，不应在同一页面中混用多种脚本引擎!

巧用ASP生成PDF文件

江小邪 — Sat, 29 Dec 2007 19:31:51 +0000

Adobe PDF格式已经变成很多机构和公司进行跨平台制表的通用媒体格式。尽管我不是这个产品的狂热痴迷者，却不得不接受这样一个事实：用这个格式产生一个协定可能会比用Word还要好。

由于在一家雇用公司工作，我已经把我们所有早期的软件写成能在Internet上运行，这样我们就能和小的子公司共享公用数据库了。然而我们遇到的最大的问题就是制表。当一个申请人坐在信息站里在线填写他们的就业申请时，我们如何取得当前的文档（或申请等）？由于我们做了大量工作来获取数据，我们还需要申请人手工填写一份申请。

我试了各种办法，但是看来都有一个很大的限制：

如果我能快速产生它，它就只能是一个HTML形式的衍生物，在打印时就会变得面目全非。如果设计的看起来美观一些，它就会变得很慢。这是由于我选择用RTF格式作为我的首选项，然后使用文件系统对象来完成基于模板的RTF文件，最后加入了我的信息。这个磁盘读写的过程会耗费很长时间。记住：我们这里不是在讨论列表数据或者一个Excel电子表格。我们是想让程序用我们自己的标志进行处理。

最后，我选择了Adobe（很像一句广告词？——译者）。我讨厌它的浏览器所以希望自己不会和它纠缠上，然而它的格式看起来很不错而且文件也不大。大部分用户都在系统里装上它，我们的客户也不例外。

因此我一直在寻找把数据从HTML表单传递到PDF文件的方法。我试过使用Adobe表单，但是它不能真正有效运行，然后还要统计如何合并数据库请求。这根本不是我想要的东西，我想直接把数据从我的HTML表单传递到数据库，然后产生数据信息到PDF文件里作为浏览或打印。
最终我在UseNet发现了线索。一个叫Jeremy Hunter的提交的一个链接包含了我准备在这里讲的很多东西——http://partners.adobe.com/asn/developer/acrosdk/forms.html。

首先必须在定义字段的工作站（不是服务器）上安装有Adobe完全版。这个是一个指向Adobe Forms Acrobat Toolkit的链接，由此开始一切就容易了。

第一、下载这个套装工具并把它解压缩到指定目录。

当你进行这一步操作时，你会发现所有源代码都在VB或VC++中。我们这里不打算关注它，但是如果你需要代码就在这里。

第二、注册你的DLL。

有两个DLL需要被复制到你的服务器上。一个在Visual Basic文件夹中叫fdfacx.dll，另一个在Visual C++文件夹中叫fdftk.dll。用regsvr32注册fdfacx.dll文件。我把这两个文件都放到c:winntsystem32下，并在当前路径下输入“regsvr32 fdftk.dll”。如果你遇到错误提示信息，请检查确认这两个文件确实在当前目录下，没有问题则进入下一步。

第三、建立表单。

我们将使用每个人对这个示范都很熟悉的表单。这在“http://www.irs.gov”随意可得并为我们提供足够的领域来展示我们能作的东西。

第四、定义Adobe表单字段。

在Adobe Acrobat中打开文档后选择表单工具，描述你的第一个表单字段（First Name）。

在你定义后它将让你命名，我这里命名为“FirstName”。注意这里有几个标准的附加格式选项，除了字体大小，我选择进行合法性检查和格式化我的ASP文档。由于这是一个快速演示，我选择跳过任何检查，但是我将在客户端的表单进行处理，并在传递变量前在服务端格式化ASP页面。

继续其他字段，每一个都要注意命名并可能格式化字体大小或属性。
在服务器上保存你的修改。

第五、编写ASP页面。

在开始这一步之前你要注意到FDF套装工具阐述的一个主要对象——“FDFApp.FDFApp”。它开放了许多方法，手册上概述了其他的可能方法。我们主要关心两个方法——fdfSetValue和fdfSetFile。接下来切入正题。

第六、没有必要成为PDF专家，这是我目前的建议。套装工具的用户指导概述了所有方法，看上去在这个入门介绍之外还有很多可能的方法。就像你所看到的一样，你可以很容易添加数据库命令来收集数据或向数据库记录数据。

ASP编程心得回放

江小邪 — Tue, 08 May 2007 18:43:49 +0000

　　学好一门编程语言有两个条件是必不可少的，一是理论与实践结合，在实际例程去验证书本上的理论能加深你对理论的理解；二是学会总结，把学习、运用中的心得体会记下来，当成一种经验或者教训加以提炼并在日后的应用中加以改进，一定能提高你对这门编程语言的认识。以下是笔者在学习与运用ASP编程中的两点经验，希望能对大家有所帮助。

　　ASP页面内VBScript和JScript的交互

　　ASP具备管理不同语言脚本程序的能力，能够自动调用合适的脚本引擎以解释脚本代码和执行内置函数。ASP开发环境提供了两种脚本引擎，即VBScript（缺省）和JScript。不过，开发者并没有被限制于只能使用这两种语言，只要能够提供合适的ActiveX脚本引擎就能使用任何脚本语言。

　　脚本语言的选择往往基于许多不同原因：它可能是开发者最为熟悉的语言，可能是对给定工程来说能够提供最多特色支持的，也有可能是最具效率的。不同的环境和要求使得我们在选择脚本语言时注重不同的因素，同时也使得我们在某些时候面临选定的脚本语言不能直接提供其它语言固有的函数这一问题，或某个脚本已经写成但用的却是另外一种脚本语言。

　　此时应该怎么办？是否需要用当前所用的脚本语言重写这些脚本？或者说，是否有可能在一种脚本语言中调用其它脚本语言的内置函数？本文要说明的就是在ASP应用中如何让VBScript脚本和JScript脚本交互以最大限度地获得两种脚本语言的特色支持。

　　一、VBScript和JScript的内置函数

　　在VBScript和JScript中，有大量的内置函数功能是相同或类似的。然而，在一种脚本语言中内置的函数并非总是在另外一种脚本语言中也有对应的函数。例如，VBScript提供了许多用于操作字符串和格式化数据的函数，这些函数在JScript中并不存在。这些函数包括StrReverse()、Filter()以及FormatCurrency()等。在另一方面，JScript所提供的用于管理数组、字符串编码等的函数在VBScript中也没有定义，如join()、reverse()、pow()、位操作、escape()和unescape()等。

　　那么，如果在JScript程序中需要一个VBscript函数该怎么办呢?

　　二、异种脚本的互相调用

　　如果需要在JScript脚本中调用一个VBScript中内置的函数，则应该写一个VBScript用户定义函数（在这里调用VBScript内置函数），然后在JScript脚本中象调用公用JScript函数一样调用这个用户定义函数。

　　例如，如果要调用的VBSCript内置函数是FormatCurrency()，则可以声明如下自定义函数：
程序代码

　< SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
　Function FormatValue(Value)
　 FormatValue = FormatCurrency(Value)
　End Function
　< /SCRIPT>　　接下来在JScript代码中就可以象普通JScript函数一样调用FormatValue()了。用类似的方法也可以实现VBScript代码调用JScript函数。

　　应用同样的规则，我们可以在任何脚本内调用任何用户定义函数。不过，从JScript脚本内调用一个不带参数的VBScript过程（Sub）时应略加注意，此时在JScript中应该象调用一个不带参数的JScript函数一样调用它，如用foo()调用VBScript Sub foo过程。

　　三、数据共享

　　在某些情形下混合运用VBScript和JScript函数是非常有用的，但在不同语言脚本之间共享数据也可能很有用。实现这种共享的方法很简单：不管使用的是什么语言，只要是在页面级声明的变量就可以任意引用。

　　对象的使用方法也相似，可以任意选用合适的语言读取、修改属性或调用对象的方法。当然给定对象的属性和方法是由创建该对象实例的语言所定义的。正如上例VBScript的过程调用，当从JScript中调用一个不带参数的VBScript对象的方法时，其调用方法也遵从JScript的调用规则，反之亦然。

　　四、数组管理

　　数组共享问题稍微复杂一点。虽然数组也象其它变量一样可以在不同语言脚本之间共享，但必须注意兼容方面的问题。

　　VBScript数组在JScript下可以用VBScript的符号引用，即用myArray(2)引用数组元素而不是JScript的数组元素引用符号myArray[2]。此外，还可以使用一个特殊的JScript对象——VBArray对象将VBScript数组转换为JScript数组。下面的代码从VBScript数组myVBArray创建JScript数组myJSArray：

程序代码
　var Temp = new VBArray(myVBArray)
　var myJSArray
　myJSArray = Temp.toArray()

　　上述代码首先创建一个临时的VBArray对象，然后使用它的toArray()方法将自己转换为JScript数组。此后就可以象普通JScript数组一样使用myJSArray，如myJSArray[1]。但应当注意的是，toArray()方法将把一个多维的VBArray转换为一维的JScript数组。

　　从VBScript中引用JScript数组更为复杂。虽然在VBScript中我们可以直接访问JScript数组相关的方法和属性，但没有直接访问JScript数组的单个元素的方法。也就是说，我们可以在VBScript脚本中读取JScript数组的长度属性，如下所示：
程序代码
　 x = myJSArray.length

　　但无法直接读取该数组的单个元素，下面的VBScript代码是不正确的：
程序代码
　　 x = myJSArray(3)

　　解决该问题的一个可行的方法是执行一个转换过程，如下面的代码所示，此处假定VBScript是缺省的脚本语言：

程序代码
< %
　　Dim Temp
　　Dim myVBArray
　　Temp = myJSArray.join(“, “)
　　myVBArray = Split(Temp, “, “)
%>

　　此处的JScript join()方法将数组myJSArray元素转换到一个以逗号为分割符的字符串，VBScript Split()函数将字符串转换为VBScript数组。注意这里我们是在VBScript环境下调用JScript的join方法。依照此例，我们可以通过自定义VBScript函数来模拟JScript的VBArray对象的toArray()方法以实现JScript数组到VBScript数组的转换。

用模板建立动态ASP页

　　对于模板，我想大家可能都有一些概念，在word中很多模板，设计好了大概的版面，你只要用你自己的话填充那些占位字符就好了。这儿的模板大概也就是这个意思，页面中相对稳定的部分固定下来，其他的部分根不同的情况在输入不同的内容。其实在DreamWeaver中也有模板的功能，不过那个静态的，只能手动填充内容，而这儿讲的是动态的自动的内容填充。

　　首先，我先来解释一下为什么要用到模板文件。有时候，模板能够带给你对网页功能和布局更为完整的概念。当你看到Word的模板格式之后，就知道最后版面是个什么样子的了，在这儿也是如此。例如，你可以保留ASP语句，而使用不同的模板来建立不同的页面风格。

　　这样，你就不用为每种不同风格的网页分别来写不同的ASP页面了，这显然可以为我们节省很多时间和精力。而且，模板文件能够让你更容易的浏览页面代码，不用担心ASP和HTML的混杂搞的你头昏脑胀。你可以只用把注意力集中在HTML上，而完全不用去管ASP了。再有就是，摸板很简单，你绝对很快就能搞懂搞定。在这篇文章中，将会用到一个数据库——一个用的很广泛的雇员表。包括雇员ID，姓名，照片，以及工作摘要和照片的注脚。下面是这个Access数据库的结构:

程序代码
文件名 – myDatabase.mdb
表名 – Employees
ID
自动计数(Autonumber)
FullName
文本 – 最多100个字符
PicURL
文本 – 最多255个字符
Duties
注释类型
PicCaption
文本 – 最多50个字符

　　一个很简单的数据库，是吧。当然你可以按要求来扩展它，那就是你自己的事了。我假设你已了解数据库的基本操作，这样我不用在这上面花太多的笔墨，其实这儿的代码都是很简单的，只要你知道一些基本的东西，就能把它看懂。建立了数据库之后，我们可以开始建立模板文件了。这个文件是每个页面的骨架。我没有用到表格，那样有些麻烦，而我很懒，而且，也不用加入,标签，因为那是要加在ASP页面中的。所以到最后，它的样子就是这样了：

程序代码
Full Name:
%name% < br>Description of duties:

%duties%

This picture was taken: %date%

Employee ID: %empID%

　　就是这样了！这就是一个简单的模板。把它存为template.tmp，在后面的ASP页面中将要引用到它。要注意的是：我们可以在模板中加入各种HTML标签，你完全可以在摸版中定义好网页的结构和样式，就像实际写一个网页一样，只是要把关键的地方标出来——注意到了那些%围着的东西了吗？那就是模板的精髓了。或许你已经注意到，那些%围着的是和数据库中的字段意义对应的。看看下面的ASP代码，是如何读入模板和数据库文件，把他们揉和在一起，然后输出我们想要的HTML页面。

　　这就是所有的代码了，很简单，不是吗？它所作的只是打开模板文件，按顺序读入每一行，然后用冲数据库中读入的实际的字段值来代替模版中那些%img%，%name%标记。而且，它还把在“Duties”字段内大段文本中的回车解释成HTML的回车，这样就不至于打乱整个的排版格式了。怎么样？轻松搞定吧。模板在某些应用上真的是可以发挥奇效，省时省力。理论上，你还可以修改这段代码，用FileSystemObject来读写文本，这样数据就不一定要存储在数据库中了。在一些应用中，比如即时的新闻发布，这样也许更为方便一些。

ASP脚本生成GUID的实现

江小邪 — Wed, 21 Mar 2007 19:31:08 +0000

　　全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。

　　GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中每个 x 是 0-9 或 a-f 范围内的一个十六进制的数字。例如：6F9619FF-8B86-D011-B42D-00C04FC964FF 即为有效的 GUID 值。

　　世界上的任何两台计算机都不会生成重复的 GUID 值。GUID 主要用于在拥有多个节点、多台计算机的网络或系统中，分配必须具有唯一性的标识符。在 Windows 平台上，GUID 应用非常广泛：注册表、类及接口标识、数据库、甚至自动生成的机器名、目录名等。

　　ASP生成GUDI的实现

　　<%

　　Dim objTypeLib

　　Set objTypeLib = CreateObject("Scriptlet.TypeLib")

　　Response.Write objTypeLib.Guid

　　%>

　　在本机及网络主机均测试通过。

ASP 动态包含文件

江小邪 — Fri, 09 Feb 2007 20:00:14 +0000

ASP 本身不支持动态包含文件，现在的动态包含是通过 FSO 把被包含的文件合并到主文件里再运行。以下也有把形如 include file="filename.asp" –> 的普通包含文件方式称作“传统引用”，用函数实现的动态包含文件称作“动态引用”。常见的程序如下：
Function include(filename)
Dim re,content,fso,f,aspStart,aspEnd

set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing

set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%\>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
set re=nothing
End Function

使用范例：include("youinc.asp")

以上范例引自 http://www.blueidea.com/tech/program/2003/101.asp

但这处函数在处理补包含的文件中还有包含文件时就不灵了。我在以上函数的基础上改进出来如下函数，在被包含文件中还有普通的包含文件也可正常运行。

Function includeconvert(oRegExp, strFilename, strBlock)
Dim incStart, incEnd, match, oMatches, str, code
'用提取ASP代码的相同方式提取出include 部分的文件名，其余部分原样输出
code = ""
incEnd = 1
incStart = InStr(incEnd,strBlock," Do While incStart>incEnd+12 '两个引用间距最小就是连续的–><–#，incStart是从incEnd+12的条件
str = Mid(strBlock,incEnd,incStart-incEnd-13)
str = Replace(str, """", """""") '把单个双引号换成两个双引号
str = Replace(str, VbCr, "")
str = Replace(str, VbLf, "")
str = Replace(str, VbCrLf, "")
code = code & VbCrLf & "Response.Write """ & str & """"
incEnd=InStr(incStart,strBlock,"–>")+3
oRegExp.pattern="(\w+)=""([^""]+)""" '匹配 file="filename.ext" 或 virtual="virtualname.ext"，捕捉类型及文件名两个子串
Set oMatches = oRegExp.Execute(Mid(strBlock,incStart,incEnd-incStart-3))
Set match = oMatches(0) '确定只有一组捕捉时，要得到这一组匹配的子串，可以这样做，省去用 For Each match In oMatches …… Next
code = code & include(Mid(strFilename, 1, InStrRev(strFilename, "/")) & match.SubMatches(1)) 'Mid(filename, 1, InStrRev(filename, "/")) 是在被引用的子文件名有路径时,把路径提取出来,加在子文件中传统引用的文件名前面,以找到正确的打开文件路径,因为动态引用时的文件路径是相对主文件而言的。要第二个匹配子串用SubMatches(1)
incStart = InStr(incEnd,strBlock," Loop
str = Mid(strBlock,incEnd)
str = Replace(str, """", """""") '把单个双引号换成两个双引号
str = Replace(str, VbCr, "")
str = Replace(str, VbLf, "")
str = Replace(str, VbCrLf, "")
code = code & VbCrLf & "Response.Write """ & str & """"
includeconvert = code
End Function
Function include(filename)
Dim re, content, fso, f, aspStart, aspEnd, code
Set fso=CreateObject("scripting.FileSystemObject")
Set f=fso.OpenTextFile(Server.MapPath(filename))
content=f.ReadAll
f.close
Set f=nothing
Set fso=nothing

code = ""
aspEnd=1
aspStart=InStr(aspEnd,content,"<%")+2
Set re=new RegExp
Do While aspStart>aspEnd+1
'传统引用 code = code & includeconvert (re, filename, Mid(content,aspEnd,aspStart-aspEnd-2))
aspEnd=InStr(aspStart,content,"%\>")+2
re.pattern="^\s*=" '这段正则替换原来是把 <% = str % > 换回成标准的 <%Response.Write str % >
code = code & VbCrLf & re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write ") 'ASP块前面再加回车换行，以避免连接块之间多个 Response.Write在同一行的错误
aspStart=InStr(aspEnd,content,"<%")+2
Loop
code = code & includeconvert (re, filename, Mid(content,aspEnd))
Set re=nothing
include = code
End Function

方便起见，以上函数最终返回的是整合了包含文件的整个 ASP 代码，使用时还要再用 Execute 执行之，即使用时需要：Execute(include("file.asp"))。

以上函数对被包含文件与主文件同一路径时测试通过，未对被包含文件与主文件路径不同的情况做进一步容错，时间有限，欢迎有兴趣的朋友提出意见和改进。

asp读sql server数据出现乱码问题解决方法

江小邪 — Fri, 09 Feb 2007 19:52:57 +0000

最近在做网站的时候，遇到这么一个奇怪的问题，无法正确执行sql语句，response了一下，原来sql语句里面的中文字段都成了乱码，怀疑是编码的问题，但是怎么修改都无法起作用，郁闷ing！

为此再网络上一搜再搜，总算黄天不负有心人，把问题给办了。
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=65001%>UTF-8

codepage指定了IIS按什么编码读取传递过来的串串（表单提交，地址栏传递等）。

出乱码的原因也就是网站要整合的时候模块编码不一样引起的。

最方便的方法如下：

不要转换任何模块网页的编码该utf-8的还是utf-8，该Gb22312的还是Gb2312
在Utf-8模块的包文件（如conn.asp，但是要注意conn.asp必须是在第一行调用）最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>

在GB2312模块的包文件最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>

ASP常用函数表（新手们的好工具）

江小邪 — Fri, 09 Feb 2007 19:34:16 +0000

Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符，数字均可
实例： <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
%>
返回结果: 建立了一个包含7个元素的数组myArray
myArray("Sunday","Monday", … … "Saturday")

CInt()
函数将一个表达式转化为数字类型
表达式 CInt(expression)
允许数据类型: 任何有效的字符均可(不大于32767)
实例： <%
f = "234"
response.write cINT(f) + 2
%>
返回结果: 236
转化字符"234"为数字"234"，如果字符串为空，则返回0值

CreateObject()
函数建立和返回一个已注册的ACTIVEX组件的实例。
表达式 CreateObject(objName)
允许数据类型: objName 是任何一个有效、已注册的ACTIVEX组件的名字.
实例： <%
Set con = Server.CreateObject("ADODB.Connection")
%>

CStr()
函数转化一个表达式为字符串.
表达式 CStr(expression)
允许数据类型: expression 是任何有效的表达式。
实例： <%
s = 3 + 2
response.write "The 返回结果 is: " & cStr(s)
%>
返回结果: 转化数字“5”为字符“5”。

Date()
函数返回当前系统日期.
表达式 Date()
允许数据类型: None.
实例： <%=Date%>
返回结果: 9/9/00

DateAdd()
函数返回一个被改变了的日期。
表达式 DateAdd(timeinterval,number,date)
允许数据类型:
timeinterval is the time interval to add;
number is amount of time intervals to add;
and date is the starting date.
实例： <%
currentDate = #9/9/00#
newDate = DateAdd("m",3,currentDate)
response.write newDate
%>
<%
currentDate = #12:34:45 PM#
newDate = DateAdd("h",3,currentDate)
response.write newDate
%>
返回结果: 9/9/00
3:34:45 PM
"m" = "month";
"d" = "day";
If currentDate is in time format then,
"h" = "hour";
"s" = "second";

DateDiff()
函数返回两个日期之间的差值。
表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])
允许数据类型: timeinterval 表示相隔时间的类型，如“M“表示“月”。
实例： <%
fromDate = #9/9/00#
toDate = #1/1/2000#
response.write "There are " & _
DateDiff("d",fromDate,toDate) & _
" days to millenium from 9/9/00."
%>
返回结果: 从9/9/00 到2000年还有 150 天.

Day()
函数返回一个月的第几日 .
表达式 Day(date)
允许数据类型: date 是任何有效的日期。
实例： <%=Day(#9/9/00#)%>
返回结果: 9

formatCurrency()
函数返回表达式，此表达式已被格式化为货币值
表达式 formatCurrency(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])
允许数据类型: Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置; LeadingDigit 三态常数，指示是否显示小数值小数点前面的零。
实例： <%=formatCurrency(34.3456)%>
返回结果: $34.35

formatDateTime()
函数返回表达式，此表达式已被格式化为日期或时间
表达式 formatDateTime(Date, [, Namedformat])
允许数据类型: Namedformat 指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate.
实例： <%=formatDateTime("09/9/00", vbLongDate)%>
返回结果: Sunday, September 09, 2000

formatNumber()
函数返回表达式，此表达式已被格式化为数值.
表达式 formatNumber(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])
允许数据类型: Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。; LeadingDigit i指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。; Paren 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。; GroupDigit i指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。. [Page]
实例： <%=formatNumber(45.324567, 3)%>
返回结果: 45.325

formatPercent()
函数返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以 100 ）。 (%)
表达式 formatPercent(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])
允许数据类型: 同上.
实例： <%=formatPercent(0.45267, 3)%>
返回结果: 45.267%

Hour()
函数以24时返回小时数.
表达式 Hour(time)
允许数据类型:
实例： <%=Hour(#4:45:34 PM#)%>
返回结果: 16
(Hour has been converted to 24-hour system)

Instr()
函数返回字符或字符串在另一个字符串中第一次出现的位置.
表达式 Instr([start, ] strToBeSearched, strSearchFor [, compare])
允许数据类型: Start为搜索的起始值，strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符.compare比较方式（详细见ASP常数）
实例： <%
strText = "This is a test!!"
pos = Instr(strText, "a")
response.write pos
%>
返回结果: 9

InstrRev()
函数同上，只是从字符串的最后一个搜索起
表达式 InstrRev([start, ] strToBeSearched, strSearchFor [, compare])
允许数据类型: 同上.
实例： <%
strText = "This is a test!!"
pos = InstrRev(strText, "s")
response.write pos
%>
返回结果: 13

Int()
函数返回数值类型,不四舍五入。
表达式 Int(number)
允许数据类型:
实例： <%=INT(32.89)%>
返回结果: 32

IsArray()
函数判断一对象是否为数组，返回布尔值 .
表达式 IsArray(name)
实例： <%
strTest = "Test!"
response.write IsArray(strTest)
%>
返回结果: False

IsDate()
函数判断一对象是否为日期，返回布尔值
表达式 IsDate(expression)
实例： <%
strTest = "9/4/2000"
response.write IsDate(strTest)
%>
返回结果: True

IsEmpty()
函数判断一对象是否初始化，返回布尔值.
表达式 IsEmpty(expression)
实例： <%
Dim i
response.write IsEmpty(i)
%>
返回结果: True

IsNull()
函数判断一对象是否为空，返回布尔值.
表达式 IsNull(expression)
实例： <%
Dim i
response.write IsNull(i)
%>
返回结果: False

IsNumeric()
函数判断一对象是否为数字，返回布尔值.
表达式 IsNumeric(expression)
实例： <%
i = "345"
response.write IsNumeric(i)
%>
返回结果: True
就算数字加了引号，ASP还是认为它是数字。

IsObject()
函数判断一对象是否为对象，返回布尔值.
表达式 IsObject(expression)
实例： <%
Set con = Server.CreateObject("ADODB.Connection")
response.write IsObject(con)
%>
返回结果: True

LBound()
函数返回指定数组维的最小可用下标.
表达式 Lbound(arrayname [, dimension])
实例： <%
i = Array("Monday","Tuesday","Wednesday")
response.write LBound(i)
%>
返回结果: 0

LCase()
函数返回字符串的小写形式
表达式 Lcase(string)
实例： <%
strTest = "This is a test!"
response.write LCase(strTest)
%>
返回结果: this is a test!

Left()
函数返回字符串左边第length个字符以前的字符（含第length个字符).
表达式 Left(string, length)
实例： <%
strTest = "This is a test!"
response.write Left(strTest, 3)
%>
返回结果: Thi

Len()
函数返回字符串的长度.
表达式 Len(string | varName)
实例： <%
strTest = "This is a test!"
response.write Len(strTest)
%>
返回结果: 15

LTrim()
函数去掉字符串左边的空格.
表达式 LTrim(string)
实例： <%
strTest = " This is a test!"
response.write LTrim(strTest)
%>
返回结果: This is a test!

Mid()
函数返回特定长度的字符串(从start开始,长度为length). [Page]
表达式 Mid(string, start [, length])
实例： <%
strTest = "This is a test! Today is Monday."
response.write Mid(strTest, 17, 5)
%>
返回结果: Today

Minute()
函数返回时间的分钟.
表达式 Minute(time)
实例： <%=Minute(#12:45:32 PM#)%>
返回结果: 45

Month()
函数返回日期.
表达式 Month(date)
实例： <%=Month(#08/04/99#)%>
返回结果: 8

MonthName()
函数返回指定月份
表达式 MonthName(month, [, Abb])
实例： <%=MonthName(Month(#08/04/99#))%>
返回结果: August

Now()
函数返回系统时间
表达式 Now()
实例： <%=Now%>
返回结果: 9/9/00 9:30:16 AM

Right()
函数返回字符串右边第length个字符以前的字符（含第length个字符).
表达式 Right(string, length)
实例： <%
strTest = "This is an test!"
response.write Right(strTest, 3)
%>
返回结果: st!

Rnd()
函数产生一个随机数.
表达式 Rnd [ (number) ]
实例： <%
Randomize()
response.write RND()
%>
返回结果: 任何一个在0 到 1 之间的数

Round()
函数返回按指定位数进行四舍五入的数值.
表达式 Round(expression [, numRight])
实例： <%
i = 32.45678
response.write Round(i)
%>
返回结果: 32

Rtrim()
函数去掉字符串右边的字符串.
表达式 Rtrim(string)
实例： <%
strTest = "This is a test!! "
response.write RTrim(strTest)
%>
返回结果: This is a test!!

Split()
函数将一个字符串分割并返回分割结果
表达式 Split (S[，d])
实例：<%V= Split(A,B,C)
For i = 0 To UBound(V)
Response.Write V(i)
Next
%>
返回结果: A B C

Second()
函数返回秒.
表达式 Second(time)
实例： <%=Second(#12:34:28 PM#)%>
返回结果: 28

StrReverse()
函数反排一字符串
表达式 StrReverse(string)
实例： <%
strTest = "This is a test!!"
response.write StrReverse(strTest)
%>
返回结果: !!tset a si sihT

Time()
函数返回系统时间.
表达式 Time()
实例： <%=Time%>
返回结果: 9:58:28 AM

Trim()
函数去掉字符串左右的空格.
表达式 Trim(string)
实例： <%
strTest = " This is a test!! "
response.write Trim(strTest)
%>
返回结果: This is a test!!

UBound()
函数返回指定数组维数的最大可用下标>.
表达式 Ubound(arrayname [, dimension])
实例： <%
i = Array("Monday","Tuesday","Wednesday")
response.write UBound(i)
%>
返回结果: 2

UCase()
函数返回字符串的大写形式.
表达式 UCase(string)
允许数据类型:
实例： <%
strTest = "This is a test!!"
response.write UCase(strTest)
%>
返回结果: THIS IS A TEST!!

VarType()
函数返回指示变量子类型的值
表达式 VarType(varName)
实例： <%
i = 3
response.write varType(i)
%>
返回结果: 2(数字)详见"asp常数"

WeekDay()
函数返回在一周的第几天.
表达式 WeekDay(date [, firstdayofweek])
实例： <%
d = #9/9/00#
response.write Weekday(d)
%>
返回结果: 4(星期三)

WeekDayName()
函数返回一周第几天的名字.
表达式 WeekDayName(weekday [, Abb [, firstdayofweek]])
实例： <%
d = #9/9/00#
response.write WeekdayName(Weekday(d))
%>
返回结果: Wednesday

Year()
函数返回当前的年份.
表达式 Year(date)
实例： <%=Year(#9/9/00#)%>
返回结果: 1999

多字段模糊搜索函数

江小邪 — Wed, 27 Dec 2006 22:20:42 +0000

前段时间写了一个多字段模糊搜索的函数（类似baidui）。函数代码如下
'==========================================
'函数名：keyword_sousuo
'作用：生成sql查询条件
'参数：table_field —— 表的字段名（之间用逗号分开）
' keyword —— 搜索关键词（之间用空格分开）
'返回：sql查询条件
'==========================================
function keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j

table_fields=split(trim(table_field),",")
keywords=split(trim(keyword),",")

if table_field<>"" then
str01="("&table_fields(0)&" like '%"&keyword&"%'"
for j=0 to ubound(table_fields)
str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'"
next
str01=str01&")"
else
response.Write("")
response.End()
end if

'全角－－》半角　空格
'keyword=replace(keyword,"　"," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
keywords=split(keyword," ")
if ubound(keywords)>0 then
for i=0 to ubound(keywords)
str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'"
for j=1 to ubound(table_fields)
str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'"
next
str02=str02&")"
next
str02="("&replace(str02,")(",")and(")&")"
keyword_sousuo="(" & str01 & "or" & str02 & ")"
else
keyword_sousuo=str01
end if
end function
'==================================================
'函数名：keyword_tag
'作用：将字符串里的关键词标记为红色
'参数：str —— 字符串
' keyword —— 标记关键词（之间用空格分开）
'返回：字符串（html格式）
'==================================================
function keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'全角－－》半角　空格
'keyword=replace(keyword,"　"," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
str01=replace(str,keyword,""&keyword&"")
keywords=split(keyword," ")
if ubound(keywords)>0 then
str02=str
for i=0 to ubound(keywords)
str02=replace(str02,keywords(i),""&keywords(i)&"")
next
keyword_tag=str02
else
keyword_tag=str01
end if
end function

一个使用的例子：recordread.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,connstr,database
connstr="DBQ="+server.mappath("record.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.open connstr

dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where
n=50
page=Request("page")
keyword=trim(request("keyword"))
sql_where=keyword_sousuo("title,cz,name,time",keyword)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from record where "&sql_where&" order by id desc",conn,1,2
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/n
pageCount=int(pageCount)
if (RecordCount mod n)>0 then
PageCount=PageCount +1
end if
%>

(关键词之间用空格分开)

<%pos=0
do while pos<(page-1)*n
pos=pos+1
rs.moveNext
loop
i=0
while not rs.eof and ii=i+1%>

<%rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing

'==================================================
'函数名：keyword_sousuo
'作用：生成sql查询条件
'参数：table_field —— 表的字段名（之间用逗号分开）
' keyword —— 搜索关键词（之间用空格分开）
'返回：sql查询条件
'==================================================
function keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j

table_fields=split(trim(table_field),",")
keywords=split(trim(keyword),",")

if table_field<>"" then
str01="("&table_fields(0)&" like '%"&keyword&"%'"
for j=0 to ubound(table_fields)
str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'"
next
str01=str01&")"
else
response.Write("")
response.End()
end if

'全角－－》半角　空格
keyword=replace(keyword,"　"," ")
' while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
keywords=split(keyword," ")
if ubound(keywords)>0 then
for i=0 to ubound(keywords)
str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'"
for j=1 to ubound(table_fields)
str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'"
next
str02=str02&")"
next
str02="("&replace(str02,")(",")and(")&")"
keyword_sousuo="(" & str01 & "or" & str02 & ")"
else
keyword_sousuo=str01
end if
end function
'==================================================
'函数名：keyword_tag
'作用：将字符串里的关键词标记为红色
'参数：str —— 字符串
' keyword —— 标记关键词（之间用空格分开）
'返回：字符串（html格式）
'==================================================
function keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'全角－－》半角　空格
keyword=replace(keyword,"　"," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
str01=replace(str,keyword,""&keyword&"")
keywords=split(keyword," ")
if ubound(keywords)>0 then
str02=str
for i=0 to ubound(keywords)
str02=replace(str02,keywords(i),""&keywords(i)&"")
next
keyword_tag=str02
else
keyword_tag=str01
end if
end function
dim y
%>

标题	动作	用户名	时间
<%=keyword_tag(rs("title"),keyword)%>	<%=keyword_tag(rs("cz"),keyword)%>	<%=keyword_tag(rs("name"),keyword)%>	<%=keyword_tag(rs("time"),keyword)%>
<%=RecordCount%>个 <%=page%>/<%=pageCount%>页 <%=n%>个/页转到：

使用模板实现ASP代码与页面分离

江小邪 — Fri, 22 Dec 2006 01:47:23 +0000

　　每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后，成为项目瓶颈；整合的程序代码和HTML和web应用不容易将数据的处理和数据的显示分开，但在多人合作的情况下，如果无法将数据和显示分开，将大大影响开发的效率，专业分工的发挥。

　　其它的脚本语言，如JSP、PHP都有自己的解决方案，ASP的后一代产品ASP.NET也实现了代码与页面，似乎直接过渡到ASP是不错的选择。但是总有这样或那样的原因让我们不能或暂时不能放弃ASP直奔.NET大营。从公司角度来看，转换语言是一笔不少的投资，包括雇佣熟手.NET程序员、培训原有程序员、开发工具的转型、开发风格的转型、界面风格转变、接口风格、软件架构、文档、开发流程等等；这还意味着原有的代码必须在新语言环境里重写以实现最佳的效果和稳定性；同时将直接影响这段时间内项目的进度，更有可能导致个别程序员出走。由此看来在您决定转换语言之前，在原基础上寻求一种解决方案，才是最好的选择。
　　PHP通过模板实现代码与页面，可供选择的有FastTemplate、PHPLIB、Smarty等多种，其中PHPLIB的影响最大、使用最多。既然如此，我们直接把它搬到ASP来，对于同时使用PHP和ASP的公司还有很有好处：一、美工处理页面时，不管将要套用PHP还是ASP，处理方式是一样，无须经过培训；二、程序员编写代码时，两种语言间的思路接近或一致，相同功能在两种语言实现时，只需拷贝过来略作修改即可，保证了工作效率和项目进度。
1、模板类的设计
　　实现代码封装成为模板类，即是为了与PHPLIB兼容，也使得代码方便管理与扩展。
　　模板类要实现的目标为：从模板文件中读入显示的HTML代码，将这些显示代码中需要动态数据的地方替换为ASP程序运算所得出的数据，然后按照一定的顺序输出。其中，替换的部分可以自由的设定。因此它必须完成如下任务：
·从模板文件中读取显示用的HTML代码。
·将模板文件和实际生成的数据结合，生成输出的结果。
·允许同时处理多个模板。
·允许模板的嵌套。
·允许对模板中的某个单独的部分进行处理。

实现方法：
采用FSO读取模板文件
采用正则替换实现模板文件和数据的结合
处理多个模板用数组存储来实现。
模板的嵌套的实现主要的想法是：将模板和输出（任何中间的分析结果）一视同仁，都可拿来做替换，即可实现。
单独部分的处理的通过在模板文件中设定标注，然后在正则替换中结合标注来控制，实现部分替换。

2、模板类的实现
　　给出具体代码之前，先把主要函数列出，用过PHPLIB的朋友应该对此很熟悉了：
　　1）Public Sub set_root(ByVal value)　设定模板默认目录
　　2）Public Sub set_file(ByVal handle,ByVal filename)　读取文件
　　3）Public Sub set_var(ByVal Name, ByVal value, ByVal Append)　设置映射数据-替换变量
　　4）Public Sub unset_var(ByVal Name)　取消数据映射
　　5）Public Sub set_block(ByVal Parent, ByVal BlockTag, ByVal Name)　设置数据块
　　6）Public Sub set_unknowns(ByVal unknowns)　设定未指定映射的标记处理方式
　　7）Public Sub parse(ByVal Name, ByVal BlockTag, ByVal Append)　执行模板文件与数据的结合
　　8）Public Sub p(ByVal Name)　输出处理结果

asp长文章的自动分页代码

江小邪 — Fri, 22 Dec 2006 01:13:01 +0000

<%
sub autopage()
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint

Maxpagelen=1000
content=ubbcode(rs("content"))
ArticleID=rs("ArticleID")
contentlen=len(content)
page=request.QueryString("page")

if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if

if pageNumber*MaxPagelenPageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if

content=Mid(content,BeginPoint,EndPoint-BeginPoint)
response.Write content
response.Write"
"
response.Write"
"
response.Write"
"

end if
for i=1 to PageNumber
response.Write "asp?ArticleID=" & ArticleID &"&page=" & i & "> "& i &""
Next
end sub
%>

无风的港湾 » ASP

开源软件的盈利模式

相关博文

ASP防注入新方式，希望对大家是有用的

相关博文

如何删除删不掉的”PRN.asp:.jpg”

相关博文

AJAX的各种控件和类库

相关博文

了解Ajax中的Get和Post

相关博文

nginx 通过user-agent判断手机终端

相关博文

用正则解析图片地址,并利用XMLHTTP组件将其保存

相关博文

在asp文件中访问flash详细信息

相关博文

ASP初学者常犯的几个错误

相关博文

一个新的JMail发送代码

相关博文

ASP提速技巧五则

相关博文

巧用ASP生成PDF文件

相关博文

ASP编程心得回放

相关博文

ASP脚本生成GUID的实现

相关博文

ASP 动态包含文件

相关博文

asp读sql server数据出现乱码问题解决方法

相关博文

ASP常用函数表（新手们的好工具）

相关博文

多字段模糊搜索函数

相关博文

使用模板实现ASP代码与页面分离

相关博文

asp长文章的自动分页代码

相关博文