%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Dim ID ID = Request.QueryString("ID") Dim quote quote = chr(34) Dim cnn set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = conn_shan cnn.Open Function GetRecords(sSQL) Dim rst Set rst = Server.CreateObject("ADODB.RECORDSET") set rst.ActiveConnection = cnn rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 rst.Open sSQL ',adOpenStatic, adLockReadOnly Set GetRecords = rst END Function Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub %>
Pathway
Crosstalk
Database
|
||||||||||
Please
kindly sign our Guest book, or report
any bugs to liuxin@nus.edu.sg . Prof.
Chen Yuzong
|
||||||||||
|
||||||||||
Department
of Computational Science | National University of Singapore | Blk S17,
3 Science Drive 2, Singapore 117543
|