Case "admin_left.asp" onflag=1 copyright paper51.com IFSession("UserType")<onflag Then 内容来自www.paper51.com
CallNoPage() paper51.com End IF copyright paper51.com
Case "admin_main.asp" 内容来自www.paper51.com
onflag=1 内容来自论文无忧网 www.paper51.com IFSession("UserType")<onflag Then http://www.paper51.com
CallNoPage() http://www.paper51.com
End IF 内容来自论文无忧网 www.paper51.com Case "admin_top.asp" 内容来自论文无忧网 www.paper51.com onflag=1 内容来自论文无忧网 www.paper51.com IFSession("UserType")<onflag Then copyright paper51.com
CallNoPage() copyright paper51.com End IF copyright paper51.com
Case "article.asp" 内容来自论文无忧网 www.paper51.com
onflag=1 内容来自www.paper51.com IFSession("UserType")<onflag Then copyright paper51.com CallNoPage() 内容来自论文无忧网 www.paper51.com End IF 内容来自论文无忧网 www.paper51.com Case "password.asp" 内容来自www.paper51.com onflag=1 paper51.com
IFSession("UserType")<onflag Then http://www.paper51.com CallNoPage() 内容来自www.paper51.com End IF 内容来自论文无忧网 www.paper51.com
Case "manage_article.asp" paper51.com onflag=2 paper51.com IFSession("UserType")<onflag Then paper51.com
CallNoPage() http://www.paper51.com End IF 内容来自论文无忧网 www.paper51.com Case Else /当PageUrl和以上的所有的文件名都不匹配,就执行该操作 paper51.com onflag=10 paper51.com IFSession("UserType")<onflag Then 内容来自论文无忧网 www.paper51.com
CallNoPage() paper51.com End IF 内容来自www.paper51.com End Select /终止Select Case http://www.paper51.com 2. 我的报告/报告的添加 内容来自论文无忧网 www.paper51.com 这两个功能只有学生有权限进行操作。“我的报告”是在学生提交实验报告后,为了确信已提交报告,可点击“我的报告”就可以看到自己已经提交了的报告。如图3.5所示: copyright paper51.com
内容来自论文无忧网 www.paper51.com 图3.5我的报告 内容来自www.paper51.com
我的报告的主要代码如下: http://www.paper51.com <% sql="Select * From R_Article whereUserID="&Session("ID")&" Order By UpdateTimedesc" http://www.paper51.com setrs=server.CreateObject("ADODB.RecordSet") /创建一个新的数据库记录 copyright paper51.com rs.open sql,conn,1,1 内容来自www.paper51.com if rs.bof and rs.eof then /如果没有任何的记录 copyright paper51.com response.Write " <tr>" http://www.paper51.com response.Write " <td height='26'colspan='4' align='center'>暂无数据信息</td>" paper51.com response.Write " </tr>" 内容来自论文无忧网 www.paper51.com
Else paper51.com
|