CreateKeyWord asp实现的由给定的字符串生成关键字的
'************************************************** '函数名:CreateKeyWord '作用:由给定的字符串生成关键字 '参数:Constr---要生成关键字的原字符串 '返回值:生成的关键字 '*****************************...
'************************************************** '函数名:CreateKeyWord '作用:由给定的字符串生成关键字 '参数:Constr---要生成关键字的原字符串 '返回值:生成的关键字 '*****************************...
!--#includefile="../Conn.asp"-- % setrs=server.createobject("adodb.recordset") sql="select*fromarticlewherebigtypes='我爱你'orderbyiddesc"找出数据库内类别为我爱你的所有数据 rs.opensql,conn,1,3 ifnotrs.eofthen dowhilenotrs...
目前还是有BUG的,最新的测试页面在:http://www.reallydo.com/getimg.asp 正则分析页面在:http://jorkin.reallydo.com/article.asp?id=380 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正...
主程序共三个 我的调用方式scriptlanguage="javascript"src="/verify/num.asp"/script 验证方式iftrim(Loginnum)trim(session("Loginnum"))then Response.WriteError("验证码错误!") Response.End endif num.asp % '###Toencrypt/decry...
一.预呈现数据无法更改 1.大家知道,预呈现的数据是无法更改的,以前可能提到过,这里再看demo,自定义一个控件 [DefaultProperty("Text")] [ToolboxData("<{0}:JsControlrunat=server></{0}:JsControl>")] p...
复制代码 代码如下: % Function ReplaceUrl2(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"a")) str1 = Instr(HTMLstr,"a") str2 = Instr(str1,HTMLstr,"") HTMLstr = left(HTMLstr,str1-1)lt;/a"...
asp中我用了两次显示如下 响应对象错误'ASP0185:80020003' 缺少默认属性 ? 找不到对象的默认属性。 那里错了?? 复制代码 代码如下: Response.Cookies(cookie)[(key)|.attribute]=value 按照这个去写,这个...
% '计算分页的几种方法 '//iRecordCount为要计算的页面总数 '//iRecordCount为记录集数 '//iPageSize为每页记录数 '//一: IfiRecordCountModiPageSize=0Then iPageCount=Int(iRecordCount/iPageSize) Else iPageCount=Int(iReco...