cs14870

DimsAsStringDimrsAsNewADODB.Recordsets="Driver={SQLServer};Database=trsip;UID=sa;PWD=oallserver;Server=10.47.1.12"conn.ConnectionString=sconn.Opentxts

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

PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimsAsStringDimrsAsNewADODB.RecordsetDimtelephoneAsStringDimtxtsqlAsStringtelephone=Trim(Text1.T