沧州师范学院计算机系毕业论文
if ToPage>rsnews.PageCount then
rsnews.AbsolutePage=rsnews.PageCount intCurPage=rsnews.PageCount rsnews.AbsolutePage=1 intCurPage=1
rsnews.AbsolutePage=ToPage intCurPage=ToPage
elseif ToPage<=0 then
else
end if
else
rsnews.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
k=1
do while Not rsnews.eof and k<6 %>
<%for n=1 to 6%>
<% rsnews.MoveNext if rsnews.eof then exit for if rsnews.eof then exit do next %>
21
沧州师范学院计算机系毕业论文
<%k=k+1 Loop %>
日记、音乐显示模块代码段相似。 （五）歌曲播放列表 playlist.asp
<%
songid=FormatSQL(SafeRequest(\if songid=\response.Write \错误！\response.end end if
set rs=Server.CreateObject(\sql=\rs.open sql,conn,1,3
if songid=\response.Write \response.end end if %>
（六）发表留言提交内容判断模块代码 <%
if request(\if request(\dim bookname dim bookwhere dim bookpic dim bookface dim bookcontent dim booktime dim bookip
dim FoundErr,ErrMsg bookname=request(\
22
沧州师范学院计算机系毕业论文
bookwhere=request(\bookpic=request(\bookface=request(\bookshow=request(\bookcontent=request(\
bookip=request.ServerVariables(\if bookname=\
Response.Write \ Response.Write \留言昵称不能为空！');\ Response.Write \ Response.Write \
Response.End end if
if bookcontent=\
Response.Write \ Response.Write \留言内容不能为空！');\ Response.Write \ Response.Write \
Response.End end if
strArr=split(W_BookWorryNeed,\
set rs=Server.CreateObject(\sql=\rs.open sql,conn,1,3 rs.addnew
rs(\rs(\rs(\
rs(\rs(\
rs(\rs(\rs(\rs.update
23
沧州师范学院计算机系毕业论文
rs.close
Response.Write \ Response.Write \恭喜您！您已经成功提交了信息！');\ Response.Write \ Response.Write \Response.end end if %>
三、网站管理系统
（一）完成站长对网站信息管理及更新的系统，包括以下几部分： 1、管理登陆页面Index.asp 2、相册管理页面Admin_pro.asp 3、日记管理页面Admin_new.asp 4、音乐管理页面Admin_down.asp 5、留言管理页面GuestBook.asp (一) 管理登陆
管理系统的登陆页面，主要用于管理登陆和判断用户是否已注册。 1、其中判断是否是非法登陆的代码为： <%
admin_pass=md5(admin_pass)
set rs=server.createobject(\
sql=\admin_pass='\rs.open sql,conn,1,3 if rs.eof then
response.write\用户或密码错误！非管理员勿入！');\
response.write\ else
session(\ session(\
response.redirect \ end if rs.close
24
沧州师范学院计算机系毕业论文
set rs=nothing conn.close set conn=nothing end if end if %>
2、 其中验证码验证代码： <%
dim verifycode,verifycode2
verifycode=trim(Request.Form(\verifycode2=trim(Request.Form(\if verifycode<>verifycode2 then
response.write\您输入的验证码不正确！');\response.write\founderr=true else
session(\%>
（三）主要功能程序段 1、打开数据库 <%
set conn = Server.CreateObject(\conn.open \%>
2数据库查询操作
大类查讯
setrs=server.CreateObject(adodb.recordset) 只读方式打开
rs.openselectanclass,anclassidfromanclass,conn,1,1 dowhilenotrs.eof
response.writeAhref=javascriptturnX('r&rs(anclassidtarget=_blank)&') &trim(rs(anclass))&A rs.movenext loop
25