3.1.3ɾ
Call Deleteall() Case \
Call Audall() Case \
Call Istop() Case \
Call Noistop() Case \
Call Noaud() Case \ Call Look() Case \ Call Reply() Case \ Call Savereply() Case Else
Call Show() End Select
Sub Show()
Dim auditing,adminshownum
If para(17) <=0 Then adminshownum = 1 Else
adminshownum = para(17) End If
auditing=\ 'жǷʾδ˵ If Request.QueryString(\ auditing = \
Elseif Request.QueryString(\ auditing = \
Elseif Request.QueryString(\ auditing = \ End If
Sql=\'res(sql)
17
Set Rs = Server.CreateObject(\Rs.Open Sql,Conn,1,3,1 If Rs.Eof Then
Response.Write(\ûм¼
Rs.Pagesize = \
Page = ChkNum(Request(\'ChkNum ǿתֺ If Page=\
If Page>= Rs.Pagecount Then Page=Rs.Pagecount Rs.AbsolutePage = Page
Call Numpage() 'ַҳ
ִʡԡ.
Conn.Execute \
Conn.Execute \ Next
ReturnOK(\ɹ\ Else
ReturnError(\ ѡҪɾļ¼!\ End If End Sub
Sub Audall() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\ɹ\ Else
ReturnError(\ ѡҪ˵ļ¼!\ End If End Sub
Sub Istop() Dim id,num
id = Request(\ If id<>\
18
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\ɹ\ Else
ReturnError(\ ѡҪöļ¼!\ End If End Sub
Sub Noistop() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\ɹ\ Else
ReturnError(\ ѡҪöļ¼!\ End If End Sub
Sub noaud() Dim id,num
id = Request(\ If id<>\
For Each num In Request(\
Conn.Execute \ Next
ReturnOK(\ɹ\ Else
ReturnError(\ ѡҪ˵ļ¼!\ End If End Sub%>
3.1.4ݼ
MD5㷨: ֽΣһΪּܷʽܺ˫ܡ˫Ǽ㷨õģǿֱݼΪDzֱݣȻҪʱʹһ㷨ЩԺĽΪԭġ˫ʺͨѶ磬ϹʱҪվύÿ룬ǵȻϣǵֱĴͣΪܱܿû͵ϣǵÿͨԺ紫ͣ
19
վܵǵԺͨ㷨ͿԵõȷÿ˺š
ܸպ෴ֻܶݽмܣҲ˵ûа취ԼԺݽнܡͻ룬ļʲôôܽܵļ㷨ʲôأʵеһӦþݿеûϢܣûһµ˺Ż룬Ϣֱӱ浽ݿ⣬ǾһμԺٱ棬ʹЩϢй¶ҲЩϢ塣
MD5Dzõܵļ㷨MD5ԣǺҪģһݣԺIJͬģڶһݣԺԶDzġǰߵ˼DzļԺõͬģߵ˼Ǽضݣõһͬġ ϵͳõmd5ûԱ,ʹDZݿҲDzܿ,Ϊmd5ܺDzת,ҲDzܵõʵ
Md5㷨:
ϵͳ㷨ļMd5.Aspļ
20