Option Explicit

Public b
Public index
Public TCount As Integer''时钟刷新次数

'抽签30个,点击抽签显示数字,不重复（抽一个少一个）
Private Sub Form_Load()
  Timer1.Enabled = False
  index = 1
   Randomize
  ReDim b(1 To 1) As Integer
......................

string dbname = Server.MapPath("App_Data/basketball.mdb");

        OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" + dbname);
        conn.Open();
        OleDbDataAdapter da = new OleDbDataAdapter("select qian from t_arranges where quautity<2", conn);//quautity字段表示被抽次数
        DataSet ds = new DataSet();
        da.Fill(ds, "t_table");
        DataRow[] rows = ds.Tables[0].Select();
        int counts = rows.Length;
        if (counts > 0)  
        else
        {
......................

string dbname = Server.MapPath("App_Data/basketball.mdb");

        OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" + dbname);
        conn.Open();
        OleDbDataAdapter da = new OleDbDataAdapter("select qian from t_arranges where quautity<2", conn);//quautity字段表示被抽次数
        DataSet ds = new DataSet();
        da.Fill(ds, "t_table");