我们知道的excel可以转换成一种csv格式的文件，csv的文件格式是一种只有数据和逗号相连的一种格式。主要实现代码：
<%
 stunumMax=request.QueryString("stunumMax")
 
 Dim upload,file,uploadFolder
 uploadFolder="uploadFiles/"'上传文件保存的位置
 
 
 
 set upload=new Upload_5xsoft '新建上传对象
 set file=upload.File("file_upload")'获取上传文件数据
 
 If file.fileSize<1 Then
  response.Write("<script>alert('没有获取到文件');document.location='adminStuinfoImportForm.asp';</script>")
  response.End
 End If
 
 
 filename=Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&"."&file.FileExt
 
 If InStr("csv",file.FileExt)=0 Then '限制文件上传；类型
  Response.Write("只允许上传csv格式的文件,你上传的文件是非法的文件类型"&file.FileExt)
 Else
  file.SaveAs Server.MapPath(uploadFolder&filename)
 End If
 
 
 
 csv_to_read=uploadFolder&filename
 
 set fso =  createobject("scripting.filesystemobject")
 
 set act = fso.opentextfile(server.MapPath(csv_to_read))
 
 all_text = act.readall
 
 all_text = replace(all_text,chr(13),",")
 
 all_text = replace(all_text,chr(10),",")
 
 split_text = split(all_text,",")
 
 
 If(cint(stunumMax) >= ubound(split_text)+1) Then
 
  for i=0 to ubound(split_text)
  
  split_text(i) = Trim(split_text(i))
  
  If(split_text(i)<>"") Then
  
  sql="insert into poo_FamilySurvey(stunum)values('"&split_text(i)&"')"
  
   conn.execute sql
  
  End If
   next
  
  response.Write("<script>alert('操作成功');document.location='adminStuinfoImportForm.asp';</script>")  
  
 Else
 
  response.Write("<script>alert('您导入的总人数超过了您学院应有人数');document.location='adminStuinfoImportForm.asp';</script>") 
  
 End If