白舟空间

FSO判断本地文件是否存在-Asp

April 9th, 2009

No comments 526 views

在网上找判断远程文件是否存在的asp代码时，看到了这个代码，也顺便记录一下。

<%
url=request.querystring("url")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath(url)
If fs.FileExists(File) Then '判断url文件是否存在
Response.Write File & "文件存在"
Else
Response.Write File & "文件不存在"
End If
%>

使用时，在地址后面加 ?url=本地文件名

技术爱好 asp, fso

XMLHTTP判断远程文件是否存在-Asp

April 9th, 2009

No comments 662 views

XMLHTTP在采集建站中非常常用，用它来判断网页是否存在也是个不错的方法。今天测试这个使用方法，并做些整理。

基于asp的应用

<%
Function testURL(url)
set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",url,false
XMLHTTP.send()
'这里的200表示访问正常
‘如果是404是的话则说明页面不存在
if XMLHTTP.status=200 then
testURL = 1
Else
testURL = 0
end If
Set XMLHTTP = Nothing
End Function

if testURL("http://www.baizoo.cn/index.php")=0 then
response.write "文件不存在"
else
response.write "文件存在"
end if
%>

技术爱好 asp, xmlhttp

ASP实现域名IP查询

April 1st, 2009

No comments 1,079 views

想要在网页程序中查找域名的IP，ASP的方法据我了解有两种。

一、使用wscript.shell运行ping或者nslookup命令获取已知域名的服务器的IP。

<form method="post">
<input type=text name="name" size=60>
<input type=submit value="run">
</form>

<%if request("name")<>"" then response.write server.createobject("wscript.shell").exec(server.mappath("nslookup.exe")&" "&request.form("name")).stdout.readall%>

虽然wscript.shell组件可用。上面的代码刚开始在我电脑上测试时通过不过。
将c:\windows\system32下nslookup复制到asp文件的目录下，可以了。

方法二、使用TCPIP.DNS组件

<%Set DNS=CreateObject("TCPIP.DNS")
IP=DNS.GetIPByHost("www.baizoo.cn")%>

下载：TCPIP.DNS组件
需要注意的一点：双击安装组件的时候，默认是安装在系统盘，比如”C:\Program Files\PSTRUH\TCPIP\”，这里不要修改，否则可能无法使用。

技术爱好 asp, ip, TCPIP.DNS, 域名

PJblog转WordPress文章地址重定向

February 21st, 2009

1 comment 562 views

动态pjblog的文章是以/article.asp?id=num结尾的，转成Wordpress之后怎么样让这个地址跳转到新的可以访问到的页面呢？如/archives/num.html

因为我这个主机是apache服务器拥有mod_rewrite组件支持，所以我们可以使用mod_rewrite进行重定向。

方法：在Wordpress根目录的.htaccess文件中加入下面语句

RewriteCond %{QUERY_STRING} ^id=([0-9]+)$
RewriteRule ^(.*)$ archives/%1.html? [R=301,L]

这样就可以实现重定向了。测试之后发觉，如果在wp后台改过固定链接之后.htaccess将会被重写，这样你就需要重新修改。

下面测试一下访问这个页面的效果http://www.baizoo.cn/article.asp?id=18

mod_rewrite内容相当丰富，这么几句话就花了我很长时间去参透，其中不仅涉及Rewrite指令，还涉及正则表达式的知识。

下面有几条常见正则表达式的格式，转来参考。 Read more…

技术爱好 mod_rewrite, 重定向

用replace函数替换数据库中字符串内容

February 16th, 2009

1 comment 429 views

Mysql替换语句

