% '################################################################# '# 程序名称:逍遥留言本 V1.0 '# 授权方式:免费软件 '# 作者:逍遥浪子 '# 演示及技术支持:http://www.xybook.com '# 发布时间:2005-4-8 '# 声明:本程序由逍遥浪子独立自主开发,保留所有版权。 '# 各种用途均可免费使用、自由传播,但必须保留程序代码中的版权信息。 '################################################################# %> <% '退出管理,返回留言首页 if request("action")="loginout" then session.abandon Response.Redirect ("index.asp") end if '管理登陆 if request("login")="check" then if request("admin")=admin and md5(request("password"))=password then session("login")="ok" response.write "" else response.write "" response.end end if end if function lleft(content,lef) for le=1 to len(content) if asc(mid(content,le,1))<0 then lef=lef-2 else lef=lef-1 end if if lef<=0 then exit for next lleft=left(content,le) end function %>