DIM rs,excel,arry
'获得excel表名
excel=trim(request("name1"))
sheet=trim(request("sheet"))

'链接*.xls电子表格
DIM  conn1,strconn1

Set conn1=Server.CreateObject("ADODB.Connection")
strconn1="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath(excel)
conn1.open  strconn1
'打开电子表

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn1
rs.CursorType = 3                   
rs.LockType = 2                      
rs.Source = "Select * from ["&Sheet&"$]"
rs.Open

'打开Student表
sql="select * from Student"
set rs4=server.createobject("adodb.recordset")
rs4.open sql,conn,3,2
'开始往Student表添加数据
rs.movefirst
while Not rs.EOF
rs4.addnew
rs4("StuNum")=rs("学号")
rs4("StuName")=rs("姓名")
rs4("Grade")=rs("班级")
rs4("UserName")=rs("学号")
rs4("UserPWD")=MD5(rs("学号"),32)
rs4.update
rs.movenext
wend
rs.close
rs4.close
set rs4=nothing
set rs=nothing
conn.close
set conn=nothing
conn1.close
set conn1=nothing