ASP批量替换ACCESS数据库里的字符串

突然发现已经不用ASP好久了,昨天登录自己的逍遥峡谷(www.icoa.cn)的主机,发现空间已经超了。于是想现在用的Bluehost的主机不是无限空间吗?所以把文章中的图片全部转移到Bluehost主机上,然后在原来网站引用,岂不能省很多空间?

说做就做,我把图片全部转移到f.icoa.cn下面,然后需要把ACCESS数据库里原来的图片地址批量修改为新地址。而逍遥峡谷用的是ASP搭建的网站,所以又一次需要修改ASP代码了。网上搜了下很多方法,我感觉不是太好。于是另辟蹊径,因为需要替换的是文章中的图片地址,所以首先读取数据库中的文章内容,批量替换图片地址,然后再写回去。

假设数据库是:icoadb.mdb,数据库存储文章的表是A,字段是content;图片地址,旧的地址是../upload/xxxx.jpg,新替换的地址是f.icoa.cn/pic/xxxx.jpg。 继续阅读“ASP批量替换ACCESS数据库里的字符串”

ASP生成纯静态的页面如何做301跳转

SEOWhy论坛上,有人问ASP页面和生成的静态页面都被搜索引擎收录了,怎么办?
我给他的建议是用robots屏蔽所有asp文件:

User-agent: *
Disallow: /*.asp

还有一种办法是把ASP页面301跳转到静态页面,但是这种效果比较慢,如果可以等待推荐用301跳转的方式。

但是经过了解之后,知道对方的是用ASP页面直接生成的纯静态的页面。如果使用ASP的301跳转代码加到原来ASP页面上的话,生成静态页面会出错。

于是我想到了,用ASP读取来访用户的HTTP_USER_AGENT,然后根据这个判断如果是蜘蛛的话进行301跳转,如果是正常访客不跳转。这样就解决了生成静态页面不会出错,而蜘蛛爬行动态页面的话会进行301跳转到静态页面。

继续阅读“ASP生成纯静态的页面如何做301跳转”

An error occurred on the server when processing the URL 无法显示ASP错误解决办法

我自己在本地架设的(Vista)IIS7.0和(Win7)IIS7.5,如果ASP出现错误的话,会显示:

An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error

无法知道ASP的错误出现在哪儿,其实可以通过调整IIS的ASP设置来解决。

方法是打开IIS,然后点击ASP设置,找到调试属性→将错误发送到浏览器,将后面的False修改为True,然后点击右边的应用就可以了。
继续阅读“An error occurred on the server when processing the URL 无法显示ASP错误解决办法”

ASP利用FSO打造最简单的访问计数器

设计思路:
用一个记事本counter.txt,并在其中记录访问的次数。每次访问将里面的数字加1并保存。

实现方法:
用FSO打开记事本counter.txt,如果不存在则新建。读取其中的数据,赋值给一个变量,如果不存在则设置初始值为零。将数值写入记事本counter.txt

首先新建一个counter.asp文档,输入下面的代码,单引号后面的是注释
继续阅读“ASP利用FSO打造最简单的访问计数器”

FileSystemObject 使用案例及FSO组件详解(转)

FileSystemObject简称FSO,网站上运用FSO最多的恐怕就是生成静态页面了。
下面就将FileSystemObject即FSO组件使用案例详细贴出来,大多都是用FSO组件操作文本文件案例。

一、如何使用FSO复制文件
方法:CopyFile

调用格式:

FileSystemObject名.CopyFile 源文件, 目的文件

注意事项:

源文件:必须是已存在的文件,否则会产生“找不到源文件”的错误(错误编码:53)
目的文件:如果目的文件已存在,则将覆盖。若文件属性为“只读”或“被锁定”,则会产生“没有使用权限”的错误(错误编码:70)
源码实例:
继续阅读“FileSystemObject 使用案例及FSO组件详解(转)”

将html代码转换为文本格式输出

在学习Split的时候,我做了个例子程序也就是将关键词自动分割输出。

但是出现了个问题,那就是如果输入内容为html代码的时候,那么关键词无法正确显示并且还可能出错。

于是上网搜到了个函数Server.HTMLEncode(),可以让代码在页面里显示为源代码的形式。

根据这个情况写代码如下:

<%
ok=request.QueryString("action")
txt=server.htmlencode(Request.Form("txt"))
if ok="ok" then
%>
<%
str=Split(txt," ",-1)
%>
<%for i=0 to ubound(str)%>
第<%=(i+1)%>个关键词:<%=str(i)%><br>
继续阅读“将html代码转换为文本格式输出”