admin.asp

一个简单的留言板

<%
dim fso,fileread,d
set fso=server.createobject("scripting.filesystemobject")
set fileread=fso.opentextfile(server.mappath("adminpass.asp"),1)
d=fileread.readall  '读出文件的信息存储d里
d=split(d,"^")
if(d(0)=request("user") and d(1)=request("password")) then
session("user")=d(0)
response.write "<script>alert('登陆成功\n现在你已具备\n管理此留言板\n帖子的权利');</script>"
response.write "<a href='javascript:window.close()'>关闭此窗口</a>"
else
response.write "对不起,你没有权限管理此留言板"
end if
set fso=nothing : set fileread=nothing
%>