数据库时SqlServer。代码很简单。大家看看吧。

Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim s As String Dim rs As New ADODB.Recordset Dim telephone As String Dim txtsql As String telephone = Trim(Text1.Text) '******************************************************************************************* s = "Dr

Dim s As String Dim rs As New ADODB.Recordset s = "Driver={SQL Server}; Database=trsip; UID=sa; PWD=oallserver; Server=10.47.1.12 " conn.ConnectionString = s conn.Open txtsql = "select top 1 * from book" Set rs = New ADODB.Recordset rs.Open txtsql, conn, _ adOpenKeyset, _ adLockOptimistic

asp分页程序，下下看看，感觉好用，我用了，挺好的！