|
5.3 搜索
copyright paper51.com 图4 站内搜索界面 paper51.com 此模块实现搜索功能，可以实现按文章内容、文章标题、文章作者进行关键字搜索。实现此模块功能的文件为search. asp,关键代码为： paper51.com <% end if 内容来自论文无忧网 www.paper51.com if sss="全文检索" then http://www.paper51.com setrs=server.createobject("adodb.recordset") paper51.com sql ="select * from article where(content like '%"&checkStr(ttt)&"%') order by dateandtimeDesc" paper51.com rs.open sql,conn,1,1%> 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(zznews like '%"&checkStr(ttt)&"%') order by dateandtimeDesc" 内容来自论文无忧网 www.paper51.com rs.open sql,conn,1,1 copyright paper51.com end if copyright paper51.com %> paper51.com <tdbgcolor="#FFFFFF"><br> paper51.com <tablewidth="600" height="16" border="0"align="center" cellpadding="3" cellspacing="0"class="p1" > 内容来自论文无忧网 www.paper51.com
<tr> http://www.paper51.com <td class="p1" > copyright paper51.com <div align="right"><fontcolor="#FF0000">【<%=sss%>】</font>您搜索的关键字：<font color="#FF0000"><%=ttt%></font> paper51.com 共有<%=rs.recordcount%>篇文章</div> paper51.com </td> copyright paper51.com
</tr> paper51.com
</table> copyright paper51.com <%if rs.eof and rs.bof then 内容来自www.paper51.com response.write "<p align='center'class='p1' >没有找到您需要的文章！！！" copyright paper51.com else 内容来自www.paper51.com
i=0 %> copyright paper51.com
5.4 错误提示 内容来自www.paper51.com 这个模块集成了针对所有可能出现的错误的提示信息，实现此模块的文件为error.asp。部分代码为： 内容来自论文无忧网 www.paper51.com </font><fontcolor="#008000"> 内容来自www.paper51.com <%Case"012"%></font><fontcolor="#800000"> </font> http://www.paper51.com
<p><font color="#800000"> <fontcolor="#FF0000">出错了，用户名不能为空！</font></p> 内容来自论文无忧网 www.paper51.com </font><fontcolor="#008000"> 内容来自www.paper51.com <%Case"013"%></font><fontcolor="#800000"> </font> paper51.com <p><fontcolor="#800000"> <fontcolor="#FF0000">出错了，密码不能为空！</font></p> http://www.paper51.com </font><fontcolor="#008000"> 内容来自www.paper51.com 例如，在登录界面中，用户名和密码不能为空，那么在源代码中(具体对应文件为CHKLOGIN.asp)加入以下语句 内容来自www.paper51.com if username1="" then 内容来自论文无忧网 www.paper51.com response.redirect"error.asp?id=012" 内容来自www.paper51.com response.end 内容来自www.paper51.com
end if paper51.com ifrequest.form("passwd")="" then http://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
copyright paper51.com
图5 错误提示界面 copyright paper51.com 5.5 管理功能 paper51.com
http://www.paper51.com
图6 管理功能界面 内容来自www.paper51.com
在管理功能模块中，能根据登录者身份的不同而显示出不同的操作选项，管理员拥有所有权力，而审核员不能进行用户管理，普通用户不能进行用户管理和文章审核。实现此模块的文件为left.asp 内容来自www.paper51.com 关键代码为： copyright paper51.com <Ahref="javascript:MenuClick(news);">个人信息</A> 内容来自www.paper51.com
<DIV id=newsstyle="DISPLAY: none"><A paper51.com href=reginfo.asp paper51.com target=mainFrame>基本信息</A><BR> http://www.paper51.com
<A href="useredit.asp" http://www.paper51.com target=mainFrame>修改信息</A><BR> 内容来自www.paper51.com
</DIV> copyright paper51.com <BR> http://www.paper51.com
<P><B><FONT color=#ff0000>稿件管理</FONT></B><BR> paper51.com
<A copyright paper51.com href="add.asp"target=mainFrame>原创投稿</A><BR> paper51.com <A http://www.paper51.com href="javascript:MenuClick(tc);">稿件中心</A><BR> paper51.com <DIV id=tcstyle="DISPLAY: none"><A paper51.com href="ok.asp" 内容来自www.paper51.com target=mainFrame>已经审核稿件</A><BR> paper51.com <A href="nook.asp" 内容来自论文无忧网 www.paper51.com
target=mainFrame>等待发表稿件</A><BR> 内容来自论文无忧网 www.paper51.com </DIV> copyright paper51.com <BR> <P><B><FONT color=#ff0000>短信管理</FONT></B><BR> copyright paper51.com <Ahref="javascript:MenuClick(mess);">我的短信</A> copyright paper51.com <DIV id=messstyle="DISPLAY: none"><A 内容来自论文无忧网 www.paper51.com href=mess.asp http://www.paper51.com target=mainFrame>收件箱</A><BR> copyright paper51.com
<Ahref="mess2.asp" copyright paper51.com target=mainFrame>发件箱</A><BR> copyright paper51.com
</DIV> paper51.com <BR> <P><B><FONT color=#ff0000>文集管理</FONT></B><BR> 内容来自论文无忧网 www.paper51.com <A 内容来自论文无忧网 www.paper51.com href="wjedit.asp" target=mainFrame>个人文集</A> </P> 内容来自www.paper51.com
<BR><% ifSession("KEY")="super" orSession("KEY")="check" then %> copyright paper51.com <P><B><font color="#ff0000">编辑管理</font></B><br> 内容来自www.paper51.com <A copyright paper51.com href="javascript:MenuClick(admin);">编辑中心</A><BR> //如果登录身份为管理员或审核员，则显示“编辑管理”选项 内容来自www.paper51.com
<DIV id=adminstyle="DISPLAY: none"><A paper51.com href="admin.asp" 内容来自论文无忧网 www.paper51.com target=mainFrame>浏览文章</A><BR> 内容来自www.paper51.com
<A copyright paper51.com href="shenhe.asp" copyright paper51.com target=mainFrame>审核文章</A><BR> paper51.com <% ifSession("KEY")="super" then %> paper51.com <A copyright paper51.com href="usermanage.asp" 内容来自www.paper51.com target=mainFrame>用户管理</A><BR> //.如果登录者身份为管理员，则显示用户管理选项 paper51.com
<%endif%> http://www.paper51.com </DIV> copyright paper51.com <BR><%end if%> <A 内容来自论文无忧网 www.paper51.com href="logout.asp" target=_top>退出登录</A> <br> paper51.com
5.6 站内短信功能 copyright paper51.com
http://www.paper51.com
图7 收件箱界面 内容来自论文无忧网 www.paper51.com <% 内容来自www.paper51.com
setrs=Server.CreateObject("ADODB.RecordSet") 内容来自www.paper51.com rs.open "Select * from message whereincept='"&session("username")&"' ORDER BY sendtimeDESC ",conn,1 内容来自www.paper51.com if rs.eof or rs.bof then%> copyright paper51.com
<tr> copyright paper51.com
<tdwidth="100%" height="14" colspan="5"> 内容来自www.paper51.com
<palign="center">您 的 收 件 箱 里 没 有 短 消 息 ！</p> paper51.com </td> //如果message表中没有“收信人=用户名”，则显示“您 的 收 件 箱 里 没 有 短 消 息 ！” 内容来自论文无忧网 www.paper51.com
</tr> paper51.com
<%else http://www.paper51.com
while NOT rs.EOF http://www.paper51.com %> http://www.paper51.com <tr> 内容来自www.paper51.com <td width="7%"height="14"> 内容来自www.paper51.com <%ifrs("flag")=1 then %> 内容来自www.paper51.com
<fontcolor="#FF0000">[新]</font> http://www.paper51.com <%else%> 内容来自www.paper51.com [旧] //如果flag的值为1，则标记邮件为[新]，否则标记为[旧] copyright paper51.com
<%end if%> copyright paper51.com </td> copyright paper51.com |