个人网站毕业论文(2) - 图文(6)

沧州师范学院计算机系毕业论文

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库个人网站毕业论文(2) - 图文(6)在线全文阅读。