首页 | 大赛介绍 | 星秀奖项 | 比赛简章 | SMS投选 | 网友留言   | 精彩剪报  
网友留言
   

名字:
 
昵称:
 
地址:
 
国家 :
 
手机:
 
您的电子邮件:
 
 
 
意见:
 
 
 
 
 
 
首页 | 大赛介绍 | 参赛歌手 | 星秀奖项 | 比赛简章 | 报名表格 | 网友留言   | 精彩剪报
<% Sub OpenDatabase Dim kConnect 'sets the recordset and connection and opens the database connection set adocon = server.CreateObject("adodb.connection") kConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("singing.mdb") adocon.Open kConnect End Sub Sub CloseDatabase 'closes the recordset and database connection adorec.close set adorec = nothing adocon.close set adocon = nothing End Sub Sub connectToDB(sSQL) OpenDatabase Set adorec = adocon.Execute(sSQL) If Not adorec.EOF Then DBRows = adorec.getRows() iMax = UBound(DBRows,2) Else iMax = -1 End If CloseDatabase End Sub %>