MiThink 记事本

<form action="?act=save" method="post" name="form1">
  <input type="file" name="file">
  <input type="submit" name="Submit" value="提交">
</form>

<%dim files,act
files=trim(request.Form("file"))
act=trim(request.QueryString("act"))
if act="save" then
dim conn
dim conn2
dim conndb
conndb=Server.MapPath("a.mdb")
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&conndb

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&files


sql = "select * from [Sheet1$]"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn2,1,1
do while not rs.eof
sql = "insert into admin([username],[password],[fly]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"')"
conn.execute(sql)
rs.movenext
loop

response.Write("ok")

conn.close
set conn = nothing
conn2.close
set conn2 = nothing
end if
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = "0"
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
%>