杀毒软件:KAV2010(卡巴斯基2010)
病毒库更新日期:2010-6-20 8:58:00
扫描结果:

下载后请先阅读ReadMe.txt

收到的鲜花

• hams 于 2010-07-12 08:56 送鲜花  9朵   附言：原创内容

执行顺序
   先执行InsertTestData.asp添加测试数据
   再执行Default.asp即可浏览效果  
你是这样执行的？
这些在ReadMe里已经写了，我的帖子里也说了运行前先看ReadMe.txt

oPage.SQLStr="select * From "&TableName'设置页面的SQL语句'
oPage.URLStr="default.asp?"'设置要分页的页面URL必须加?号'
加Where条件可以在这里
显示几列数据可以在SQL语句里做限制比如
oPage.SQLStr="select ID,Name,Address From "&TableName'设置页面的SQL语句'
只显示名称地址和编号
因为我的代码里并没有用固定列名的写法。

[ 本帖最后由 yms123 于 2010-7-11 21:11 编辑 ]

   '添加数据函数
   'DataAry():数据数组
   'TableName:表名
   'con:ADODB.Connection
   Function UpdateData(DataAry(),TableName,con,PramKey)
      On Error Resume Next
      Dim rsAdd,sql,i,j
      sql="select * from "&TableName&" where "&PramKey
      '选择字段后这里的SQL语句也要改，或者修改这个方法加个SQL语句参数
      Set rsAdd=CreateRecordSet(sql,con)
      FillRecordSet rsAdd,DataAry
      rsAdd.Update
      CloseRecordSet rsAdd
      IF Err.Number<>0 Then
         AddData=Err.Description
      Else
         AddData=""
      End IF
   End Function

你是怎么改的？