(2)DeleteCdInformation.asp程序 点击每条信息后的删除键就会从表中把该条信息删除，它也调用了我们刚刚注册的组件。限于篇幅，我只把最重要的几行代码写出： 〈％ Dim CD_Info Set CD_Info =Server.CreateObject(“CD.CD_Handle”) CD_Info.Delete Request.QueryStrin(2007-11-27)
5、 IsEof方法 IsEof方法是用来判断是否还有更多的信息 其代码如下 Private Function IsEof() As Boolean IsEof = RecordSetCD.EOF End Function 6、 NextCD 方法 NextCD方法的目的是返回当前的CD信息，并将记录集的指针向下移动，这可以通过MoveNext方法和IsEof配合使(2007-11-27)
% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function bytes2BSTR(vIn) strReturn = "" For j = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,j,1)) If Th(2007-11-27)
3、 Add方法 Add方法的目的是向数据库中添加一条新的CD信息，因此它打开的记录集要求能够更新。这就不能像OpenDB中那样仅用Open打开数据集。详细的代码见下面： Private Sub Add(Id As String, Name As String, Author As String, Price As Currency, Information As S(2007-11-27)
这是动网论坛上一个朋友写的 % imgpath="default_22.gif" set pp=new imgInfo w = pp.imgW(server.mappath(imgpath)) h = pp.imgH(server.mappath(imgpath)) set pp=nothing response.write "img src='"imgpath"' border=0br宽:"w";高:"h Class imgInfo dim aso Privat(2007-11-27)
通过xmlHttp和ASP的结合，我们可以轻松完成网页的异步调用。 代码如下： 1.新建Display.asp(这是前台显示页面) 注意xmlhttp.readyState的4个属性 1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED %@ Language=VBScript % HTML HEAD META NAME="GENERATOR" Content="Micr(2007-11-27)
下面的代码是调用的DirectX的组件实现的时钟。它有三根指针，会实时地随系统时间的改变而改变。 不过我没有做刻度，因为我觉得用程序画出来的刻度不漂亮，用PHOTOSHOP画一口钟作为背景要漂亮多了。 html head title指针式时钟/title meta http-equiv="Content-Type" co(2007-11-27)
