asp中Byval与Byref的区别
文件名称 : ByVal.asp ByRef.asp 具体代码 : % Sub TestMain() Dim A : A=5 Call TestBy(A) Response.write A End Sub Sub TestBy(ByVal T) T=T+1 End sub call TestMain() % % Sub TestMain() Dim A : A=5 Call TestBy(A) Response.write A End Sub...
浅谈自动采集程序及入库
% '声明取得目标信息的函数,通过XML组件进行实现。 Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) '对取得信息进行验...
sql 存储过程分页
CREATEPROCmyx_prPageRecordset @queryStrnvarchar(1000), @keyFieldnvarchar(200), @pageSizeint, @pageNumberint AS BEGIN DECLARE@sqlTextASnvarchar(4000) DECLARE@sqlTableASnvarchar(4000) SET@sqlTable='SELECTTOP'+CAST((@pageNumber+1)*@pageSizeASva...
ASP编程实用20例
1.如何用Asp判断你的网站的虚拟物理路径 答：使用Mappath方法 palign=centerfontsize=4face=Arialb ThePhysicalpathtothisvirtualwebsiteis bfont fontcolor=#FF0000size=6face=Arial %=Server.MapPath()% fontp 2.我如何知道使用...
转换中文为unicode 转换unicode到正常文本
复制代码 代码如下: '//转换中文为unicode functionURLEncoding(vstrIn) dimi dimstrReturn,ThisChr,innerCode,Hight8,Low8 strReturn="" fori=1toLen(vstrIn) ThisChr=Mid(vStrIn,i,1) IfAbs(Asc(ThisChr))nbsp;then strReturn=strReturnnbsp;T...
ASP类Class入门 推荐
Class 声明 声明一个类的名字，就是定义一些变量，属性，方法来组成一个类。我们常常看到别的程序语言中中都有类的说明，PHP，VB，C++，这个在VBScript中的类的说明，我是第一次听到...
一个asp快速字符串连接类
% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '快速字符串连接类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称：Class_FastString '来源：http://www.jansfreeware.com '整理：qihangnet '更新：2005年6月15日 '作用：高效地进行字...
jb51内容分页函数 <font color=red>原创</font>
复制代码 代码如下: allpages=ubound(contentarray) fordxy_ii=0toallpages pagelist1="当前""/""页" pagepre="" pagelast="" ifdxy_ii0then cpage=cint(dxy_ii) ifcpage0thencpage=0 ifcpage=1then cpage1=id"_"".htm" endif pagepre="ahref=""上一...