首页也是本系统程序代码最多的一页，许多功能都是通过FORM发送到首页来处理。在相关FORM中加一个名为sel的隐藏类型input标记，通过不同的sel值来告诉程序要做什么事.

当sel为denglu时，执行的是登录的操作。程序打开数据库，查询出用户名为输入用户名的那条记录，然后比较那条记录的pw列与所输入的密码是否一致，如果一致便成功登录了，此时它还将登录时间和登录次数的累加写入数据库。登录的同时也建立该用户的会话，使他可以有权遍访各项功能。当然如果没有这个用户或密码错误程序就会给出提示。

当sel为zhuxiao时，执行注销的操作。即程序关闭用户会话，使他无法再访问各项必须登录才能使用的功能。

当sel为list时，执行列出所有用户的操作。通过设定一个show变量的值来告诉下面的程序要显示用户列表。

当sel为listliuy时，执行列出留言的操作。它也是设定一个show变量的值来告诉下面的程序要显示留言列表。同时会在当前用户自己的留言旁显示删除按钮以实现删除留言的操作。

当sel为liuy时，执行的就是留言操作。它将用户的留言及留言时间写入数据库。

当sel为xiangce时，执行列出相册的操作。它与sel为list和listliuy时一样设定一个show变量来告诉下面的程序要显示相册。同时会在当前用户自己上传的图片旁边显示删除按钮以实现删除图片的操作。

当sel为shanchu时，执行删除留言的操作。在数据库中把相关留言记录删除。

当sel为shanchutiet时，执行删除图片的操作。先通过创建scripting.filesystemobject对象利用该对象的功能把相关的图片文件删除，再在数据库中把相关的图片信息删除。由于scripting.filesystemobject对象可以删除服务器上的文件，有些杀毒软件会过敏的以为它是一种病毒，显然在这里不用担心，可以忽略在这里的警报。

<%

select case request("sel")

case "denglu"

dbpath=Server.MapPath("\db")

set conn=Server.CreateObject("ADODB.Connection")

conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& dbpath &"\txl.mdb;"

set rs=Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection=conn

sql="select pw,allv from user where user='" & request("user") & "'"

rs.Source=sql

rs.Open

if rs.EOF=false then

if rs("pw")=request("pw") then

session("pass")=1

session("user")=request("user")

set cmd=Server.CreateObject("ADODB.Command")

cmd.ActiveConnection=conn

cmd.CommandText="update user set last='" & date & " " & time & "',allv='" & rs("allv")+1 & "' where user='" & session("user") & "'"

cmd.Execute

else

session("pass")=2

end if

else

session("pass")=3

end if