2013年8月27日
简单分页教程
摘要： 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)
asp下实现多条件模糊查询SQL语句
摘要： 常写一个简单的模糊查询的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)
用ASP生成RSS
摘要： "&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)
ASP读取RSS
摘要： "& title.Item(0).Text &"")Nextend ifEnd Function%>远程读取XML文件 阅读全文
posted @ 2013-08-27 13:38 晴耕雨读-li 阅读(169) 评论(0) 推荐(0)
IIS启用SSL
摘要： 安全套接字层 (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)
仿php的日期函数，asp时间处理函数
摘要： 0 Then Str=Replace(Str,"{Ya}",Y)'2006If InStr(Str,"{Yb}")>0 Then Str=Replace(Str,"{Yb}",Right(Y,2))'06If InStr(Str,"{Yc}")>0 ThenDim YY'数字和中文的转换YY=YFor I=0 To 9YY=Replace(YY,I,numTocn(I))NextStr=Replace(Str,"{Yc}",YY)'二零零六End If 阅读全文
posted @ 2013-08-27 13:35 晴耕雨读-li 阅读(221) 评论(0) 推荐(0)
2013年8月26日
ASP保存远程图片文件到本地代码
摘要： 4 then SaveRemoteFile=False Exit Function End If GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile server.MapPath(LocalFileName),2 .Cancel() .Close() End With Set Ads=nothin 阅读全文
posted @ 2013-08-26 16:26 晴耕雨读-li 阅读(872) 评论(0) 推荐(0)
一个按照行来截取显示文章摘要的函数
摘要： 一个按照行来截取显示文章摘要的函数代码如下 Function SplitLines(mycont,coun,newsid,classid)'mycont 要截取的内容 newsid 文章的ID'coun 要截取几行内容 classid 文章所属类的IDdim fline,i,lif isnull(mycont) then exit Functioni=1fline = 0For i=1 to Len(mycont)l=Mid(mycont,i,4)if l="" or l="" or l="" or l="& 阅读全文
posted @ 2013-08-26 16:25 晴耕雨读-li 阅读(239) 评论(0) 推荐(0)
ASP多行多列又一个方法
摘要： "End Ifresponse.write ""&i&""If i Mod col=0 Thenresponse.write ""End If i=i+1loop%> 阅读全文
posted @ 2013-08-26 16:23 晴耕雨读-li 阅读(276) 评论(0) 推荐(0)
用ASP取出HTML里面的图片地址的函数
摘要： 用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。函数如下：以下是引用片段：Function ShowPic(str) Set objRegExp = New Regexp'设置配置对象 objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True'设置为全文搜索 objRegExp.Pattern = "" '为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的img标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个 阅读全文
posted @ 2013-08-26 16:22 晴耕雨读-li 阅读(293) 评论(0) 推荐(0)