upd.asp

学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

<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
a=Rs("a")
b=Rs("b")
c=Rs("c")
d=Rs("d")
e=Rs("e")
f=Rs("f")
g=Rs("g")
h=Rs("h")
i=Rs("i")
j=Rs("j")
k=Rs("k")
l=Rs("l")
m=Rs("m")
n=Rs("n")
o=Rs("o")
p=Rs("p")
r=Rs("r")
s=Rs("s")
t=Rs("t")
u=Rs("u")
v=Rs("v")
w=Rs("w")
x=Rs("x")
y=Rs("y")
z=Rs("z")

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

if len(a)<1 or a= null then a="." end if
if len(b)<1 or b= null then b="." end if
if len(c)<1 or c= null then c="." end if
if len(d)<1 or d= null then d="." end if
if len(e)<1 or e= null then e="." end if
if len(f)<1 or f= null then f="." end if
if len(g)<1 or g= null then g="." end if
if len(h)<1 or h=null then h="." end if
if len(i)<1 or i= null then i="." end if
if len(j)<1 or j= null then j="." end if
if len(k)<1 then k="." end if
if len(l)<1 then l="." end if
if len(m)<1 then m="." end if
if len(n)<1 then n="." end if
if len(o)<1 then o="." end if
if len(p)<1 then p="." end if
if len(q)<1 then q="." end if
if len(r)<1 then r="." end if
if len(s)<1 then s="." end if
if len(t)<1 then t="." end if
if len(u)<1 then u="." end if
if len(v)<1 then v="." end if
if len(w)<1 then w="." end if
if len(x)<1 then x="." end if
if len(y)<1 then y="." end if
if len(z)<1 then z="." end if
if len(aa)<1 then aa="." end if
if len(ab)<1 then ab="." end if
if len(ac)<1 then ac="." end if
if len(ad)<1 then ad="." end if
if len(ae)<1 then ae="." end if
if len(af)<1 then af="." end if
if len(ag)<1 then ag="." end if
if len(ah)<1 then ah="." end if
if len(ai)<1 then ai="." end if
if len(aj)<1 then aj="." end if
if len(ak)<1 then ak="." end if
if len(al)<1 then 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

%>