Adodb.Stream 组件的使用说明

Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作. (更多…)

标签Tags:, , ,

用正则解析图片地址,并利用XMLHTTP组件将其保存

现在基于WEB页的HTML的编辑器在新闻系统,文章系统中用得越来越广,一个网页一粘就可以保持原来的样式,同时图片也可以在这个页中保持。但是在使用过程中,如果所粘贴页中的图片被删除,就会在自己的页面上留下一个大大的“X”,影响美观。以前只好把这个图片保存下来,再重新上传到服务器上,这样实在麻烦。能不能让服务器自动去下载图片保存在服务器并且替换页面上的链接?答案是肯定的。 (更多…)

标签Tags:, , , , ,

在asp文件中访问flash详细信息

(更多…)

标签Tags:, , ,

ASP初学者常犯的几个错误

(更多…)

标签Tags:, , ,

一个新的JMail发送代码

该段代码涉及到JMail v4.3的大部分常用方法。
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用,也可以改成函数或过程。 (更多…)

标签Tags:, , ,

ASP提速技巧五则

今天我给大家讲一下如何提高ASP提速技巧的五则方法希望能对大家有所帮助!

技巧之一:提高使用Request集合的效率
  访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索,这比访问一个局部变量要慢得多。因此,如果打算在页面中多次使用Request集合中的一个值,应该考虑将其存贮为一个局部变量。例如将代码写成下面的形式以加快脚本引擎处理速度:

strTitle=Request.Form(“Title”)
strFirstName=Request.Form(“FirstName”) 
strLastName=Request.Form(“LastName”) 
If Len(strTitle) Then strTitle=strTitle & ” “ 
If strFirstName=”" Then strFullName=strTitle & ” ” & strLastName 
Elseif Len(strFirstName)=1 Then
strFullName=strTitle & strFirstName & “. ” & strLastName
Else
strFullName=strTitle & strFirstName & ” ” & strLastName 
End If
(更多…)

标签Tags:, , ,

巧用ASP生成PDF文件

Adobe PDF格式已经变成很多机构和公司进行跨平台制表的通用媒体格式。尽管我不是这个产品的狂热痴迷者,却不得不接受这样一个事实:用这个格式产生一个协定可能会比用Word还要好。

由于在一家雇用公司工作,我已经把我们所有早期的软件写成能在Internet上运行,这样我们就能和小的子公司共享公用数据库了。然而我们遇到的最大的问题就是制表。当一个申请人坐在信息站里在线填写他们的就业申请时,我们如何取得当前的文档(或申请等)?由于我们做了大量工作来获取数据,我们还需要申请人手工填写一份申请。 (更多…)

标签Tags:, ,

ASP编程心得回放

  学好一门编程语言有两个条件是必不可少的,一是理论与实践结合,在实际例程去验证书本上的理论能加深你对理论的理解;二是学会总结,把学习、运用中的心得体会记下来,当成一种经验或者教训加以提炼并在日后的应用中加以改进,一定能提高你对这门编程语言的认识。以下是笔者在学习与运用ASP编程中的两点经验,希望能对大家有所帮助。 (更多…)

标签Tags:, ,

ASP脚本生成GUID的实现

  全球唯一标识符 () 是一个字母数字标识符,用于指示产品的唯一性安装。在许多流行软件应用程序(例如 Web 浏览器和媒体播放器)中,都使用

  GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”,其中每个 x 是 0-9 或 a-f 范围内的一个十六进制的数字。例如:6F9619FF-8B86-D011-B42D-00C04FC964FF 即为有效的 GUID 值。

  世界上的任何两台计算机都不会生成重复的 GUID 值。GUID 主要用于在拥有多个节点、多台计算机的网络或系统中,分配必须具有唯一性的标识符。在 Windows 平台上,GUID 应用非常广泛:注册表、类及接口标识、数据库、甚至自动生成的机器名、目录名等。

  ASP生成GUDI的实现

  <%

  Dim objTypeLib

  Set objTypeLib = CreateObject("Scriptlet.TypeLib")

  Response.Write objTypeLib.Guid

  %>

  在本机及网络主机均测试通过。

标签Tags:, , ,

多关键字多条件查询的实例

检索实现如下功能:

1、单关键字查询,并突出显示查询关键字

2、多关键字查询

1、如何突出显示关键字:

用Replace函数,格式如下:

要替换的字符串:strA=trim(request("keyword"))

要替换成的字符串:strB="<font color=red>"+strA+"</font>"

content是文章的内容

Response.Write Replace(content,strA,strB)

或者

Response.Write(Replace(content,strA,strB))

2、如何实现多关键字搜索

我在搜索的时候增加了一个checkbox,当用户选中该checkbox的时候为多关键字搜索。用户要搜索多关键字,可以这样输入:综合受理+文书流转   就是用一个半角加号来连接多个关键字。接下来用到split函数

dim keywords

keywords=split(request("keyword"))

经过上述步骤,可以得到一个包含“综合受理”和“文书流转”两个字符串的数组(一维),如果我们用

response.write(keywords)来输出,得到的显示结果是:Array(很奇怪吧)

然后利用一个for循环语句来将数组的内容转做where子句的查询条件

dim i,temp

for i=LBound(keywords) to UBound(keywords) step 1   //LowBound是获取数组的下标,UpBound是获取数组的上标

 temp=temp+"content like '%"+Cstr(keywords(i))+"%' and "

next

通过上述语句,最终的temp的内容是:

content like '%综合受理%' and content like '%文书受理%' and

后面多了一个and

因此在where子句可以增加多一个条件来结束查询语句。sql语句如下:

sql="select id,title,content from [table1] where "&temp&" id>0"

//表中的id是自动编号,肯定大于0,只是用来补充完成子句
(更多…)

标签Tags:, , ,