论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 代写论文

一个动态文学网站(论文+程序)

5.3     搜索

内容来自www.paper51.com

图4 站内搜索界面

copyright paper51.com

此模块实现搜索功能,可以实现按文章内容、文章标题、文章作者进行关键字搜索。实现此模块功能的文件为search. asp,关键代码为: copyright paper51.com

<% end if

copyright paper51.com

if sss="全文检索" then

copyright paper51.com

setrs=server.createobject("adodb.recordset")

http://www.paper51.com

sql ="select * from article where(content like '%"&checkStr(ttt)&"%') order by dateandtimeDesc" 内容来自www.paper51.com

rs.open sql,conn,1,1%> paper51.com

<% end if       copyright paper51.com

if sss="按文章作者" then paper51.com

setrs=server.createobject("adodb.recordset")

copyright paper51.com

sql ="select * from article where(zznews like '%"&checkStr(ttt)&"%') order by dateandtimeDesc"

http://www.paper51.com

rs.open sql,conn,1,1

paper51.com

end if

内容来自www.paper51.com

%> paper51.com

    <tdbgcolor="#FFFFFF"><br>

内容来自论文无忧网 www.paper51.com

      <tablewidth="600" height="16" border="0"align="center" cellpadding="3" cellspacing="0"class="p1"  > http://www.paper51.com

       <tr> copyright paper51.com

               <td class="p1"  > copyright paper51.com

           <div align="right"><fontcolor="#FF0000">【<%=sss%>】</font>您搜索的关键字:<font color="#FF0000"><%=ttt%></font>

内容来自论文无忧网 www.paper51.com

             共有<%=rs.recordcount%>篇文章</div>   内容来自论文无忧网 www.paper51.com

         </td>

内容来自论文无忧网 www.paper51.com

             </tr>

paper51.com

           </table> http://www.paper51.com

                     <%if rs.eof and rs.bof then 

paper51.com

response.write "<p align='center'class='p1' >没有找到您需要的文章!!!"

内容来自www.paper51.com

else

paper51.com

i=0 %>

paper51.com

5.4     错误提示 paper51.com

这个模块集成了针对所有可能出现的错误的提示信息,实现此模块的文件为error.asp。部分代码为:

http://www.paper51.com

</font><fontcolor="#008000"> 内容来自www.paper51.com

<%Case"012"%></font><fontcolor="#800000">&nbsp; </font>

内容来自论文无忧网 www.paper51.com

<p><font color="#800000">  <fontcolor="#FF0000">出错了,用户名不能为空!</font></p>

内容来自www.paper51.com

</font><fontcolor="#008000"> paper51.com

<%Case"013"%></font><fontcolor="#800000">&nbsp; </font> copyright paper51.com

<p><fontcolor="#800000">  <fontcolor="#FF0000">出错了,密码不能为空!</font></p>

http://www.paper51.com

</font><fontcolor="#008000"> 内容来自www.paper51.com

例如,在登录界面中,用户名和密码不能为空,那么在源代码中(具体对应文件为CHKLOGIN.asp)加入以下语句

copyright paper51.com

if username1="" then http://www.paper51.com

response.redirect"error.asp?id=012"

paper51.com

response.end

paper51.com

end if

内容来自www.paper51.com

ifrequest.form("passwd")="" then

内容来自论文无忧网 www.paper51.com

response.redirect"error.asp?id=013"

http://www.paper51.com

response.end              //当发现username1="",即用户名为空时,转到error.asp中的<%Case "012"%>(response.redirect"error.asp?id=012"),这时error.asp显示

内容来自论文无忧网 www.paper51.com

内容来自论文无忧网 www.paper51.com

图5 错误提示界面 copyright paper51.com

5.5     管理功能 http://www.paper51.com

copyright paper51.com

图6 管理功能界面 paper51.com

在管理功能模块中,能根据登录者身份的不同而显示出不同的操作选项,管理员拥有所有权力,而审核员不能进行用户管理,普通用户不能进行用户管理和文章审核。实现此模块的文件为left.asp 内容来自论文无忧网 www.paper51.com

关键代码为:

内容来自论文无忧网 www.paper51.com

<Ahref="javascript:MenuClick(news);">个人信息</A> copyright paper51.com

      <DIV id=newsstyle="DISPLAY: none"><A copyright paper51.com

      href=reginfo.asp 内容来自www.paper51.com

     target=mainFrame>基本信息</A><BR> http://www.paper51.com

       <A href="useredit.asp" 内容来自论文无忧网 www.paper51.com

     target=mainFrame>修改信息</A><BR> 内容来自论文无忧网 www.paper51.com

      </DIV> 内容来自www.paper51.com

      <BR> 内容来自论文无忧网 www.paper51.com

     <P><B><FONT color=#ff0000>稿件管理</FONT></B><BR> paper51.com

       <A

