asp将excel导入access的小问题
网上下了个excel导入access的代码，使用倒是挺方便的，但是有个小问题，想请各位大侠帮忙，就是我的excel里面有31个表，表的名称是1-31，和每天的日期相对应，比如25号，我运行这个文件的时候，就自动将表名为25的数据导入数据库，现在就是如何将Read.Open "select * from [Sheet1$]",cn,1,1 里面的Sheet1变成获取当天的日子的代码，我试了直接放一个<%=day(now())%>进去会出错，不知道到底该如何办，请各位大侠出手相助，不胜感激！



<% 
Dim cn,oConn,connstr 
'打开XLS. 
Set cn = Server.CreateObject("ADODB.Connection") 
cn.Provider = "Microsoft.Jet.OLEDB.4.0 " 
cn.ConnectionString = "Data Source=" & Server.MapPath("date.xls") & ";" & _ 
"Extended Properties=Excel 8.0;" 
cn.Open 
'打开MDB. 
connstr="DBQ="+server.MapPath("date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set oConn=server.CreateObject("ADODB.CONNECTION") 
oConn.open connstr 

'读取数据. 
set rsRead=server.CreateObject("ADODB.Recordset") 
rsRead.Open "select * from [Sheet1$]",cn,1,1  
do until rsRead.EOF 
'写入数据库. 
oConn.Execute("Insert into client(names,address,gs)Values('"& rsRead.Fields("names")&"','"& rsRead.Fields("address")&"','"& rsRead.Fields("gs")&"' ) 
rsRead.MoveNext 
loop 
%> 
<div align="center">导入成功！</div>


------解决方案--------------------
哦，我给的是c#的code了。

asp 你用这个：
rsRead.Open Replace("select * from [Sheet1$]", "1$", DatePart("d", Date()))
,cn,1,1