asp读取excel表格第x行第y列值

<%
&#39;读取x行y列
set Conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("1.xls")+";Extended Properties=&#39;Excel 8.0;HDR=no;IMEX=1&#39;"
Conn.Open strConn
function getxy(table,x,y)
sql="SELECT * FROM ["&table&"$]"
rs.Open sql,Conn,1,1
if not rs.eof then 
rs.move x-1 
getxy=rs(y-1)
else
getxy=""
end if
rs.Close
Conn.Close
set rs = Nothing
set Conn = Nothing
end function
response.write getxy("民政婚姻登记",3,4)
%>