copyright paper51.com

      href="add.asp"target=mainFrame>原创投稿</A><BR>

copyright paper51.com

       <A http://www.paper51.com

     href="javascript:MenuClick(tc);">稿件中心</A><BR> paper51.com

      <DIV id=tcstyle="DISPLAY: none"><A copyright paper51.com

     href="ok.asp"

paper51.com

     target=mainFrame>已经审核稿件</A><BR> http://www.paper51.com

       <A href="nook.asp" copyright paper51.com

      target=mainFrame>等待发表稿件</A><BR>

http://www.paper51.com

       </DIV> http://www.paper51.com

      <BR>     <P><B><FONT color=#ff0000>短信管理</FONT></B><BR>

内容来自www.paper51.com

      <Ahref="javascript:MenuClick(mess);">我的短信</A> copyright paper51.com

      <DIV id=messstyle="DISPLAY: none"><A 内容来自www.paper51.com

      href=mess.asp copyright paper51.com

     target=mainFrame>收件箱</A><BR> paper51.com

        <Ahref="mess2.asp"

内容来自www.paper51.com

     target=mainFrame>发件箱</A><BR>

paper51.com

      </DIV> 内容来自论文无忧网 www.paper51.com

      <BR>     <P><B><FONT color=#ff0000>文集管理</FONT></B><BR>

copyright paper51.com

       <A http://www.paper51.com

     href="wjedit.asp" target=mainFrame>个人文集</A> </P> 内容来自论文无忧网 www.paper51.com

<BR><% ifSession("KEY")="super" orSession("KEY")="check" then %> 内容来自论文无忧网 www.paper51.com

     <P><B><font color="#ff0000">编辑管理</font></B><br> copyright paper51.com

       <A 内容来自www.paper51.com

     href="javascript:MenuClick(admin);">编辑中心</A><BR>     //如果登录身份为管理员或审核员,则显示“编辑管理”选项

内容来自www.paper51.com

      <DIV id=adminstyle="DISPLAY: none"><A

内容来自论文无忧网 www.paper51.com

     href="admin.asp" copyright paper51.com

      target=mainFrame>浏览文章</A><BR>

内容来自论文无忧网 www.paper51.com

       <A http://www.paper51.com

     href="shenhe.asp"

copyright paper51.com

     target=mainFrame>审核文章</A><BR> http://www.paper51.com

      <% ifSession("KEY")="super" then %>

内容来自www.paper51.com

      <A

内容来自论文无忧网 www.paper51.com

     href="usermanage.asp" copyright paper51.com

     target=mainFrame>用户管理</A><BR>                   //.如果登录者身份为管理员,则显示用户管理选项 http://www.paper51.com

       <%endif%>

内容来自www.paper51.com

       </DIV>

内容来自论文无忧网 www.paper51.com

     <BR><%end if%>      <A

http://www.paper51.com

     href="logout.asp" target=_top>退出登录</A> <br>

http://www.paper51.com

5.6     站内短信功能

内容来自www.paper51.com

http://www.paper51.com

图7 收件箱界面 http://www.paper51.com

<%

http://www.paper51.com

setrs=Server.CreateObject("ADODB.RecordSet")                            内容来自论文无忧网 www.paper51.com

rs.open "Select * from message whereincept='"&session("username")&"' ORDER BY sendtimeDESC ",conn,1

paper51.com

if rs.eof or rs.bof then%> 内容来自www.paper51.com

 <tr> 

http://www.paper51.com

    <tdwidth="100%" height="14" colspan="5"> copyright paper51.com

      <palign="center">您 的 收 件 箱 里 没 有 短 消 息 !</p>  paper51.com

   </td>                               //如果message表中没有“收信人=用户名”,则显示“您 的 收 件 箱 里 没 有 短 消 息 !”

内容来自www.paper51.com

 </tr> paper51.com

<%else

paper51.com

while NOT rs.EOF 内容来自论文无忧网 www.paper51.com

%> 

copyright paper51.com

 <tr>   http://www.paper51.com

    <td width="7%"height="14">

内容来自论文无忧网 www.paper51.com

      <%ifrs("flag")=1 then %> copyright paper51.com

      <fontcolor="#FF0000">[新]</font> 内容来自论文无忧网 www.paper51.com

      <%else%> http://www.paper51.com

      [旧]                                //如果flag的值为1,则标记邮件为[新],否则标记为[旧] http://www.paper51.com

      <%end if%> 内容来自www.paper51.com

        </td> paper51.com

------分隔线----------------------------
联系方式