晴耕雨读-li

摘要： 遇到了一个这样的ASP问题：在当前页面上判断，是否有参数ID传递过来？如果没有，显示“没有参数传递过来”。如果有传递，但值为空，显示“存在参数，但参数为空” 阅读全文

摘要： 过ASP禁止指定IP和只允许指定IP访问网站的代码，需要的朋友可以参考下。一、禁止指定IP防问网站,并执行相应操作: 代码如下:0 Then '符合禁止的IP执行相应的操作 Response.write "您所在的IP禁止访问" response.end End If %> 二、把代码修改一下，只允许指定IP防问网站,并执行相应操作: 代码如下:0 Then '符合的IP执行相应的操作 Response.write 您所在的IP可以访问" else '不符合的IP执行相应的操作 Response.write "您所在的IP禁 阅读全文

摘要： Function closeHTML(strContent) Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp re.IgnoreCase = True re.Global = True arrTags = Array("p", "div", "span", "table", "ul", "font", "b", "u", &qu 阅读全文

摘要： Untitled Document 内容 阅读全文

摘要： ",">", 1, -1, 1) Str = Replace(Str, "script", "script", 1, -1, 0) Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) Str = Replace(Str, "Script", "Script", 1, -1, 0) Str = Replace(Str, "script", "Script", 阅读全文

摘要： ASP常用函数表（新手们的好工具） 作者:未知 Array() 函数返回一个数组 表达式 Array(list) 允许数据类型: 字符，数字均可 实例： 返回结果: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday") CInt() 函数将一个表达式转化为数字类型 表达式 CInt(expression) 允许数据类型: 任何有效的字符均可(不大于32767) 实例： 返回结果: 236 转化字符"234"为数字"234& 阅读全文

摘要： 随机提取10条记录的例子： Sql server： select top 10 * from 表 order by newid() Access： SELECT top 10 * FROM 表 ORDER BY Rnd(id) Rnd(id) 其中的id是自动编号字段，可以利用其他任何数值来完成 比如用姓名字段(UserName) SELECT top 10 * FROM 表 ORDER BY Rnd(len(UserName)) MySql： Select * From 表 Order By rand() Limit 10 随机提取10条记录的例子： Sql server： select t 阅读全文

摘要： 程序实现功能：自动将远程页面的文件中的图片下载到本地。 程序代码" Set Matches =objRegExp.Execute(strContent) For Each Match in Matches RetStr = RetStr & GetRemoteImages(Match.value) Next ImagesArray=split(RetStr,"||") RemoteImage="" LocalImage="" for i=1 to ubound(ImagesArray) if ImagesArray( 阅读全文

摘要： 取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull( 阅读全文

摘要： " target=_blank>" '五列显示mod 5 tempnum2=tempnum2+1 rs.movenext loop %> 阅读全文