设计的选择：window.onload or other

作者: 日期: 1月 31, 2007 没有评论

在网页设计中，总要用到一些动态效果，而这些效果之中，有一些是需要页面加载完成时才可以做的，比如要给页面中的每一个链接加上hover时的特效，那么就需要在页面的所有代码已经下载完毕时再进行特效，这样才能保证页面里的每一个链接都不会遗漏。如果这步工作放在head中，那么，做与不做一个样。

再者，现在网页设计讲究行为、结构、表现分离，比如在最近的一次改版中，我把我的blog侧边栏的展开与折叠的功能放在了JS中添加，并不是在源代码里直接设置onclick事件添加好的。因为函数调用不是直接直接而是后来添加的，我就要考虑什么时候来用JS添加侧边栏的展开与折叠了。

功能的添加函数所在的脚本放在了head区引入，当然不能在脚本里直接调用这个函数来进行功能的添加，因为那个时候边栏还没有加载，用document.getElementById会出现找不到对象的错误，然后边栏的展开与折叠功能就没有。

那么，从这一点知道，功能的添加是需要在要处理的内容已经加载完成的情况下才能添加。

那什么时候侧边栏已经加载完毕了呢，许多人自然而然地就想到了window.onload。是的，在window.onload被调用时，整个页面已经加载完成，那么边栏也一定加载完毕，这个时候做添加onclick响应函数是肯定不会出现找不到对象的错误的。

<html>
<head>
<meta name="author" content="www.xujiwei.cn" />
<meta name="description" content="ue test from xujiwei" />
<title>ue test1</title>
<style type="text/css">
#blockHead {
background: blue; color: white; width: 300px; padding: 1em; cursor: pointer; border: 1px solid blue;
}
#blockContent {
border: 1px solid blue; width:
…

阅读全文 »

VBScript中变量作用域

作者: 日期: 1月 26, 2007 没有评论

下午在写程序的时候，碰到个变量重定义的问题，具体是在一个函数中的两个地方定义了相同的变量，两个变量分别放在IF语句的两部分中，本来以为这两次定义在语句中不同的块，应该没有影响，然而在运行中IIS却提示变量重定义，把重复定义去掉即正确。

解决了问题之后突然想到在Fdream的blog看过一篇文章《JavaScript变量无块级作用域》，似乎这两个是差不多的，在VBScript中变量同样没有块级作用域。

再次去看了那篇文章之后我也做了下试验，得到结果：在VBScript中，函数中定义的变量的作用域是整个函数，而不是块级，不管这个变量是在函数中哪个位置定义的。因此，函数中一个变量不管在函数的哪个位置定义，它在整个函数中都可以使用。

下面用一些例子来说明这个问题。

Option Explicit
Sub foo()
Dim var
var="hello,world!"
MsgBox var
End Sub
Call foo()

下面的代码跟上面的代码等效，但是var的定义放在了函数的最后：

Option Explicit
Sub foo()
var="hello,world!"
MsgBox var
Dim var
End Sub
Call foo()

下面的例子说明变量不管在哪定义，在整个函数中都是可以使用的，当然如果把定义的位置放的特殊一点有利于代码的清晰，阅读起来比较方便，修改时也比较方便。

Option Explicit
Sub foo()
Dim var1
var1="YES"
MsgBox "var1: "&var1&vbCrLf&"var2: "&var2
IF var1="YES"

…

阅读全文 »

[ASP] 用Server.Transfer实现博客日志的永久链接

作者: 日期: 12月 17, 2006 没有评论

在许多博客日志阅读页面里的尾部都能看到一个永久链接，这个链接一般是持久在在的，即使博客程序换了，也可以用这个链接来访问原来的日志，而不会出现找不到页面的情况，这对于一个博客的确是一个比较实用的功能。

在修改blog程序时，也考虑了这个问题，决定也给我的博客日志加上永久链接功能。

IIS6中如果请求一个目录后面跟上参数时，会把这个参数传给默认文档，即如果请求我的博客首页http://www.xujiwei.cn/blog/?id=500，那么id=500将会传递给默认文档default.asp。利用这点就可以实现博客日志的永久链接了。当然了，这个永久链接是建立在博客目录不改变的情况下，如果目录改了，就需要另外处理了。

