|
3、用户在对话框图中输入一个用户名和口令，点击确定按扭将信息返回服务器供认证使用； http://www.paper51.com
<%’通过表单得到用户写入的用户名和口令，跟数据库中的比较，如果合法则为用户开放，否则跳转登陆对话框。 copyright paper51.com
response.cookies("user")="" paper51.com response.cookies("adminok")="" 内容来自论文无忧网 www.paper51.com user=trim(request.form("user")) paper51.com pwd=trim(request.form("pwd"))%> paper51.com <%if user<>"" and pwd<>""then%> 内容来自www.paper51.com <% copyright paper51.com
set rsadm=server.createobject("adodb.recordset") http://www.paper51.com sqladm="select * from admin whereuser='"&user&"'" 内容来自www.paper51.com rsadm.open sqladm,conn,1,1 paper51.com if not rsadm.eof then 内容来自论文无忧网 www.paper51.com
if rsadm("pwd")="" then 内容来自论文无忧网 www.paper51.com response.redirect"glydl.asp" paper51.com end if paper51.com
ifpwd=rsadm("pwd") then 内容来自www.paper51.com
response.cookies("user")=rsadm("user") copyright paper51.com response.cookies("adminok")=rsadm("pwd") 内容来自www.paper51.com response.redirect"newsdl.asp" http://www.paper51.com else 内容来自www.paper51.com response.redirect "glydl.asp" 内容来自www.paper51.com end if 内容来自论文无忧网 www.paper51.com else 内容来自www.paper51.com
end if paper51.com response.redirect "glydl.asp" 内容来自www.paper51.com rsadm.close 内容来自www.paper51.com set rsadm=nothing 内容来自论文无忧网 www.paper51.com end if%> 内容来自论文无忧网 www.paper51.com <% '##检查cookies中的密码,错误侧自动返回 http://www.paper51.com set rsadm=server.createobject("adodb.recordset") http://www.paper51.com sqladm="select * from admin" 内容来自www.paper51.com
rsadm.open sqladm,conn,1,1 copyright paper51.com if request.cookies("adminok")<>rsadm("pwd")or request.cookies("adminok")="" orrequest.cookies("user")<>rsadm("user") or request.cookies("user")=""then copyright paper51.com response.redirect"glydl.asp" copyright paper51.com end if 内容来自www.paper51.com '###检查结束 http://www.paper51.com %> 内容来自论文无忧网 www.paper51.com 4．2基于ASP与HTML的非法字符的控制 内容来自www.paper51.com HTML主要以尖括号（“<”、“>”）为主要标识，ASP是以<%、%>为主要标识。为了用户能够正常浏览和防止非法破坏脚本，本系统采用了Replace函数进行字符的代换。把“<”代换成HTML的特定符号“<:”；把“>”代换成HTML的特定符号“>”。其体实现如下： 内容来自论文无忧网 www.paper51.com <% copyright paper51.com Dim sContent copyright paper51.com
sContent=RS("XXX") ‘”XXX”为用户可以输入的文本名称 paper51.com
sContent=Replace(sContent,"<","<") ‘ 把“<”代换成“<” copyright paper51.com sContent=Replace(sContent,">",">") ‘ 把“>”代换成“>” paper51.com Response.Write(sContent) ‘代换后输出该文本 paper51.com %> paper51.com 4．3 在浏览器中的格式控制 内容来自www.paper51.com 即实现根据输入文本的换行。而不是你输入了一大段的文字（中间有回车符）可是从记录中再次调出的时候就没回车符了，只是在应该换行的地方变成了空格；和多个空格的时候再次调出的时候也只有一个空格。从而把调出的文字没有一定的格式。因此也必须进字符的代换，把回车和空格也应用Replace函数代换成HTML中特定的符号，其体实现如下： 内容来自www.paper51.com <% copyright paper51.com Dim sContent paper51.com sContent=RS("XXX") ‘”XXX”为用户可以输入的文本名称 copyright paper51.com sContent=Replace(sContent,Chr(13)& Chr(10),"<Br>") ‘把“回车”代换成“<Br>” copyright paper51.com sContent=Replace(sContent,chr(32)," ") ‘把“空格”代换成“ ” 内容来自www.paper51.com Response.Write(sContent) ‘代换后输出该文本 内容来自论文无忧网 www.paper51.com
%> 内容来自论文无忧网 www.paper51.com
4．4 在线留言系统的实现设计 http://www.paper51.com 留言系统的主要功能是为实现用户与用户，用户与管理人的交流平台，为防止对数据库的破坏，必须对后台数据库的各种操作，如（修改记录、删除记录） copyright paper51.com 4.4.1留言内容的输出 http://www.paper51.com 在一个表格中从数据库中输出一条记录中所留言的内容。用循环的方式把数据库中的所有内容输出到网页中： copyright paper51.com <%do whilenot rs.eof%> paper51.com
………… 内容来自论文无忧网 www.paper51.com <%rs.movenext copyright paper51.com loop%> ‘当表中的记录没有到最后时就输出下一条记录，直到没有为止。 http://www.paper51.com 4.4.2留言内容的输出排序 paper51.com 在book 表中的留言序号ID字段的内容是采用自动编号，这样就可以每添加一条记录的时候就可以为每条记录添加一个新的编号。 paper51.com exec="select * from book order by id desc" ‘以留言的ID 升序排序数据记录，达到总是显示最新留言的目的。 copyright paper51.com 4.4.3留言内容的分页显示 http://www.paper51.com 当网页上显示数据库记录时，如果表中包含的记录比较多时，就必须分页显示这些记录。即在一个页面中显示一组指定数目的记录，并在该页面中添加一些超链接，通过超链接可以查看不同的记录组。使用PageSize指定一页中的记录数；使用Page Count 属性返回总页数；用AbsolutePage来指定当前记录所在的页。 内容来自论文无忧网 www.paper51.com <%if pagecount =1 and rs.pagecount<>pagecount then%><ahref="liuyan.asp?page=<%= cstr(pagecount+1)%>">下一页<a> 内容来自www.paper51.com <% if rs.pagecount>1 and rs.pagecount=pagecount then%><a href="liuyan.asp?page=<%= cstr(pagecount-1)%>">上一页<a><%end if%> 内容来自www.paper51.com <%if pagecount<>1 and rs.pagecount<>pagecountthen%><a href="liuyan.asp?page=<%=cstr(pagecount-1)%>">上一页<a> <ahref="liuyan.asp?page=<%=cstr(pagecount+1)%>"> http://www.paper51.com 下一页<a><%end if%> http://www.paper51.com 再次是对数据库的操作 http://www.paper51.com 4.4.4留言回复操作 paper51.com 通过超链接传递要被回复的编号，回复页面得到编号并找出对应的记录，修改表book中的lyff字段，再返回留言面页显示出回复！ paper51.com
<% copyright paper51.com exec="select * from book whereID="&request.form("ID") http://www.paper51.com set rs=server.createobject("adodb.recordset") 内容来自论文无忧网 www.paper51.com rs.open exec,conn,1,3 内容来自论文无忧网 www.paper51.com rs("lyff")=request.form("lyff") http://www.paper51.com rs.update http://www.paper51.com %> copyright paper51.com
4. 4.5留言删除操作 http://www.paper51.com 也是通过超链接传递被删除的留言编号，删除面页得到编号后查找得到对应的记录，即删除该记录并返回留言页面。 内容来自www.paper51.com <% http://www.paper51.com exec="delete * from book whereID="&request.querystring("ID") 内容来自论文无忧网 www.paper51.com response.redirect "admlookly.asp" paper51.com
%> copyright paper51.com 4．5 新闻发布系统的实现 http://www.paper51.com 4．5．1 新闻首页： copyright paper51.com 新闻的首页主要是通过新闻的标题来引导读者进入新闻的主题，所以该页面主要是从数据库中得到新闻的标题并于新闻发布的时间的先后进排序来显示在该页面上，并为每个标题加入链接进入新闻的主体部份。具体实现如下： 内容来自www.paper51.com
<% 内容来自论文无忧网 www.paper51.com
exec="select * from new order by id desc" ‘按新闻的编号的倒序排列 内容来自论文无忧网 www.paper51.com setrs=server.createobject("adodb.recordset") http://www.paper51.com rs.open exec,conn,1,1 内容来自www.paper51.com %> http://www.paper51.com
<a style="font-style: italic"href="newzhuti.asp?ID=<%=rs("ID")%>"><%=rs("biaoti")%></a> <——通过HTML中的标题链接并传递对应标题的编号到新闻的内容页面——> copyright paper51.com
4．5．2 新闻内容显示 http://www.paper51.com 本页面是根椐首页标题传递过来的编号，查找对应的记录并显示对应的记录。 内容来自论文无忧网 www.paper51.com
4．5．3 新闻的发布、删除 copyright paper51.com 即为表new中为每个字段增加、删除对应的数据。实现思想同留言本中的为添加删除记录一样。 copyright paper51.com
4．5．4 新闻的修改 内容来自www.paper51.com 新闻的发布难免会出现一些错误，本系统的修改内容初始为原有的内容，把修改后的内容重新写入数据库中。 copyright paper51.com |