<%
'软件名称：龙品软件学生学籍网络管理系统X8.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim UUKKKK,UUKKKU,UUKKUK,UUKKUU,UUKUKK
Set UUKKUK=Response:Set UUKKKU=Request:Set UUKUKK=Session:Set UUKKKK=Application:Set UUKKUU=Server
Dim UUUUKU
Class UUUKUU
Dim UUUUUK, UUUUUU, UKKKKKK, Err
Private Sub Class_Initialize
Err = - (97 * 59 - 5722)
End Sub
Private Sub Class_Terminate
If Err < 0 Then
UUUUUK.RemoveAll
Set UUUUUK = Nothing
UUUUUU.RemoveAll
Set UUUUUU = Nothing
UUUUKU.Close
Set UUUUKU = Nothing
End If
End Sub
Public Sub UUUKUK(UUKKKKU)
Dim UKKKKUK, UKKKKUU, UKKKUKK, UKKKUKU, UKKKUUK, UKKKUUU, UKKUKKK, UKKUKKU, UKKUKUK
Dim UKKUKUU, UKKUUKK, UKKUUKU, UKKUUUK, UKKUUUU
Dim UKUKKKK, UKUKKKU
Dim UKUKKUK, UKUKKUU, UKUKUKK
If UUKKKU.TotalBytes < 1 Then
Err = (97 * 59 - 5722)
Exit Sub
End If
If UUKKKKU > 0 Then
If UUKKKU.TotalBytes > UUKKKKU Then
Err = (97 * 83 - 8049)
End If
End If
Set UUUUUK = UUKKUU.CreateObject(UUKUUU("$4C:AE:?8]s:4E:@?2CJ"))
UUUUUK.CompareMode = (97 * 59 - 5722)
Set UUUUUU = UUKKUU.CreateObject(UUKUUU("$4C:AE:?8]s:4E:@?2CJ"))
UUUUUU.CompareMode = (97 * 59 - 5722)
Set UKKUKKK = UUKKUU.CreateObject(UUKUUU("ps~sq]") & UUKUUU("$EC62>"))
Set UUUUKU = UUKKUU.CreateObject(UUKUUU("ps~sq]") & UUKUUU("$EC62>"))
UUUUKU.Type = (97 * 59 - 5722)
UUUUKU.Mode = (86 * 100 - 8597)
UUUUKU.Open
UUUUKU.Write UUKKKU.BinaryRead(UUKKKU.TotalBytes)
UUUUKU.Position = (105 * 96 - 10080)
UKKKKUK = UUUUKU.Read
UKUKKUU = UUUUKU.Size
UKKKUKK = ChrB(13) & ChrB(10)
UKKKKUU = MidB(UKKKKUK,1, InStrB(1,UKKKKUK,UKKKUKK)-1)
UKKUKKU = LenB(UKKKKUU)
UKUKKUK = UKKUKKU+ (97 * 83 - 8049)
Do
UKKKUUU = InStrB(UKUKKUK,UKKKKUK,UKKKUKK & UKKKUKK)+ (86 * 100 - 8597)
UKKUKKK.Type = (97 * 59 - 5722)
UKKUKKK.Mode = (86 * 100 - 8597)
UKKUKKK.Open
UUUUKU.Position = UKUKKUK
UUUUKU.CopyTo UKKUKKK,UKKKUUU-UKUKKUK
UKKUKKK.Position = (105 * 96 - 10080)
UKKUKKK.Type = (97 * 83 - 8049)
UKKUKKK.CharSet = UUKUUU("83ab`a")
UKKKUKU = UKKUKKK.ReadText
UKUKKUK = InStrB(UKKKUUU,UKKKKUK,UKKKKUU)- (97 * 59 - 5722)
UKUKKKK = InStr(22,UKKKUKU,UUKUUU("?2>6lQ"),1)+ (27 * 72 - 1938)
UKUKKKU = InStr(UKUKKKK,UKKKUKU,UUKUUU("Q"),0)
UKUKUKK = Mid(UKKKUKU,UKUKKKK,UKUKKKU-UKUKKKK)
If InStr(45,UKKKUKU,UUKUUU("7:=6?2>6lQ"),1) > 0 Then
Set UKKUKUK = new UUUUKK
UKUKKKK = InStr(UKUKKKU,UKKKUKU,UUKUUU("7:=6?2>6lQ"),1)+ (13 * 69 - 887)
UKUKKKU = InStr(UKUKKKK,UKKKUKU,UUKUUU("Q"),0)
UKKUUUU = Mid(UKKKUKU,UKUKKKK,UKUKKKU-UKUKKKK)
UKKUKUK.FileName = Mid(UKKUUUU,InStrRev(UKKUUUU, UUKUUU("-"))+1)
UKKUKUK.FilePath = Left(UKKUUUU,InStrRev(UKKUUUU, UUKUUU("-")))
UKKUKUK.FileExt = Mid(UKKUUUU,InStrRev(UKKUUUU, UUKUUU("]"))+1)
UKUKKKK = InStr(UKUKKKU,UKKKUKU,UUKUUU("r@?E6?E\%JA6i ,"),1)+ (71 * 30 - 2116)
UKUKKKU = InStr(UKUKKKK,UKKKUKU,vbCr)
UKKUKUK.FileType = Mid(UKKKUKU,UKUKKKK,UKUKKKU-UKUKKKK)
UKKUKUK.FileStart = UKKKUUU
UKKUKUK.FileSize = UKUKKUK -UKKKUUU - (97 * 83 - 8049)
UKKUKUK.FormName = UKUKUKK
UUUUUU.add UKUKUKK,UKKUKUK
else
UKKUKKK.Close
UKKUKKK.Type = (97 * 59 - 5722)
UKKUKKK.Mode = (86 * 100 - 8597)
UKKUKKK.Open
UUUUKU.Position = UKKKUUU
UUUUKU.CopyTo UKKUKKK,UKUKKUK-UKKKUUU- (97 * 83 - 8049)
UKKUKKK.Position = (105 * 96 - 10080)
UKKUKKK.Type = (97 * 83 - 8049)
UKKUKKK.CharSet = UUKUUU("83ab`a")
UKKUUUK = UKKUKKK.ReadText
If UUUUUK.Exists(UKUKUKK) Then
UUUUUK(UKUKUKK) = UUUUUK(UKUKUKK) & UUKUUU("[ ,") & UKKUUUK
Else
UUUUUK.Add UKUKUKK,UKKUUUK
End If
End If
UKKUKKK.Close
UKUKKUK = UKUKKUK+UKKUKKU+ (97 * 83 - 8049)
Loop Until (UKUKKUK+2) >= UKUKKUU
UKKKKUK = ""
Set UKKUKKK = Nothing
End Sub
End Class
Class UUUUKK
Dim FormName, FileName, FilePath, FileSize, FileType, FileStart, FileExt
Public Function SaveToFile(UUKKKUU)
On Error Resume Next
Dim UKUUUKK
Set UKUUUKK = CreateObject(UUKUUU("ps~sq]") & UUKUUU("$EC62>"))
UKUUUKK.Type = (97 * 59 - 5722)
UKUUUKK.Mode = (86 * 100 - 8597)
UKUUUKK.Open
UUUUKU.Position = FileStart
UUUUKU.CopyTo UKUUUKK,FileSize
UKUUUKK.SaveToFile UUKKKUU,2
UKUUUKK.Close
Set UKUUUKK = Nothing
End Function
Public Function UUKUUK
UUUUKU.Position = FileStart
UUKUUK = UUUUKU.Read(FileSize)
End Function
End Class
Function UUKUUU(ByVal UUKKKKK)
Dim UKUUUKU, UKUUUUK, UKUUUUU
UUKKKKK = Replace(UUKKKKK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKUUUUK = 1 To Len(UUKKKKK)
If UKUUUUK <> UKUUUUU Then
UKUUUKU = AscW(Mid(UUKKKKK, UKUUUUK, 1))
If UKUUUKU >= 33 And UKUUUKU <= 79 Then
UUKUUU = UUKUUU & Chr(UKUUUKU + 47)
ElseIf UKUUUKU >= 80 And UKUUUKU <= 126 Then
UUKUUU = UUKUUU & Chr(UKUUUKU - 47)
Else
UKUUUUU = UKUUUUK + 1
If Mid(UUKKKKK, UKUUUUU, 1) = UUKUUU("o") Then UUKUUU = UUKUUU & ChrW(UKUUUKU + 5) Else UUKUUU = UUKUUU & Mid(UUKKKKK, UKUUUUK, 1)
End If
End If
Next
End Function
%>