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

(B)教材管理系统论文

<table width="778"border="0" cellspacing="0" cellpadding="1"> paper51.com

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

    <tdcolspan="12" align="center"><spanclass="style1">课程详细信息统计</span></td> copyright paper51.com

 </tr>

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

 <tr align="center">

paper51.com

    <td><strong>学院</strong></td>

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

    <td><strong>专业</strong></td> copyright paper51.com

    <td><strong>年级</strong></td>

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

    <td><strong>班级</strong></td>

paper51.com

    <td><strong>学期</strong></td> 内容来自www.paper51.com

    <td><strong>课程名</strong></td>

内容来自www.paper51.com

    <td><strong>课程代码</strong></td>

内容来自www.paper51.com

    <td><strong>类别</strong></td> copyright paper51.com

    <td><strong>周学时</strong></td>

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

    <td><strong>所用教材</strong></td>

内容来自www.paper51.com

    <td><strong>修改</strong></td>

paper51.com

    <td><strong>删除</strong></td>

paper51.com

 </tr>

copyright paper51.com

 <% 内容来自www.paper51.com

sub showpage(rs_5,pageNo)

内容来自www.paper51.com

if not rs_5.eof then 内容来自www.paper51.com

rs_5.absolutepage=pageNo 内容来自www.paper51.com

for I = 1 to rs_5.pagesize http://www.paper51.com

data="<tr><fontsize=2><td align='center'>"&rs_5("xueyuan")&"</td><tdalign='center'>"&rs_5("zhuanye")&"</td><tdalign='center'>"&rs_5("nianji")&"</td><tdalign='center'>"&left(rs_5("banji"),10)&"...</td><tdalign='center'>"&rs_5("xueqi")&"</td><tdalign='center'>"&rs_5("course")&"</td><tdalign='center'>"&rs_5("course_no")&"</td><tdalign='center'>"&rs_5("type")&"</td><tdalign='center'>"&rs_5("xueshi")&"</td><tdalign='center'>"&rs_5("book")&"</td>c"

copyright paper51.com

response.writedata&"</tr>" copyright paper51.com

rs_5.movenext copyright paper51.com

if rs_5.eof then exit for paper51.com

next

paper51.com

else

paper51.com

response.Write("<tr width='778'><tdalign='center' colspan='12'><font color='red'>目前没有相关信息!<font><td>")

内容来自www.paper51.com

end if copyright paper51.com

end sub http://www.paper51.com

%>

paper51.com

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

id=request.form("id")

copyright paper51.com

key=request.form("key")

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

ifsession("xueyuan")<>"教务处" then 内容来自www.paper51.com

       ifkey="" and id<>"" then copyright paper51.com

sql="select * from course wherecourse_no='"&id&"' andxueyuan='"&session("xueyuan")&"'" 内容来自www.paper51.com

       elseifkey<>"" then http://www.paper51.com

sql="select * from course where courselike'%%"&key&"%%' andxueyuan='"&session("xueyuan")&"' order by iddesc"

http://www.paper51.com

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

sql="select * from course where xueyuan='"&session("xueyuan")&"'"

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

       endif

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

else

paper51.com

       ifkey="" and id<>"" then

http://www.paper51.com

sql="select * from course wherecourse_no='"&id&"'"

copyright paper51.com

       elseifkey<>"" then

http://www.paper51.com

sql="select * from course where courselike'%%"&key&"%%' order by id desc" 内容来自论文无忧网 www.paper51.com

       else

paper51.com

sql="select * from course"

内容来自www.paper51.com

       endif

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

end if

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

dim objconn copyright paper51.com

set objconn=server.CreateObject("adodb.connection") 内容来自论文无忧网 www.paper51.com

objconn.connectionstring="provider=microsoft.jet.oledb.4.0;"&_

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

"datasource="&server.mappath("dbbase/jcgl.mdb")

内容来自www.paper51.com

objconn.open copyright paper51.com

dim rs_5 copyright paper51.com

setrs_5=server.CreateObject("adodb.recordset")

http://www.paper51.com

rs_5.open sql,objconn,1,1 http://www.paper51.com

rs_5.pagesize=15

http://www.paper51.com

pageNo=request("page") 内容来自论文无忧网 www.paper51.com

if pageNo<>"" then

copyright paper51.com

showpage rs_5,pageNo

copyright paper51.com

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

showpage rs_5,1 http://www.paper51.com

end if

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

%>

内容来自www.paper51.com

<tr width="778">

内容来自www.paper51.com

<td colspan="12"align='center'><strong><a href="lrjxjh.asp"target="_self">录入</a></strong></tr>

内容来自www.paper51.com

</table>

paper51.com

<table width="778"border="0" cellspacing="0" cellpadding="0">

内容来自www.paper51.com

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

    <td><%for I=1 tors_5.pagecount

paper51.com

response.write"[<ahref='kccx.asp?page="&I&"'>"&"第"&I&"页"&"</a>]"&"&nbsp;"

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

next

copyright paper51.com

rs_5.close

http://www.paper51.com

set rs_5=nothing 内容来自www.paper51.com

objconn.close

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

set objconn=nothing%></td> http://www.paper51.com

 </tr> paper51.com

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

<p>&nbsp;</p> paper51.com

</body>

http://www.paper51.com

</html>

paper51.com

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