index.aspx

蓝丽Net留言系统说明手册 1:蓝丽Net留言系统亮点提示 蓝丽Net留言系统虽然开发的时间较短

<%@page contenttype='text/xml'%>
<%@import namespace='system.data'%>
<%@import namespace='system.data.oledb'%>
<?xml version='1.0' encoding='gb2312'?>
<?xml-stylesheet type='text/xsl' href='theindex.xsl'?>
<!--
<META name="GENERATOR" content="网络程序员伴侣(Lshdic)2004_星钻超爽版"/>
-->
<%
dim conn1=ConfigurationSettings.AppSettings("databaseconn") & server.mappath(ConfigurationSettings.AppSettings("databasepath"))   '得到web.config中数据库的完整路径
if session("lshdic")<>"" then session("lshdic")="yes"  '在次赋予 SESSION 20分钟生命

if request.form("dels")<>"" and session("lshdic")<>"" then           '****记录删除操作-开始****,本作业前管理员已认证，无需考虑删除ID有错
dim str1=split(request.form("dels"),",")
dim r as integer,str2 as string
str2=" where id=" & str1(0) & " or link=" & str1(0)
for r=1 to ubound(str1)
str2+=" or id=" & str1(r) & " or link=" & str1(r)
next
dim link2=new oledbconnection(conn1)
link2.open()
dim com2=new oledbcommand("delete from table1" & str2,link2)
com2.executereader()
com2=nothing:link2.close():link2=nothing
end if                                     '****记录删除操作-结束****

dim oldtime=timer()
dim link1=new oledbconnection(conn1)
link1.open()

dim com0=new oledbcommand("select count(id) from table1 where link=0",link1)
'分页逻辑（原创，怀疑自己那些老ASP分页经验竟能一点点的组织出来，效率还算是快吧~~）
dim counts=com0.executescalar()       '就得这么得到记录总数：（
dim page=request.querystring("page")  '当前页码
dim pagesize=8                        '一页显示的记录数
if page="" then                       '当前页码纠错判断
page=1
else
on error resume next
page=cint(page)
if err.number<>0 then page=1
if page<1 then page=1                                      '页码过小时调整为第一页
if page>counts/pagesize then page=fix(counts/pagesize)+1   '页码过大时仅所能调整为最后的一页
end if
dim startnumber=page*pagesize-pagesize         '求分页的记录条起始号码,当前页*1页显示的条数-1页显示的条数
dim pagecount=fix(counts/pagesize)
if counts mod pagesize<>0 then pagecount+=1    '求得共有多少页（本例有余数则多加一页）

link1.close():link1.open()
dim com1=new oledbcommand("select * from table1 where link=0 order by gengxindates desc",link1)
dim rs=com1.executereader()

dim isadmin as boolean
if session("lshdic")<>"" then isadmin=true else isadmin=false
%>

<document title="蓝丽Net留言系统1.0" allrecord="<%=counts%>" page="<%=page%>" pagesize="<%=pagesize%>" pagecount="<%=pagecount%>" admin="<%=isadmin%>">
<%
dim i as integer               '定义一个游标向前时记数作用的游标
while rs.read()
i+=1:if i-startnumber>pagesize then exit while  '输出够pagesize条记录后，EXIT
if i>startnumber then          '可以输出时
%>
<record>
<id><%=rs.item("id")%></id>
<liuyanzuozhe><%=server.HTMLEncode(replace(rs.item("liuyanzuozhe"),"&$39;","'"))%></liuyanzuozhe>
<sex><%=rs.item("sex")%></sex>
<title><%=server.HTMLEncode(replace(rs.item("title"),"&$39;","'"))%></title>
<reply><%=rs.item("reply")%></reply>
<homepage><%if typename(rs.item("homepage"))<>"DBNull" then response.write(server.HTMLEncode(rs.item("homepage")))%></homepage>
<email><%if typename(rs.item("email"))<>"DBNull" then response.write(server.HTMLEncode(rs.item("email")))%></email>
<oicq><%=rs.item("oicq")%></oicq>
<address><%if typename(rs.item("address"))<>"DBNull" then response.write(server.HTMLEncode(rs.item("address")))%></address>
<dates><%=cdate(rs.item("dates")).toString("yyyy-MM-dd HH:mm")%></dates>
<noopen><%=rs.item("noopen")%></noopen>
</record>
<%
end if
end while
rs.close():link1.close():com1=nothing:rs=nothing:link1=nothing  '最好都卸掉
%>
<usetime>程序耗时:<%=formatnumber((timer-oldtime)*1000,3)%>毫秒</usetime>
</document>