下面zip文件：http://www.content.aspdir.co.uk/files/Article-11.zip During this article you will learn how to construct your own web poll using ASP. The article presumes you already understand basic database interaction. The following samples of code allow a user to select one of four options to a question. The user's vote is then recorded in a database and the use...[ 查看全文 ]
Function CreateNormalDB(strPathName As String) As Boolean On Error GoTo Exit_ERR Dim wrkDefault As Workspace Dim NewDB As Database CreateNormalDB = False Set wrkDefault = DBEngine.Workspaces(0) If Dir(strPathName) < "" Then Kill strPathName Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral) NewDB.Close Set NewDB = Nothing CreateNormalDB = True Exit Function...[ 查看全文 ]
我们继续接上期 在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 Public Sub ShowPage() Dim str_tmp int_totalRecord=XD_RS.RecordCount If int_totalRecord<=0 Then str_error=str_error & "总记录数为零，请输入数据" Call ShowError() End If If int_totalRecord="" Then int_TotalPage=1 Else If int_totalR...[ 查看全文 ]