在ASP中可以利用Response.Redirect，其原理是服务器向客户端发送一个302 Object Moved的响应，然后客户端根据响应进行转向，但这个会增加额外的带宽开销，并且不利用搜索引擎收录，所以推荐使用Server.Transfer来转向。Server.Transfer则是直接停止当前脚本的执行，转而执行指定的脚本，并且当前的一些变量如会话等均可在新脚本里直接使用，而毋须再重新进行参数传递了，而Response.Redirect则不可以。

两种方法的另外一个比较明显的区别就是使用Response.Redirect客户端显示的URL会改变，而Server.Transfer则不会，使用Server.Transfer时客户端不会感到当前URL其实已经改变。其实这个区别也可以通过两种方法的调用方法来看出来，一个是Response.Redirect由客户端做出改变，而Server.Transfer则是由服务端做出改变。

了解了这些就可以开始做了，打开博客的默认文档，一般就是博客程序的首页，如default.asp、index.asp等，然后在其有输出内容之前加上以下代码：

<%IF Request.QueryString("id") Then Server.Transfer("article.asp")%>

当然了，article.asp是要根据博客程序来做相应改变的，id即为要做为永久链接时的参数，需要注意这个参数必须为article.asp所能识别的，即article.asp可以根据这个参数来显示日志，如果不行的话就要做相应的改变，即把article.asp中的参数名称改为id，或者把id改成其他名称。

ok，完成！其实这个东西是很简单的，这么大篇幅大都是废话，真正有用的就那么一句代码^_^。

在VB中用PictureBox实现图片的缩略图浏览

作者: 日期: 12月 9, 2006 没有评论

要写一个程序，涉及到缩略图的问题，原先准备用StretchBlt来实现的，后来找了下发现PictureBox的PaintPicture方法 也可以把图像按规定大小进行缩放，试了一下感觉PaintPicture的速度比StretchBlt快一些。

PaintPicture的 函数定义为：

Sub PaintPicture(Picture As IPictureDisp, X1 As Single, Y1 As Single, [Width1], [Height1], [X2], [Y2], [Width2], [Height2], [Opcode])

X1 和Y1是目标位置，Width1和Height1是目标大小，默认是PictureBox的大小，X2和Y2是源位置，Width2和Height2是源 大小，Opcode是操作方式，默认应该是vbSrcCopy，如果Width1、Height1和Width2、Height2的大小不一样则进行缩 放。

新建一个工程，设置Form1的ScaleMode为“3 - Pixel”，往窗体上放1个FileListBox控件名称为 File1，1个ImageList控件名称为ImageList1，2个PictureBox控件，一个名称为Picture1，AutoResize 为True，Visible为False，另外一个名称为Picture2，AutoRedraw为True，Visible为False，Width和 Height为128，1个ListView控件名称为ListView1，将图像列表中普通设置为ImageList1。

在窗体里添加如 下代码：

' 窗体载入时载入图像列表
Private Sub Form_Load()
Dim i As Long
For i = 0 To File1.ListCount - 1
…

阅读全文 »

如何解决Windows Vista中无法通过锐捷认证上网的问题

作者: 日期: 11月 27, 2006 没有评论

许多学校在寝室里上网都需要一个认证软件，连上内网之后才能通过VPN上外网，而在Windows Vista下面这些个软件可能工作不正常，从而在Windows Vista里不能上网。很不幸，我们学校就是其中这一。

寝室上网需要先用锐捷连上内网，再通过VPN连接外网。刚开始的时候，弄了半天，锐捷客户端硬是不能获取网卡信息，然后在Windows Vista里右下角的网络图标提示信息显示为“未识别的网络”，然后VPN拨号不可用。

在网上翻了一大会，终于给找到了解决办法，下面是步骤：

1. 下载并安装WinPcap v4.0 beta 2

貌似要装上这个才能获取网卡信息，天空下载地址：http://www.skycn.com/soft/11534.html

2. 下载VC7运行库

