sub Page_Load
if Not IsPostBack then
BindDatalist
end if
end sub
sub BindDatalist
dim conPubs As SqlConnection
dim cmdSelect As SqlCommand
Dim dtrAuthors As SqlDataReader
Conpubs=New SqlConnection("Server=61.172.250.108;uid=888kk;pwd=01478963;database=pl")
Conpubs.open()
Dim selString as string="select * from bifen where 比赛日期<=getdate() and 比赛日期>=(getdate()-3) "
cmdSelect=New SqlCommand(selString,Conpubs)
dtrAuthors=cmdSelect.ExecuteReader()
dlstAuthors.DataSource=dtrAuthors
dlstAuthors.DataBind()
dtrAuthors.close
Conpubs.close
End Sub