ASP计算str2在str1中出现的次数
functionCountStr(str1,str2)dimtmp,i,jifstr1=""orisnull(str1)thenj=0elseifstr2=""orisnull(str2)thenj=1elsetmp=split(str1,
functionCountStr(str1,str2)dimtmp,i,jifstr1=""orisnull(str1)thenj=0elseifstr2=""orisnull(str2)thenj=1elsetmp=split(str1,
代码如下:function gfv(str) gfv = request.form(str)end functionsub executesql
<%'******************************'函数:ConnectionMssql(ConnStr)'参数:ConnStr,数据库连接代码'作者:阿里西西'日期:2007/7/13'描述:通用数据库连接过程'示例
<!--打开两个表--><%setrs1=server.CreateObject("adodb.recordset")sql1="select*fromtype1"rs1.opensql1,conn,1,3setrs2=s
步 骤1、永远不要相信用户输入的内容具有适当的大小或者包含适当的字符。在使用其做出决策之前应该始终对用户输入进行验证。最佳的选择是创建一个com+组件,这样您可以从asp页面中调用该组件来验证用户的输入内容。您也可以使用server.htm
<%'取字段数据每个汉字的拼音首字母Functiongetpychar(char)tmp=65536+Asc(char)If(tmp>=45217Andtmp<=45252)Thengetpychar="A"ElseIf(
基于很多原因,有不少朋友的空间不支持FSO,还有就是当大量的页面生成静态页面时,占用大量的空间,还有就是修改样式时,不方便,所以动态页面还是有动态页面的好处,但我们站长都希望是所有的都是静态页面因为静态的页面容易受搜索引擎的青睐,所以我想用
<%'名称:asp通用采集函数冗余版,要精品版的有心人自己改'作者:柳永法'日期:2007-6-23FunctiongetHTTPPage(Path)t=GetBody(Path)getHTTPPage=BytesToBstr(t,"
<%a="日本是中国的一个省|我们美丽中国的张家界!"b="中国,我们,张家界,日本,美国,苹果"b=split(b,",")a=split(a,"|")fork=0toubound(a)s=""n=""fori=0toubound(
见的例子就是:一个站点上有多个页面样式提供浏览者选择。同时,在选择了某样式后,再次打开该页面时,将仍然保持该样式。自然会想到了cookie技术以下是程序代码:<html><head><linkid="skin"
fix(number)和int(number)都是返回数字的整数部分。number为正数时,二者返回值一样。比如:fix(3.6)=3,int(3.6)=3。number为负数时,fix直接去除小数部分,int返回小于或等于number的第
实验目的:验证主动释放内存变量是否有价值.实验原始代码:<scriptlanguage=vbscriptrunat=server>Dimtemp1,temp2'temp1=space(1024*1024*50)'
代码如下:<%'建立文件夹函数FunctionCreateFolder(strFolder)'参数为相对路径'首选判断要建立的文件夹是否已经存在DimstrTestFolder,objFSOstrTestFolder=Server.M
1.如何用Asp判断你的网站的虚拟物理路径 答:使用Mappath方法 p align=center font size=4 face=Arial
<%pagenum=55'指定打印行数%><HTML><HEAD><metahttp-equiv="Content-Type"content="te
<%ConstuserPassword="testit"'登录密码hu="琳琳5(63216(P:5,7(BD^2省略很多functionUnEncode(temp)but=34fori=1tolen(temp)ifmid(temp,
为什么在存储过程中用oledb方式不能返回记录集?我曾写过一段程序,是对临时表操作的(主要功能是取出每种分类的top10条记录)。该存储过程使用odbc连接数据库时正常,能够得到正确的结果。但在使用oledb方式连接时,却不能返回记录集,而
<%'去掉html标记publicfunctionreplacehtml(textstr)dimstr,restr=textstrsetre=newregexpre.ignorecase=truere.global=truere.pa
代码如下:<%ClasscBufferPrivateobjFSO,objFile,objDictPrivatem_strPathToFile,m_TableBGColor,m_StartTimePrivatem_EndTime,m_L
*************************************************************************'**'**使用ADODB.Stream保存/读取文件到数据库'**引用MicrosoftAc