后面要用的一个软件需要用到VC7运行库，不过Windows Vista目前默认并没有带，所有需要另外下载。下载压缩包后解压，把里面的文件放到X:\Windows\System32中，其中X是Windows Vista所在的盘符。

msvcr71.dll：http://www.dll-files.com/dllindex/pop.php?msvcr71

msvcp71.dll：http://www.dll-files.com/dllindex/pop.php?msvcp71

mfc71.dll：http://www.dll-files.com/dllindex/pop.php?mfc71

3. 安装锐捷客户端

这步是在Widnows XP里上网也要用的^_^。

4. 下载Mento Supplicant

因为锐捷没有出Windows Vista的版本，而Windows Vista下注册表结构变了，所以锐捷客户端读不到网卡信息，从而不能链接，而这个程序就是用来解决这个问题的。下载压缩包后把解压出来的文件放到锐捷客户端根目录。

Mento Supplicant Screenshot

5. 最后的步骤

准备工作完成了，按正常步骤修改IP、网关、子网掩网及DNS服务器。在添加路由时需要注意，要在批处理文件上右击，选择“以管理员运行”，否则会出来权限不够的提示。因为锐捷不能获取网卡信息，要用第4步中的软件来代替锐捷进行第一次拨号，在拨号之前需要把“智能”选项卡的“启用智能重连”给去掉。用Mento连接上之后，就可以用VPN连接到公网了。

在用连接内网之前，需要关闭以太网的802.1x认证，如果没有无线网卡，默认在网卡属性页中是没有“认证”选项卡的，所以不需要改这个东西，如果想确定802.1x认证是关闭的话，可以通过Win+R打开“运行”对话框，然后在里面输入services.msc打开服务管理器，再找到Wire Autoconfig这个服务，将它启动即可，这样就能在网卡属性页中看到“认证”选项卡了。

至此，已经完美解决Windows Vista下在寝室里上网的问题了，不过玩了一个小时之后发现，除了卡点，还不如用Windows XP来得爽……

AJAX应用之草稿自动保存

作者: 日期: 8月 28, 2006 没有评论

相信用过Gmail的人都知道Gmail有一个草稿自动保存的功能，每过一段时间，Gmail都会自动保存邮件草稿，这样在一些突发情况下就能快速地恢复工作，免得写了半天的邮件眨眼之间就没有了。在学了AJAX之后，我也给自己的blog加上了这个功能。当然，这个应用并不只限于blog上，应该说还是比较通用的。

PS.为了开发的方便，我用了一个自己写的AJAX类，具体内容和下载在这里。

演示地址

仍旧以代码加注释的方式来说明怎么编写。

首先是表单填写页面，用一个ID为AutoSaveMsg的DIV来显示返回信息，并且用一个ID为Draft_AutoSave的CheckBox来确定是否进行自动保存，然后将Textarea的ID命名为message。同时为了应对多用户同时使用的需要，加上用户名，每个用户的草稿分开保存。为了说明方便，我把一些修饰性的东西去掉，这样看起来比较明了：

程序代码：[ 复制代码到剪贴板 ]
  • AJAX应用之草稿自动保存<br />
  • <!-- 用户名默认为NONAME -->
  • 用户名：<input type="text" name="memName" id="memName" size="20" value="NONAME" />&nbsp;&nbsp;&nbsp;&nbsp;
  • <!-- 在自动保存选项的onclick事件中调用自动保存状态设置函数 -->
  • <input onclick="SetAutoSave();" type="checkbox" id="Draft_AutoSave" value="1" checked="true"  />自动保存？<br />
  • 内容：
  • <textarea id="message"></textarea><br />
  • <!-- AutoSaveMsg显示返回信息 -->
  • <div id="AutoSaveMsg"></div>
  • <input type="submit" value="提交内容" />&nbsp;&nbsp;
  • <!-- 调用函数恢复最后保存的草稿 -->
…

阅读全文 »

一个简单的AJAX请求类

作者: 日期: 8月 6, 2006 没有评论

在给blog加上无刷新搜索和即时验证检测后，又看了下代码，感觉太过麻烦，就把XMLHttpRequest请求封装到一个类里面，用起来方便多了，不用记那么多代码，什么创建XMLHttpRequest对象什么的，这部分代码也是重用性比较高的～已经打包，在日志的末尾下载。

