分类存档: Develop - 第13页

使用VS2005调试ASP程序

作者: 日期: 5月 12, 2007 没有评论

很早之前就在PJ的blog上看到可以用VS2005调试ASP程序，但是没有写出具体的步骤，后来一次偶尔也让我找到了方法，但是一直没把它写出来，今天就把用VS2005调试ASP程序的方法写出来，希望对写ASP程序的朋友们有用。

首先需要说明的是，我所用的环境是Win2003+IIS6，PJ用的环境是Vista+IIS7+WPF，不过我想WPF应该是无关紧要的，主要是服务器支持服务端脚本调试。在此我以IIS6为例说明怎样开启服务端脚本调试。

先打开“Internet 信息服务(IIS)管理器”，找到要开启服务端脚本调试的网站，进入属性页，进入“主目录”选项卡，点击“应用程序设置”中的“配置”，进入应用程序配置，进入“调试”选项卡，选中“启用ASP服务端脚本调试(E)”，确定即可。

图片附件

配置完IIS之后，就需要用VS2005来调试程序了。当然安装VS2005是必须的步骤，这里就不多说了。

使用VS2005调试ASP程序可以在两种情况下使用，一是程序出错时调试，一是手工加载调试。

如果想在ASP程序出错时才用VS2005进行调试，那么可以在装完VS2005之后直接测试ASP程序，如果程序出现错误，会自动提示是否使用VS2005进行调试。

图片附件

一个测试ASP程序，a=1，b=0，因此会有除0的错误，提示是否使用VS2005调试，选择是，使用新实例，如果已经打开了VS2005，则也可以直接用已经存在的实例来调试

图片附件

错误信息，可以选择中断或者继续

图片附件

中断，光标停在出错行，下部用红框标出的是变量监视窗口，可以查看当前上下文中的变量

另一种情况是在还没出错的情况下进行调试，这时需要先在浏览器中访问过需要调试的文件，因为这样ASP代码才会载入内存，然后打开VS2005，选择菜单中“工具->附加到进程”，然后选择w3wp.exe，如果在进程列表中没有找到w3wp.exe，可能是因为你还没有运行过ASP程序。

图片附件

这时可以在左边看到内存中存在的脚本文件，可以选择要调试的文件打开，然后进行下断点之类的操作，从下图可以看出，我下了个断点在a=1，运行时程序停在了a=1这一行。

图片附件

如果没有看到脚本资源管理，可以用菜单“调试->窗口->脚本资源管理器”来打开，或者使用快捷键Ctrl+Alt+N。

至此，我们就可以使用VS2005来调试ASP程序了，相信这会在ASP程序开发过程中给大家带来很大的方便。

[ASP] 在JScript中使用RecordSet对象的GetRows方法

作者: 日期: 3月 11, 2007 1 条评论

写ASP程序时，一般情况总是使用的VBScript，不过也不只是这一种选择，也可以用JScript。但在用JScript作为ASP的语言时，比用VBScript有一些小小的不方便，比如RecordSet的GetRows方法。

在ASP中操作数据库，一般都要用到RecordSet对象，如果注重程序效率的话，可能就会用到RecordSet对象的GetRows方法，把记录集对象转换成数组，而操作数组在速度上将比用RecordSet对象的MoveNext方法快很多，而且可以在取出数组后尽早释放RecordSet对象，从而减少资源的占用，这也是优化ASP性能的一个方法。

在VBScript里，用RecordSet.GetRows方法取到的是一个二维数组，里面的数据可以通过遍历数组的方式来取得。

假设现在有一个数据库，其中有一个表名为mytable，有3个字段，名称分别为id,first,second。

程序代码：[ 复制代码到剪贴板 ]
  • ' code by xujiwei
  • ' http://www.xujiwei.cn/
  • ' 定义变量
  • Dim conn,rs,data,recN,i
  • ' 连接数据库
  • Set conn=Server.CreateObject("ADODB.Connection")
  • conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
  • Server.MapPath("data.mdb")
  • ' 获取记录集
  • Set rs=conn.Execute("SELECT id,first,second FROM mytable")
  • ' 获取数据数组
  • data=rs.GetRows()
  • ' 关闭记录集，释放对象
  • rs.Close()
  • Set rs=Nothing
  • ' 获取记录数
  • recN=UBound(data,2)
  • ' 循环输出数据
  • For i=0 To 
…

阅读全文 »

[JavaScript] setTimeout和setInterval的浏览器兼容性

作者: 日期: 2月 15, 2007 1 条评论

无意中测试AJAXRequest浏览器兼容性的时候，发现AJAXRequest.update方法在某些情况下在IE里有问题，经过测试找到是setTimeout和setInterval的问题。

问题出现在当调用AJAXRequest.update方法时，如果带了更新间隔及更新次数，那么在IE下面就会出现问题，具体表现为带了更新间隔时是函数工作，带上更新次数时函数无法在更新指定次数后停止执行。

测试几个例子之后找到了问题所在，在IE里，setTimeout和setInterval是不支持参数传递的。

演示地址：http://www.xujiwei.cn/demo/usetimer/

在Netscape的JavaScript参考中找到setTimeout的语法如下：

setTimeout

Evaluates an expression or calls a function once after a specified number of milliseconds elapses.

语法

setTimeout(expression, msec)

setTimeout(function, msec, arg1, ..., argN)

参数

expression  A string containing a JavaScript expression.

msec  A numeric value or numeric string, in 

…

阅读全文 »

设计的选择：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
…

阅读全文 »

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
…

阅读全文 »