update ‘表名(比如我案例中的dede_art)’ set 要修改字段名 = replace (要修改字段名,’被替换的特定字符’,'替换成的字符’)
例：

update `dede_art` set title=replace(title,' "IMG border=0 src=Images/hot.gif";','');

MSSQL替换语句：

update 表名 set 字段名=replace(cast(字段名 as varchar(8000)),’abc.com’,’123.com’)
例：

update PE_Article set Content=replace(cast(Content as varchar(8000)),
'http://news.163.com/,'http://www.baizoo.cn/')

其中PE_Article 为表名 Content为字段名 http://news.163.com/为要替换的内容 http://www.baizoo.cn/为替换后的内容。

技术爱好 DEDE

Access转MSSQL的方法整理

February 16th, 2009

No comments 361 views

使用工具ASP在线将ACCESS转MSSQL程序可实现

下面是这个工具提取出来的基本步骤，只为自己理解整个过程，和手工转换时用。
1、在mssql中建表
create table content
2、导入数据
SET IDENTITY_Insert [dbo].[Content] ON ‘允许将显式值插入表的标识列中
go
insert into content(字段……)select (Access中对应字段) from opendatasource(‘Microsoft.Jet.OLEDB.4.0′,’Data Source=”access数据库文件地址”‘)
go
SET IDENTITY_Insert [dbo].[Content] Off

网上有关于access转mssql的注意事项，转来参考： Read more…

技术爱好

ASP获取网站alexa排名的源码

February 16th, 2009

No comments 566 views

主要是用MSXML2.XMLHTTP获取页面内容的方式采集到alexa的值

如本站的真实alexa获取地址为：http://www.alexa.com/data/details/traffic_details/baizoo.cn

具体代码如下： Read more…

技术爱好 alexa, asp, 代码

IE修复小工具(修改注册表)C++版

January 17th, 2009

No comments 418 views

VC版比Delphi复杂很多，但更加完善了。不过功夫不负有心人，经过努力，这个VC版读写注册表的操作终于还是被我实现了。

方法：新建一个mfc基于对话框的应用程序，

VC中主要是API函数的属性比较多，所以感觉比较复杂，不像Delphi中Registry的Rootkey,OpenKey,WriteString,WriteInteger等方法根本就没多少参数要记。

这个程序用到了以下几个函数

RegOpenKeyEx() 打开一个指定键

RegDeleteValue() 在注册表中从一个键中删除一个值

RegSetValueEx() 向一个打开的注册表的键中存储数据

RegCloseKey() 关闭打开的注册表句柄

ShellExecute() 打开执行指定文件

其他注册表的修改与Delphi版类似

这里记录几条关键代码，用来加深印象。
打开指定键，&hkey通过引用被附了值。

RegOpenKeyEx(HKEY_CURRENT_USER,strSubKey,0,KEY_READ|KEY_WRITE,&hkey)

删除DisableRegistryTools项

RegDeleteValue(hkey,"DisableRegistryTools")

在注册表中写入内容
1、REG_DWORD型

WORD dwValue=0;
::RegSetValueEx(hkey,L"HomePage",0,REG_DWORD,(LPBYTE)&dwValue,sizeof(DWORD));

2、REG_SZ型（SZ表示string zero，是字符串型）

LPCTSTR lpszValue=_T("about:blank");
::RegSetValueEx(hkey,L"Start Page",0,REG_SZ,(CONST BYTE*)lpszValue,(lstrlen(lpszValue)+1)*sizeof(TCHAR));

遇到问题：
出现错误 error C2664: “CWnd::MessageBoxW”: 不能将参数 1 从“const char [15]”转换为“LPCTSTR”
解决方法：1、可在双引号字符串用_T(“”)引用起来 (也可以用 L”")
2、或者在工程选项里面将编码改成Not Set

程序下载下载文件点击下载此文件

这个实例可参考下面文章
http://www.cnblogs.com/kaixin110/archive/2008/01/19/1045339.html

技术爱好

IE修复小工具(Delphi版)

January 17th, 2009

No comments 575 views

电脑上装好Delphi已经好长一段时间了，一直没去玩一下，今天突然来了兴致，就打开了做了个小东西。IE修复小工具的几个按钮功能都是读写注册表的过程，方法很简单，主要是学习Delphi的使用。

该工具主要功能：
修复IE为空白页
设置IE主页
锁定IE主页
解除锁定IE主页
锁定注册表
解除注册表锁定

记录几个要点：
1、读写注册表用到了注册表类：Registry，在use中添加
2、注册表操作的一般步骤为：打开注册表、读写注册表、关闭打开的主键
3、Delphi中调用系统对话框用Application.MessageBox方法，举例：if (Application.MessageBox(‘你确定要锁定IE主页吗？’,'警告’, MB_YESNO)=IDYES) then
4、修改IE主页的注册表项：HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain下的Start Page键
5、锁定IE主页的注册表项：HKEY_CURRENT_USERSoftwarePoliciesMicrosoftInternet ExplorerControl Panel下的HomePage键值为”1″锁定，键值为” 1″则解除锁定。(此键为字符串型)
6、锁定注册表的注册表项：HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem下的键DisableRegistryTools值为1是锁定为0时是解锁。(此键值为DWORD型)

程序下载：下载文件点击下载此文件