强智教务管理系统改成绩

浏览： ℃

字体：大中小

发布时间：2015-09-06 14:10:03

来源：

强智教务管理系统的登陆页面login.asp中有如下代码：

`01`	`SQL =` `"Select s_LoginMaxSum from Sys_Config "`

`02`	`Set` `Rs = Conn.execute(SQL,,1)`

`03`	`LoginMaxSum = 0`

`04`	`if` `Not` `Rs.eof then`

`05`	`if Isnull(Rs("s_LoginMaxSum")) then`

`06`	`LoginMaxSum = 0`

07 else

`08`	`LoginMaxSum = Rs("s_LoginMaxSum")`

`09`	`End` `if`

`10`	`if isnull(Rs("s_LoginYs")) then`

`11`	`End` `if`

`12`	`Rs.close`

`13`	`'以上代码获取系统允许登陆的上限人数`

14

`15`	`SQL =` `"Select LoginSum from LoginSum "`

`16`	`Set` `Rs = Conn.execute(SQL,,1)`

`17`	`LoginSum = 0`

`18`	`if` `Not` `Rs.eof then`

`19`	`LoginSum = Rs("LoginSum")`

`20`	`End` `if`

`21`	`Rs.close`

`22`	`Set` `Rs =` `Nothing`

`23`	`'以上代码用于获取当前登录的用户数`

24

`25`	`if cint(LoginMaxSum) > 0 then`

26

`27`	`if AccessID =` `""` `then`

`28`	`AccessID = makefilename()`

`29`	`SQL =` `"Insert Into UserAccess(AccessID,AccessTime) values('"` `& AccessID &` `"','"` `& Now() &"')"`

`30`	`Conn.Execute SQL,,129`

31

`32`	`SQL =` `"Select Count(*) as AccessOrder From UserAccess "`

`33`	`Set` `Rs = Conn.Execute(SQL,,1)`

`34`	`if Isnull(Rs("AccessOrder")) then`

`35`	`AccessOrder = 1` `'Rs("AccessOrder")`

36 else

`37`	`AccessOrder = Rs("AccessOrder")`

`38`	`End` `if`

39 else

40

`41`	`SQL =` `"Delete UserAccess Where AccessID = '"` `& AccessID &` `"'"`

`42`	`Conn.Execute SQL,,129`

`43`	`Session("CanNotDelUserAccess") =` `"OK"`

`44`	`SQL =` `"Insert Into UserAccess(AccessID,AccessTime) values('"` `& AccessID &` `"','"` `& Now() &"')"`

`45`	`on error resume next`

`46`	`Conn.Execute SQL,,129`

`47`	`on error goto 0`

48

`49`	`SQL =` `"Select Count(*) as AccessOrder from UserAccess Where AccessID <= '"` `& AccessID &"'"`

`50`	`Set` `Rs = Conn.Execute(SQL,,1)`

`51`	`' response.write sql`

`52`	`if Isnull(Rs("AccessOrder")) then`

`53`	`AccessOrder = 1` `'Rs("AccessOrder")`

54 else

`55`	`AccessOrder = Rs("AccessOrder")`

`56`	`End` `if`

57

`58`	`End` `if`

`59`	`Rs.close`

`60`	`Set` `Rs =` `Nothing`

`61`	`AccessOrder_ys = AccessOrder`

`62`	`AccessOrder = Cint(AccessOrder) - (cint(LoginMaxSum) - Cint (LoginSum))`

`63`	`if AccessOrder <=10 then AccessOrder =0`

64 else

`65`	`AccessID = makefilename()`

`66`	`AccessOrder = 0`

67 end if

`68`	`'上面的代码的作用就是限制登陆人数，当用户访问login.asp页面时，会给用户分配一个AccessID，该值为用户访问系统的时间，然后通过改值得大小分配给用户一个AccessOrder，这个值就是用户的排队顺序号。然后系统通过简单计算AccessOrder-(LoginMaxSum-LoginSum)来判断用户当前是否可以登录。'`

通过分析，只要将登陆页面中与AccessOrder有关的服务器端代码删去，然后直接提交用户的数据表单就可以实现不排队登陆了~

更多信息来自东方联盟网：http://www.vm888.com

>更多相关文章