<style type="text/css">
<!--
body {
	background-color: #Dee7FF;
}
-->
</style><%
ii=0
Set hdobj = Server.CreateObject("HD.comOpen")'請保證此行在最前面
Conn = hdobj.WeekaaConn()
InBiaoName=session("InBiaoName")
lu=request.QueryString("Excelname")

Set Con = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath(lu)
Con.Open Driver & DBPath
Sql="Select * From [Sheet1$]"' where id=1"
Set Rs=Con.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "<br><br><br><br><br><br><div align='center'>沒有找到您要導入的數據!!</div>"
Else
Do While Not Rs.EOF

if len(""& Rs("a"))=0 then
a="."
else  
a=Rs("a")
end if
if len(""& Rs("b"))=0 then
b="."
else  
b=Rs("b")
end if
if len(""& Rs("c"))=0 then
c="."
else  
c=Rs("c")
end if
if len(""& Rs("d"))=0 then
d="."
else  
d=Rs("d")
end if
if len(""& Rs("e"))=0 then
e="."
else  
e=Rs("e")
end if
if len(""& Rs("f"))=0 then
f="."
else  
f=Rs("f")
end if
if len(""& Rs("g"))=0 then
g="."
else  
g=Rs("g")
end if
if len(""& Rs("h"))=0 then
h="."
else  
h=Rs("h")
end if
if len(""& Rs("i"))=0 then
i="."
else  
i=Rs("i")
end if
if len(""& Rs("j"))=0 then
j="."
else  
j=Rs("j")
end if
if len(""& Rs("k"))=0 then
k="."
else  
k=Rs("k")
end if
if len(""& Rs("l"))=0 then
l="."
else  
l=Rs("l")
end if
if len(""& Rs("m"))=0 then
m="."
else  
m=Rs("m")
end if
if len(""& Rs("n"))=0 then
n="."
else  
n=Rs("n")
end if
if len(""& Rs("o"))=0 then
o="."
else  
o=Rs("o")
end if
if len(""& Rs("p"))=0 then
p="."
else  
p=Rs("p")
end if
if len(""& Rs("q"))=0 then
q="."
else  
q=Rs("q")
end if
if len(""& Rs("r"))=0 then
r="."
else  
r=Rs("r")
end if
if len(""& Rs("s"))=0 then
s="."
else  
s=Rs("s")
end if
if len(""& Rs("t"))=0 then
t="."
else  
t=Rs("t")
end if
if len(""& Rs("u"))=0 then
u="."
else  
u=Rs("u")
end if
if len(""& Rs("v"))=0 then
v="."
else  
v=Rs("v")
end if
if len(""& Rs("w"))=0 then
w="."
else  
w=Rs("w")
end if
if len(""& Rs("x"))=0 then
x="."
else  
x=Rs("x")
end if
if len(""& Rs("y"))=0 then
y="."
else  
y=Rs("y")
end if
if len(""& Rs("z"))=0 then
z="."
else  
z=Rs("z")
end if

if len(""& Rs("aa"))=0 then
aa="."
else  
aa=Rs("aa")
end if
if len(""& Rs("ab"))=0 then
ab="."
else  
ab=Rs("ab")
end if
if len(""& Rs("ac"))=0 then
ac="."
else  
ac=Rs("ac")
end if
if len(""& Rs("ad"))=0 then
ad="."
else  
ad=Rs("ad")
end if
if len(""& Rs("ae"))=0 then
ae="."
else  
ae=Rs("ae")
end if
if len(""& Rs("af"))=0 then
af="."
else  
af=Rs("af")
end if
if len(""& Rs("ag"))=0 then
ag="."
else  
ag=Rs("ag")
end if
if len(""& Rs("ah"))=0 then
ah="."
else  
ah=Rs("ah")
end if
if len(""& Rs("ai"))=0 then
ai="."
else  
ai=Rs("ai")
end if
if len(""& Rs("aj"))=0 then
aj="."
else  
aj=Rs("aj")
end if
if len(""& Rs("ak"))=0 then
ak="."
else  
ak=Rs("ak")
end if
if len(""& Rs("al"))=0 then
al="."
else  
al=Rs("al")
end if





Set payadd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From "& InBiaoName &" Where a='"&a&"'"
payadd.Open Sql,conn,1,3
if payadd.eof then
payadd.addNew
if InBiaoName="studentOut" then
payadd("ID") = rsID
end if
payadd("a") = a
payadd("b") = b
payadd("c") = c
payadd("d") = d
payadd("e") = e
payadd("f") = f
payadd("g") = g
payadd("h") = h
payadd("i") = i
payadd("j") = j
payadd("k") = k
payadd("l") = l
payadd("m") = m
payadd("n") = n
payadd("o") = o
payadd("p") = p
payadd("q") = q
payadd("r") = r
payadd("s") = s
payadd("t") = t
payadd("u") = u
payadd("v") = v
payadd("w") = w
payadd("x") = x
payadd("y") = y
payadd("z") = z

payadd("aa") = aa
payadd("ab") = ab
payadd("ac") = ac
payadd("ad") = ad
payadd("ae") = ae
payadd("af") = af
payadd("ag") = ag
payadd("ah") = ah
payadd("ai") = ai
payadd("aj") = aj
payadd("ak") = ak
payadd("al") = al
payadd("pass") = "d33o9ef9ebefsf9g9eoe"

payadd("nam") = session("AdminUser")
payadd("tim") = now()
ii=ii+1
payadd.Update
payadd.close
set payadd=nothing
else
Response.write "系統內已經有編號為："
Response.write a
Response.write "人，請核查<br>"

payadd.close
set payadd=nothing
end if
Rs.MoveNext
Loop
Response.write "<br><br><br><br><br><div align='center'>成功導入"&ii&"人，請從管理系統內修改導入的數據!!</div>"
End IF
Rs.Close
Set Rs=nothing

%>