?? stuioadd.asp
字號:
<% Set hdobj = Server.CreateObject("HD.ComOpen")'請保證此行在最前面
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>紅笛軟件</title>
</head>
<body>
<div align="center">
<%
Connkaa = hdobj.WeekaaConn()
IdN = Request.QueryString("ID")
Set rsel = Server.CreateObject("adodb.recordset")
sqlel = "Select * From student Where ID=" + IdN
rsel.Open sqlel, Connkaa, 1, 3
If Not rsel.EOF Then
DeA = rsel("a")
DeB = rsel("b")
DeC = rsel("c")
DeD = rsel("d")
DeE = rsel("e")
DeF = rsel("f")
DeG = rsel("g")
DeH = rsel("h")
DeI = rsel("i")
DeJ = rsel("j")
DeK = rsel("k")
DeL = rsel("l")
DeM = rsel("m")
DeN = rsel("n")
DeO = rsel("o")
DeP = rsel("p")
DeQ = rsel("q")
DeR = rsel("r")
DeS = rsel("s")
DeT = rsel("t")
DeU = rsel("u")
DeV = rsel("v")
DeW = rsel("w")
DeX = rsel("x")
DeY = rsel("y")
DeZ = rsel("z")
DeeA = rsel("aa")
DeeB = rsel("ab")
DeeC = rsel("ac")
DeeD = rsel("ad")
DeeE = rsel("ae")
DeeF = rsel("af")
DeeG = rsel("ag")
DeeH = rsel("ah")
DeeI = rsel("ai")
DeeJ = rsel("aj")
DeeK = rsel("ak")
DeeL = rsel("al")
DeeM = rsel("am")
DeeN = rsel("an")
DeeO = rsel("ao")
DeeP = rsel("ap")
DeeQ = rsel("aq")
DeeR = rsel("ar")
DeeS = rsel("sa")
DeeT = rsel("ta")
DeeU = rsel("au")
DeeV = rsel("av")
DeeW = rsel("aw")
DeeX = rsel("ax")
DeeY = rsel("ay")
DeeZ = rsel("az")
rsel.Delete
rsel.Update
End If
Set rsal = Server.CreateObject("adodb.recordset")
sqlal = "Select * From studentOut Where (IDD is null)"
rsal.Open sqlal, Connkaa, 1, 3
rsal.AddNew
rsal("ID") = IdN
rsal("a") = DeA
rsal("b") = DeB
rsal("c") = DeC
rsal("d") = DeD
rsal("e") = DeE
rsal("f") = DeF
rsal("g") = DeG
rsal("h") = DeH
rsal("i") = DeI
rsal("j") = DeJ
rsal("k") = DeK
rsal("l") = DeL
rsal("m") = DeM
rsal("n") = DeN
rsal("o") = DeO
rsal("p") = DeP
rsal("q") = DeQ
rsal("r") = DeR
rsal("s") = DeS
rsal("t") = DeT
rsal("u") = DeU
rsal("v") = DeV
rsal("w") = DeW
rsal("x") = DeX
rsal("y") = DeY
rsal("z") = DeZ
rsal("aa") = DeeA
rsal("ab") = DeeB
rsal("ac") = DeeC
rsal("ad") = DeeD
rsal("ae") = DeeE
rsal("af") = DeeF
rsal("ag") = DeeG
rsal("ah") = DeeH
rsal("ai") = DeeI
rsal("aj") = DeeJ
rsal("ak") = DeeK
rsal("al") = DeeL
rsal("am") = DeeM
rsal("an") = DeeN
rsal("ao") = DeeO
rsal("ap") = DeeP
rsal("aq") = DeeQ
rsal("ar") = DeeR
rsal("sa") = DeeS
rsal("ta") = DeeT
rsal("au") = DeeU
rsal("av") = DeeV
rsal("aw") = DeeW
rsal("ax") = DeeX
rsal("ay") = DeeY
rsal("az") = DeeZ
rsal("nam") = Session("AdminUser")
rsal("tim") = Now()
rsal.Update
rsal.Close
Dim Urs, sqlUrs, User_p
User_p = lista & "移動數據" & IdN & "到" & listb
User_p = User_p + IdNo
Ulr = Request.ServerVariables("URL")
Set Urs = Server.CreateObject("ADODB.RecordSet")
sqlUrs = "Select * From [LogInfo] Where (ID is null)"
Urs.Open sqlUrs, Connkaa, 1, 3
Urs.AddNew
Urs("a") = Session("AdminUser")
Urs("b") = Now()
Urs("c") = User_p
Urs("d") = Request.ServerVariables("REMOTE_ADDR")
Urs("e") = Ulr
Urs.Update
Urs.Close
Set Urs = Nothing
response.write DeC
%>
離校手續辦理完畢!</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -