摘要：
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)
摘要：
"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里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。函数如下：以下是引用片段：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)
摘要：
通常会在许多网站上进行搜索一些内容，要输入两个或两个以上的词，它的原理是这样的：假设在搜索框search中输入：“asp php”先得到输入框中的内容：search=request("search")然后将这两个值分别取出来s=split(search," ")'构造sql函数sql="select * from news"for i=0 to ubound(s)m=m&" or title='"&s(i)&"'"next'在这里会发现得到 阅读全文
posted @ 2013-08-26 16:21
晴耕雨读-li
阅读(169)
评论(0)
推荐(0)
摘要：
序列号 标题 阅读全文
posted @ 2013-08-26 16:19
晴耕雨读-li
阅读(461)
评论(0)
推荐(0)
摘要：
目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html文件，这样就没有必要改动原来的页面就可以轻松完成一个生成html的新闻系统了。^_^ 由于代码比较短，这里就不进行注释了"content = re.replace(content,"")re.global = falsere.pattern = "\"doset ms = re.execute(content)if ms.count0 thenset m = ms(0)tmp_str = get_exe_code(m.submat 阅读全文
posted @ 2013-08-26 16:18
晴耕雨读-li
阅读(399)
评论(0)
推荐(0)
摘要：
阅读全文
posted @ 2013-08-26 16:16
晴耕雨读-li
阅读(171)
评论(0)
推荐(0)
摘要：
文本框随文本的宽度而增长 阅读全文
posted @ 2013-08-26 16:15
晴耕雨读-li
阅读(352)
评论(0)
推荐(0)
摘要：
HTTPS 是一个安全通信信道，用于在客户计算机和服务器之间交换信息。它使用安全套接字层 (SSL)。HTTPS (Secure Hypertext Transfer Protocol) 安全超文本传输协议 HTTPS 是由Netscape开发并内置于其浏览器中，用于对数据进行压缩和解压操作，并返回网络上传送回的结果。HTTPS实际上应用了Netscape的 完全套接字层（SSL）作为HTTP应用层的子层。（HTTPS使用端口443，而不是象HTTP那样使用端口80来和TCP/IP进行通信。）SSL使用40 位关键字作为RC4流加密算法，这对于商业信息的加密是合适的。 假设您使用Netscap 阅读全文
posted @ 2013-08-26 16:14
晴耕雨读-li
阅读(3367)
评论(0)
推荐(0)
摘要：
真正IP的取得应该这样： 程序代码ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if ip = "" then ip=Request.ServerVariables("remote_addr") end if if instr(ip,"'")>0 then ip="0.0.0.0" end if 这样可以突破代理IP查看到真实IP。而不是单纯地用一句程序代码ip=Request.ServerVariables(" 阅读全文
posted @ 2013-08-26 16:13
晴耕雨读-li
阅读(758)
评论(0)
推荐(0)
摘要：
如果在 Access 数据库中删除数据或对象，或者在 Access 项目中删除对象，Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 Access 数据库或Access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 Access 数据库和 Access 项目的性能。 所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用MSaccess来完成压缩操作，然后再上传！ 需要注意的是：本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO... 阅读全文
posted @ 2013-08-26 16:12
晴耕雨读-li
阅读(697)
评论(0)
推荐(0)
摘要：
'参数说明'big 原图路径(相对)'small 生成图路径(相对)'width_s 生成后宽度（数值型）'height_s生成后高度（数值型）'images/Alpha.jpg 为一个像素的白色块'w 为边框宽度（数值型）function get_img(byval big,byval small,byval width_s,byval height_s,byval w)If IsObjInstalled("Persits.Jpeg") Thendim Jpeg,Pathdim x1,y1,x2,y2Set Jpeg 阅读全文
posted @ 2013-08-26 16:11
晴耕雨读-li
阅读(338)
评论(0)
推荐(0)
摘要：
Session StaticObjects 集合StaticObjects 集合包含 Session 对象范围中用 标记创建的所有对象。该集合可用于确定对象特定属性的值，或用于遍历集合并获取所有对象的全部属性。 语法 Session.StaticObjects( Key ) 参数 Key 要检索的属性。 注释 使用循环控制结构可以遍历 StaticObjects 集合中的关键字。请看下面的示例。 ") Next %> Session Contents 集合 Session.contents 集合包括所有未使用 标记而为该会话建立的项目。此集合可用于确定指定会话项的值或遍历集合并 阅读全文
posted @ 2013-08-26 16:10
晴耕雨读-li
阅读(409)
评论(0)
推荐(0)
摘要：
用ASP做搜索很容易，但要实现智能搜索这类就比较累一点，其实任何程序都差不多，主要还是看数据库的处理能力，一般小网站ASP经常跟ACCESS数据库搭配，在这种配置下我们要实现关键词不区分大小写搜索并高亮显示要借助ASP的正则处理了，请看下面代码：0 then for tt = 0 to ubound(split(RetStr," ")) string1 = replace(string1,split(RetStr," ")(tt),""&split(RetStr," ")(tt)&"&qu 阅读全文
posted @ 2013-08-26 16:09
晴耕雨读-li
阅读(237)
评论(0)
推荐(0)
摘要：
ASP中双引号单引号和&连接符使用技巧一、ASP中处在双引号中的可以是任意的字符、字符串，HTML代码 1. 2.I am here")%> 3.>response.write("I am here") 因为color的前引号和write的前引号形成匹配，内容为I am here。最终结果是：中间的 #0000ff 被孤单了 I am here")%> 二、单引号：如学习语文课一样，继续放在双引号中的引号可以采用单引号 response.write("I am here") 三、ASP中&号的主要作用 阅读全文
posted @ 2013-08-26 16:08
晴耕雨读-li
阅读(650)
评论(0)
推荐(0)
摘要：
'把pattern 又修改了下'code要检测的代码'http://www.knowsky.com/asp.asp'leixing html 或者ubb'nopic 代码没有图片时默认值function toppic(code,leixing,nopic)set regex = new regexpregex.ignorecase = trueregex.global = trueif leixing = "html" thenregex.pattern = "]+)"elseregex.pattern = &qu 阅读全文
posted @ 2013-08-26 16:07
晴耕雨读-li
阅读(308)
评论(0)
推荐(0)
摘要：
一个申请单可以包含N个项目，添加申请单时就需要动态加入代码了。 动态Table表格 以下为引用的内容： A列 B列 C列 D列 E列 F列 G列 --%> [ 选择设备 ] JS代码如下（根据条件弹出设备列表，然后选择已有设备） function doSelect(Width,Height,ctrlobj){ var k; var s = new Object(); k=showModalDialog("/Applications_add_addsearch.jsp",s,"dialogWidth:320px;status:no;scroll:no;dial 阅读全文
posted @ 2013-08-26 16:06
晴耕雨读-li
阅读(227)
评论(0)
推荐(0)
摘要：
asp下过滤重复字符串的代码，有时候我们需要过滤一些重复的字符串，下面的代码即可解决这个问题比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 阅读全文
posted @ 2013-08-26 16:04
晴耕雨读-li
阅读(402)
评论(0)
推荐(0)
摘要：
" & vbcrlfEnd Sub'简化Request.Form()'f : 表单名称Function P(f)P = Replace(Request.Form(f), Chr(0), "")End Function'接收表单并替换单引号Function Pr(f)Pr = Replace(Request.Form(f), Chr(0), "")Pr = Replace(Pr, "'", "''")End Function'简化Request 阅读全文
posted @ 2013-08-26 16:01
晴耕雨读-li
阅读(260)
评论(0)
推荐(0)
浙公网安备 33010602011771号