摘要：
ASP常用函数表（新手们的好工具） 作者:未知 Array() 函数返回一个数组 表达式 Array(list) 允许数据类型: 字符，数字均可 实例： 返回结果: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday") CInt() 函数将一个表达式转化为数字类型 表达式 CInt(expression) 允许数据类型: 任何有效的字符均可(不大于32767) 实例： 返回结果: 236 转化字符"234"为数字"234& 阅读全文
posted @ 2013-08-27 15:05
晴耕雨读-li
阅读(234)
评论(0)
推荐(0)
摘要：
随机提取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 阅读全文
posted @ 2013-08-27 15:03
晴耕雨读-li
阅读(187)
评论(0)
推荐(0)
摘要：
程序实现功能：自动将远程页面的文件中的图片下载到本地。 程序代码" 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( 阅读全文
posted @ 2013-08-27 15:01
晴耕雨读-li
阅读(435)
评论(0)
推荐(0)
摘要：
取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If GetClientIP = "" or isnull( 阅读全文
posted @ 2013-08-27 14:57
晴耕雨读-li
阅读(273)
评论(0)
推荐(0)
摘要：
" target=_blank>" '五列显示mod 5 tempnum2=tempnum2+1 rs.movenext loop %> 阅读全文
posted @ 2013-08-27 14:55
晴耕雨读-li
阅读(353)
评论(0)
推荐(0)
摘要：
抽取10万条数据，Access数据库，GetRows() 现有10W条数据，Access数据库保存通过正常提取：耗时3,250.000毫秒，总测试平均值在3秒左右==========================================================使用存储过程提取：耗时2,187.500毫秒，总测试平均值在2秒左右=========================================================以上两种均不能彻底解决执行时间漫长的问题，主要原因即是循环每次都须向数据库抽取记录（Command速度相对较快）那么使用GetRows()方 阅读全文
posted @ 2013-08-27 14:52
晴耕雨读-li
阅读(740)
评论(0)
推荐(0)
摘要：
之后aa=test(str)ss=left(aa,len(aa)-1)输出ss即可 阅读全文
posted @ 2013-08-27 14:51
晴耕雨读-li
阅读(455)
评论(0)
推荐(0)
摘要：
Function LoseHtml(ContentStr)Dim ClsTempLoseStr,regExClsTempLoseStr = Cstr(ContentStr)Set regEx = New RegExpregEx.Pattern = "]*>" '这是完全去除HTML代码的正则'regEx.Pattern="/]*>/g" '这是简化HTML代码的正则regEx.IgnoreCase = TrueregEx.Global = TrueClsTempLoseStr = regEx.Replace(ClsTe 阅读全文
posted @ 2013-08-27 14:50
晴耕雨读-li
阅读(424)
评论(0)
推荐(0)
摘要：
asp中的几个取整函数是：fix(),int(),round();Int(number)、Fix(number)函数返回数字的整数部分。number 参数可以是任意有效的数值表达式。如果 number 参数包含 Null，则返回 Null。例：response.write int(2.14) '2response.write fix(2.14) '2response.write int(2.54) '2response.write int(2.54) '2Int 和 Fix 函数都删除 number 参数的小数部分并返回以整数表示的结果。Int 和 Fix 函数 阅读全文
posted @ 2013-08-27 14:49
晴耕雨读-li
阅读(1235)
评论(0)
推荐(0)
摘要：
SQL中我们会见到很多的匹配符，下面解释一下 % 代表零个或者多个任意字符 _ 代表一个任意字符 [] 指定范围内的任意单个字符 [^] 不在指定范围内的任意单个字符 带有匹配符的字符串必须使用引号引起来，例如下面的示例： LIKE 'BR%'返回以“BR”开始的任意字符串。 LIKE 'Br%'返回以“Br”开始的任意字符中。 LIKE '%een'返回以“een”结束的任意字符串。 LIKE '%en%'返回包含“en”的任意字符串。 liKE 'en'返回以“en”结束的三个字符的字符串。 LIKE ' 阅读全文
posted @ 2013-08-27 14:48
晴耕雨读-li
阅读(380)
评论(0)
推荐(0)
摘要：
本文介绍在ASP应用中防止用户在当前会话期间多次提交同一表单的一个简单方法。它主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直接引用即可；对于那些较为复杂的环境，我们在文章的最后给出一些改进建议。 一、基本工作过程 下面我们依次讨论这四个子程序。 （一）初始化 这里我们要在Session对象中保存两个变量，其中： ⑴ 每一个表单对应一个称为FID的唯一标识，为使该值唯一要用到一个计数器。 ⑵ 每当一个表单成功提交，必须在一个Dictionary对象中存储它的FID。 我们用一个专用的过程来初始化上述数据。虽然以后各个子程序都要... 阅读全文
posted @ 2013-08-27 14:46
晴耕雨读-li
阅读(220)
评论(0)
推荐(0)
摘要：
")content=replace(content,chr(13),"")content=replace(content,"","")Response.Write contentelsesql1="select content from Article"rs1.Open sql1,dataconn,3,3if not eof then"取第一条纪录作为默认的显示纪录content=RS1("content")content=replace(content,chr(10),&q 阅读全文
posted @ 2013-08-27 14:44
晴耕雨读-li
阅读(907)
评论(0)
推荐(0)
摘要：
说明：复制表(只复制结构,源表名：a 新表名：b) SQL: select * into b from a where 11 说明：拷贝表(拷贝数据,源表名：a 目标表名：b) SQL: insert into b(a, b, c) select d,e,f from b; 说明：显示文章、提交人和最后回复时间 SQL: select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b 说明：外连接查询(表名1：a... 阅读全文
posted @ 2013-08-27 14:43
晴耕雨读-li
阅读(183)
评论(0)
推荐(0)
摘要：
")On Error Resume NextDim thisurl,thistextthisurl=Request("thisurl") '定义文件地址(非Html格式文档)!if thisurl="" thenResponse.Write("请先输入文件地址!")Response.EndEnd ifFunction objxmlhttp(xmlurl)On Error Resume NextSet objxml = CreateObject("Microsoft.XMLHTTP")objxml. 阅读全文
posted @ 2013-08-27 14:40
晴耕雨读-li
阅读(244)
评论(0)
推荐(0)
摘要：
javascript:alert(document.documentElement.outerHTML); 111111111111111111111111111111 阅读全文
posted @ 2013-08-27 13:56
晴耕雨读-li
阅读(255)
评论(0)
推荐(0)
摘要：
rst.PageCount then '如果接收的页数大于总页数rst.AbsolutePage = rst.PageCount '设置当前显示页等于最后页elseif Page 上面的代码只需要改动Rs.pagesize=5,把5改为你想显示的记录数.比如说改为10.那么每页就是显示10页.还需要修改的是select语句.就是你要检索的数据库了.也就是说放到任何一个系统中上面的代码只需很小的改动都可以直接拿过来用.然后:接...就是你要循环读出记录的显示内容了..............比如复制内容到剪贴板代码:当然也可以改为response.write输出.那是你的事了.你 阅读全文
posted @ 2013-08-27 13:54
晴耕雨读-li
阅读(316)
评论(0)
推荐(0)
摘要：
常写一个简单的模糊查询的SQL语句格式可以如下例： sql="select * from 表名 where 字段名 like ’%" & request.form("请求变量") & "%’ " 说明：1、Where 关键词的后面跟着用来过滤数据的条件，百分号%是通配符，可以代表多个任何字符，若是下划线_就代表一个任意字符。 实例如下： sql="select * from 表名 where 姓名 like ’%"&request.form("name")&&qu 阅读全文
posted @ 2013-08-27 13:50
晴耕雨读-li
阅读(2158)
评论(0)
推荐(0)
摘要：
"&vbNewLinesRssHead = "" & vbNewLine sRssHead = sRssHead & "" & vbNewLine sRssHead = sRssHead & "xx网" & vbNewLine sRssHead = sRssHead & "xx新闻更新" & vbNewLine sRssHead = sRssHead & "http://www.xxcom/" & vbNe 阅读全文
posted @ 2013-08-27 13:40
晴耕雨读-li
阅读(217)
评论(0)
推荐(0)
摘要：
"& title.Item(0).Text &"")Nextend ifEnd Function%>远程读取XML文件 阅读全文
posted @ 2013-08-27 13:38
晴耕雨读-li
阅读(169)
评论(0)
推荐(0)
摘要：
安全套接字层 (SSL) 是一套提供身份验证、保密性和数据完整性的加密技术。SSL 最常用来在 Web 浏览器和 Web 服务器之间建立安全通信通道。它也可以在客户端应用程序和 Web 服务之间使用。为支持 SSL 通信，必须为 Web 服务器配置 SSL 证书。本文介绍如何获取 SSL 证书，以及如何配置 Microsoft® Internet 信息服务 (IIS)，以便支持 Web 浏览器和其他客户端应用程序之间使用 SSL 安全地进行通信。一般情况下按照下文中SOP去做是不会有问题的，但是我碰到一个怪问题，安装CA后并没有在IIS中产生对应提交证书事情用的虚拟目录，网上搜了好久 阅读全文
posted @ 2013-08-27 13:36
晴耕雨读-li
阅读(834)
评论(0)
推荐(0)
浙公网安备 33010602011771号