2020-02-16 标签:asp,代理,采集,核心,函数,代码,function,proxypage,url,set,retrieval,msxml,setproxy,255,80

Function ProxyPage(url) Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0") With Retrieval .SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口 .Open "Get", u

2020-02-16 标签:asp,继承,初探,实例,代码,其中,使用,分页,cpaging,实现,如下,class,public,rs,recordset,对象,mark,指针

其中使用到一个分页类CPaging 实现代码如下：Class CPaging Public RS ' RecordSet对象 Public Mark ' 指针标签 Private sSize ' 每页显示数 Private sTotal ' 总记录数 Private sPage ' 当前页码 Pri

2020-02-16 标签:简单,asp,采集,代码,教程,第一步,分析,页面,使用,浏览器,打开,http,sports,sina,com,cn,k,2008,09,15

采集开始 第一步是分析要采集的页面。 　使用浏览器打开要采集的页面（如:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml，你可以其他页面），打开后，点击右键，查源文件。 第二步，找到要采集的内容所在位置。 假如我要采集这个页面上的标题和

2020-02-16 标签:asp,获取,数据库,中表,字段,代码,实现,如下,功能,显示,内容,原创,wangsdong,文章,转载,保留,信息

实现代码如下：" Set rs1=server.CreateObject("adodb.recordset") sql="select * from "&rs(2) Set rs1=conn.execute(sql) response.write "字段名:" For i=0 To rs1.

2020-02-16 标签:asp,几种,常用,排序,算法,dim,adata,array,call,原来,顺序,selectsort,选择

a_Data(j) Then k = j End If Next t = a_Data(i) a_Data(i) = a_Data(k) a_Data(k) = t Next SelectSort = a_Data End Function '快速排序 Function QuickSort(a_D

2020-02-16 标签:codepage,列表,asp,应用,例子,指定,代码,特性,无效,属性,是指,网页,制作,脚本,web,服务端,默认,不同

指定的代码页特性无效。 codepage属性：是指出网页的代码页 如果制作的网页脚本与WEB服务端的默认代码页不同，则必须指明代码页： 代码如下: codepage=936 简体中文GBK codepage=950 繁体中文BIG5 codepage=437 美国/加拿大英语 codepage=93

2020-02-16 标签:简洁,asp,多重,查询,解决方案,subject,信息,标题,company,发布,公司名称,content,内容,address,公司地址,infomation,公司,简介,n,ote

'subject 信息标题 'company 发布信息的公司名称 'content 发布信息的内容 'address 公司地址 'infomation 公司简介 'note 相关说明 以上值均由FORM提交，然后通过:subject=trim(Request.Form("subject"))等得到相

2020-02-16 标签:推荐,一篇,不错,新手,asp,编程,基本法,常犯,错误,论坛,帖子,代码,中都,有一个,共同的,基本,字段,类型,程序

一、新手常犯的错误 在论坛看到很多帖子代码中都有一个共同的基本错误，字段类型错误。 程序和数据库是紧紧相连的，数据库字段文本型或时间型的都使用单引号 比如下面这段修改语句： conn.execute "update Counts set counts='" DBQ=" Data Source=" D

2020-02-16 标签:asp,session,永不,过期,又有,timeout,99999,同样,不行,最大,时间,限制,经过,测试,发现,最大值,24,小时

又有人说设session.timeout=99999。这种同样不行，session有最大时间限制。我经过测试发现最大值为24小时，也就是说你最大可以session.timeout=1440，1441都是不可以有，呵呵。本人测试环境：win2003+IIS6.0+ASP3.0。 所以想通过设sessi

2020-02-16 标签:asp,只采,网站,可见,文本,正则,写的,function,origincode,dim,reg,set,n,ew,regexp,ignorecase,true,global

我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "()" originCode= reg.Rep