要看效果的话点开侧边栏里的日志搜索，里面有一个无刷新搜索，就是了，或者在阅读日志或留言簿里的注册码那里有即时检测，如果不输入验证码或者输错了验证码，输入框都会变红的^_^

类名：AJAXRequest

创建方法：var ajaxobj=new AJAXRequest;，如果创建失败则返回false

属性：method  -  请求方法，字符串，POST或者GET，默认为POST

url         -  请求URL，字符串，默认为空

async     -  是否异步，true为异步，false为同步，默认为true

content -  请求的内容，如果请求方法为POST需要设定此属性，默认为空

callback  - 回调函数，即返回响应内容时调用的函数，默认为直接返回，回调函数有一个参数为XMLHttpRequest对象，即定义回调函数时要这样：function mycallback(xmlobj)

方法：send     -  发送请求，无参数

一个例子：

程序代码：[ 复制代码到剪贴板 ]
  • <script type="text/javascript" src="ajaxrequest.js"></script>
  • <script type="text/javascript">
  • var ajaxobj=new AJAXRequest;    // 创建AJAX对象
  • ajaxobj.method="GET";   // 设置请求方式为GET
  • ajaxobj.url="default.asp"  // URL为default.asp
  • // 设置回调函数，输出响应内容
…

阅读全文 »

AJAX初体验之实战篇——打造博客无刷新搜索

作者: 日期: 7月 28, 2006 没有评论

如果你对AJAX不是很了解，可以先看看这篇教程的前篇《AJAX初体验之上手篇》。

现在博客很流行，相信应该上网时间稍微长点的朋友都会在这或者在那的有一个自己的博客。对于一些有一定能力的朋友，可能更喜欢自己去下载一个博客程序来架设一个自己的博客，而不是使用一些博客网站提供的服务。而大部分博客程序所带的搜索功能是提交查询关键字到搜索页面，然后在后台生成搜索结果，再呈现给用户，这过程之中浪费了一些带宽，如博客的侧边栏。要节约这一些带宽，我们可以用AJAX来打造自己的无刷新日志搜索。

在本篇教程中，数据库的表名和日志查看页面以L-Blog为例，因为我的博客程序是从L-Blog修改而来^_^。

本教程中的例子已经通过实际测试，可以直接在L-Blog或FBS中使用。当然，要真正应用的话还是需要做一些美化及完善的。

在数据库中日志内容数据表名为blog_Content，其中日志ID为log_ID，日志标题为log_Title，日志查看页面为blogview.asp，参数为日志logID。有了这些资料，就可以开始创建搜索结果的XML文档模板了。在显示搜索结果时，需要显示日志的标题，以及日志的ID来创建到查看日志的链接。

搜索结果模板sample.xml

程序代码：[ 复制代码到剪贴板 ]
  • <?xml version="1.0" encoding="utf-8"?>
  • <blogsearch>
  •     <!-- 每一个reslut就是一个搜索结果 -->
  •     <result>
  •         <!-- 日志的ID -->
  •         <logid>1</logid>
  •         <!-- 日志的标题 -->
  •         <logtitle>AJAX初体验之上手篇</logtitle>
  •     </result>
  • </blogsearch>

每个result就是一个搜索结果，为了处理没有找到相关内容的情况，我定义了当搜索结果为空时logid为#。

在完成XML文档模板之后，就可以用ASP来动态生成搜索结果需要的XML文档了。搜索的关键字采用POST方式来传递。

搜索结果输出ajaxsearch.asp

程序代码：[ 复制代码到剪贴板 ]
  • <!-- #include file="commond.asp" -->
  • <!-- #include file="include/function.asp" -->
  • <%
  • ' commond.asp为数据库连接文件
  • ' function.asp中有要用到的函数CheckStr
  • Dim Search_Word,XML_Result,rsSearch,sqlSearch
  • Set rsSearch=Server.CreateObject("ADODB.RecordSet")
  • ' 获取搜索关键字
  • Search_Word=CheckStr(Trim(Request.Form("searchword")))
  • ' XML文档头
  • XML_Result="<?xml version=""1.0"" encoding=""utf-8""?><blogsearch>"
  • IF Search_Word<>Empty Then
  •     ' 创建查询SQL语句
  •     sqlSearch="SELECT log_ID,log_Title,log_Content FROM blog_Content WHERE log_Title"_
  • &" LIKE '%"&Search_Word&"%' AND log_IsShow=True ORDER BY log_ID DESC"
  •     ' 打开记录集
  •     rsSearch.open sqlSearch,Conn,1,1
