<%
%>
<%
'退出管理，返回留言首页
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
%>
<%=sitename%>
<%
if session("login")<>"ok" then
%>
<%
else
action=request("action")
'管理首页
if action="" then%>
<%
call listPages()
end if
if request("action")="删除" then
delid=replace(request("id"),"'","")
call delfeedback()
end if
if request("action")="replay" then
id=request("id")
call detailfeedback()
end if
if request("action")="setup" then
call setup()
end if
end if
%>
