һ - רҵ·ĵϷƽ̨

留言板的设计与实?毕业论文) - 百度文库

Դû ʱ䣺2025/7/31 23:02:28 loading ƪĵֻ
˵ݽԤݿܲȫҪĵҪݣwordʹáword΢ź:xxxxxxxQQxxxxxx ܸṩĵл֧½⡣

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(\ûм¼

\ Else

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

留言板的设计与实?毕业论文) - 百度文库.doc ĵWordĵصԣ㸴ơ༭ղغʹӡ
ۺĿ
ĵ
Ƽ
Copyright © 2012-2023 һ Ȩ | ϵ
:վز֪ʶȨݡϢ紫ȨתصƷַȨ,һ֪ͨǣǻἰʱɾ
ͷQQxxxxxx 䣺xxxxxx@qq.com
ICP2023013149
Top