…

阅读全文 »

XML+XSL+CSS+ASP打造留言簿

作者: 日期: 7月 17, 2006 没有评论

前段时间无意间看到一个博客的RSS可以用XSL格式输出并且能在Firefox里浏览，想到自己以前写的一个XML留言簿因为不兼容Firefox所不了了之了，现在看到他的能在Firefox浏览就觉得很好奇，看了一下代码，一句一句的比对，最后终于找到了原因，也就把这个留言簿给完成了。因为是一个简单的XML留言簿，所以取名SXGB(Simple XML GuestBook)。

查看留言本演示，管理密码为test：

首先定义留言簿的XML文档的格式。作为一个留言簿，不需要太复杂的内容，于是我就给留言内容分为3个部分：留言者姓名、留言者主页和留言内容。另外，一个留言簿还需要有使用者的一些信息，包括用户名和用户主页。再有，在留言比较多时还需要分页信息。大致结构完成后就可以开始写XML文档模板了。

XML文档根元素定义为gbook

XML文档模板gbook.xml

<?xml version="1.0" encoding="utf-8"?>
<!-- DTD file -->
<!DOCTYPE gbook SYSTEM "sxgb.dtd">
<!-- XSL file -->
<?xml-stylesheet type="text/xsl" href="gbook.xsl"?>
<gbook>
<!-- 留言簿相关信息 -->
<info>
<!-- 用户名 -->
<user>HotHeart</user>
<!-- 用户主页 -->
<home>http://www.xujiwei.cn</home>
<!-- 分页信息，分别为目前所在页，总页数，上一页，下一页 -->
<pagenow>1</pagenow>
<pagetotal>1</pagetotal>
<pageprev>1</pageprev>
<pagenext>2</pagenext>
<!-- 是否已经登陆，用来处理是否显示登陆框 -->
<logined>NO</logined>
…

阅读全文 »

用VB写一个你自己的Flash播放器

作者: 日期: 7月 10, 2006 没有评论

前天在PConline下了一个孙鑫的《Java从入门到精通》的视频教程，Flash格式，在看的时候感觉很不爽，每一课开始的时候有一大段广 告，而且前面的一部分颇为啰嗦，讲了乱七八糟的东西，不知道是不是因为“入门”的关系，然后就把以前做的一个Flash播放器找出来，直接跳到自己要看的 地方～

要想用VB做一个自己的Flash播放器还是比较方便的，因为Macromedia已经提供了Shockwave Flash控件， 可以方便来的播放Flash影片。要想使用这个控件，首先要在工程里添加这个控件，选中菜单“工程->部件”，找到 Shockwave Flash，打上勾，确定就可以了。另外，因为要加载Flash影片，所以我们还需要加入对话框控件 Microsoft Common Dialog Control。

做这个Flash播放器之前，先用对象浏览器来看一下 Shockwave Flash控件有哪些我们需要的事件、方法和属性。

因为我们做的Flash播放器比较简单，所以没有可以利用的控件事 件。

方法：

Sub Back()

跳 到前一帧，相当于Flash右键菜单中的快退

Function CurrentFrame() As Long

获 取当前播放的为第几帧

Sub Forward()

跳到后一帧，相当于Flash 右键菜单中的快进

Sub GotoFrame(FrameNum As Long)

跳 到指定帧，这是一个相当有用的方法，也是要做这个Flash播放器的理由之一了

Sub Play()

播 放，相当于Flash中的播放

Sub Stop()

停止，需要注意的是这个是停 止，而不是暂停，停止后再开始播放将从第1帧开始

Sub StopPlay()

暂 停，暂停后再播放是继续暂停之前的状态…

阅读全文 »