毕业设计附件程序清单.doc

毕业设计程序清单后台显示：if Session(AdminName)= thenresponse.write 你不是管理员,或还没有登录! response.write 我要登录response.endend iftabname=request(tabname)wname=request(wname)if tabname= thentabname=jiaoshiwname=管理员账号管理end if% 管理员账号管理 课程信息 教师信息 自学考试 网络课程 同步练习 问题解析 会员管理在线测试 现在暂无内容,请点击a href=?setType=add&tabname=&wname=添加%response.endend ifIf Request.QueryString(currentPage) = Then Page = 1 Else Page = Request.QueryString(currentPage) End If recordsToShow = 1 n = 0rs.absoluteposition=(page-1)*1+1rs.PageSize = recordsToShowrsid=rs(id)for i=0 to rs.fields.count-1 if i mod 2=0 then response.write if rs(i).name=学习内容 then%         a href=?setType=add&tabname=&wname=添加a href=?setType=update&tabname=&wname=&id=修改a href=updaters.asp?wname=&tabname=&id=&setType=update删除   %if Page 1 thenResponse.Write end ifResponse.Write 上页 if Page 1 then Response.Write end if- For intCount = 1 to rs.PageCount If intCount = 1 then Response.Write | End If If cint(intCount) = cint(Page) then Response.Write & intCount & | ElseResponse.Write & intCount & | End If Next-if cint(Page) cint(rs.PageCount) thenResponse.Write end ifResponse.Write 下页 if cint(Page) = cint(rs.PageCount) thenResponse.Write end ifrs.closeset rs=nothingconn.closeset conn=nothing% 版权信息:xxxxxxxx