做的一个案子，以前没有接触过，到网上查了一下资料，asp实现的，希望有高手指正。代码如下：

[codes=vb]
<%
on error resume next
dim conn0,conn,rs,rs1,sql,sql1
set conn0=server.createobject("adodb.connection")
conn0.open "DBQ="&Server.Mappath("mingdan.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
set rs1=server.CreateObject("adodb.recordset")

Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "001.xls" )
'调用Open 方法打开数据库
Conn.Open Driver & DBPath

Sql="Select * From [Sheet1$]"
sql1="select * from mingdan"
rs1.open sql1,conn0,3,3
Set Rs=Conn.Execute(Sql)


dim i
i=0

do while not Rs.eof
'if rs("中文名")<>rs("拉丁名") then
'这个是由于excel的结构和access不一样 可以不管它 由于拉丁文名是唯一的 可以在数据库中设置一下 防止重复写入
rs1.addnew
rs1("tName")=rs("姓名")
rs1("tSex")=rs("性别")
rs1("tDate")=rs("出生日期")
rs1("tNo")=rs("身份证号码")
rs1("tAdd")=rs("身份证地址")
rs1("tZhizhong")=rs("职种")
rs1("tGuo")=rs("国别")
rs1("tDai")=rs("企业代码")
rs1.update
i=i+1
'end if
rs.movenext
loop


Rs.Close
rs1.close
Set Rs=nothing
set rs1=nothing
Conn.Close
Set Conn=Nothing
Response.Write i&"名出国人员写入成功！"
%>

[/codes]

请给这篇日志评个分吧！