<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
dim action,files
action=trim(request("action"))
files=trim(request("files"))
select case action
case "add"
call add(files)
case else
call default()
end select
%>
<%sub default()%>
<form action="?action=add" method="post" id="form1" name="form1">
<table border="0" cellspacing="0" cellpadding="0">
<tr class="title2">
<td colspan="2">批量上传</td>
</tr>
<tr>
<td>1.上传Excle文件 </td>
<td><input name="files" type="hidden" id="files" />
<iframe frameborder="0" scrolling="no" height="25" width="400" src="upload.asp?action=add"></iframe> </td>
</tr>
<tr>
<td>2.点击"开始上传" </td>
<td> <label>
<input type="submit" name="button" id="button" value="开始上传" />
</label> </td>
</tr>
</table>
</form>
<%end sub%>
<%
sub add(files)
dim FileName
if files="" then ClientAlert"请先上传Excle文件","?"
FileName="../upload/file/"&files '取得文件路径
Dim connEX
set connEX=CreateObject("ADODB.connection")
connEX.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=" & server.mappath(""&FileName&"") & ";" & _
"DefaultDir=G:\"
set rs=createobject("ADODB.recordset")
rs.Open "Select * from [Sheet1$]",connEX, 2, 2
if rs.eof then
response.write "Excel表中无纪录"
else
' set connDB = Server.CreateObject("ADODB.Connection")
' DBPath = Server.MapPath("excel.mdb")
' 'RESPONSE.WRITE DBpath
' connDB.Open "driver=
