📄 stuioadd.asp

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

💻 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 + -