asp课程表制作

A. 例如这样的课程表如何制作呢是否有现成的源码（asp）

帮你写一个，自己加入到网站中去：

1，建立库，在原来的库上加一个表也可以，现在假设新建一个名叫book的库，ACCSEE型，表名叫Test_book

库名＝book

表（Test_book):id(自动编号),bookdate(日期，文本50）,booktime(时间，文本50）,bookname(课程名，文本50）,BookClass(数字，课程分期)

2，conn.asp//库链接及通用函数页

将下面的代码保存为conn.asp

<%

dimconn,connstr,db,BookClassName

BookClassName="执业医师"'课程类名称，请修改

db="book.mdb"

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)

OnErrorResumeNext

SetConn=Server.CreateObject("ADODB.Connection")

Conn.OpenConnStr

IfErrThen

err.Clear

SetConn=Nothing

Response.Write"DATABASEISERR!"

Response.End

EndIf

FunctionShowpage(totalnumber,maxperpage,filename,cpage)

iftotalnumbermodmaxperpage=0then

n=totalnumbermaxperpage

else

n=totalnumbermaxperpage+1

endif

Response.Write"总课程"&totalnumber&"，每页"&maxperpage&"/第"&cpage&"页/共"&n&"页"&VbCrLf

ifcpage<2then

Response.Write"首页上页"&VbCrLf

else

Response.Write"<ahref="&filename&"?page=1>首页</a>"&VbCrLf

Response.Write"<ahref="&filename&"?page="&cpage-1&">上页</a>"&VbCrLf

endif

ifn-cpage<1then

Response.Write"下页末页"&VbCrLf

else

Response.Write"<ahref="&filename&"?page="&cpage+1&">下页</a>"&VbCrLf

Response.Write"<ahref="&filename&"?page="&n&">末页</a>"&VbCrLf

endif

Endfunction

SubBookCss()

Response.Write"<styletype=""text/css"">"&VbCrLf

Response.Write"BODY{margin:0;Padding:0;COLOR:#444;font-family:宋体;font-size:9pt}"&VbCrLf

Response.Write"TD{COLOR:#444;font-family:Verdana;font-size:9pt}"&VbCrLf

Response.Write"form{margin:5,0,0,0}"&VbCrLf

Response.Write"input{border-width:1;border-color:#000000;background-color:#efefef;font-family:宋体;font-size:9pt;COLOR:#333;line-height:14px}"&VbCrLf

Response.Write"textarea{border-width:1;border-color:#000000;background-color:#efefef;font-family:宋体;font-size:9pt;}"&VbCrLf

Response.Write"select{border-width:1;border-color:#000;background-color:#eee;font-family:宋体;font-size:9pt;}"&VbCrLf

Response.Write"A{COLOR:#444;font-family:Verdana}"&VbCrLf

Response.Write"A:link{color:0000aa;TEXT-DECORATION:none}"&VbCrLf

Response.Write"A:visited{color:0000aa;TEXT-DECORATION:none}"&VbCrLf

Response.Write"A:hover{COLOR:#ff2200;TEXT-DECORATION:none}"&VbCrLf

Response.Write".headdiv{height:105px;width:100%;margin:0;padding:10;background:#f8f8f8}"&VbCrLf

Response.Write".Linediv1{border-bottom:#ccc2pxsolid;width:100%;margin:0;padding:0;line-heignt:1px;;height:1px}"&VbCrLf

Response.Write".Linediv{border-top:#9991pxsolid;width:100%;margin:0;padding:0;line-heignt:1px;height:1px}"&VbCrLf

Response.Write".Listdiv{width:550px;padding:10;background:#eee}"&VbCrLf

Response.Write".cpagediv{margin-top:5px;padding-left:10px;color:#999}"&VbCrLf

Response.Write".adddiv{width:100%;margin-bottom:5px;padding-left:60px}"&VbCrLf

Response.Write".li1{width:250px;line-height:16px;font-size:12px;list-style:none;color:069}"&VbCrLf

Response.Write"</style>"&VbCrLf

EndSub

%>

3.BookMain.asp//课程管理，仅提供添加和删除，若要修改功能请联系。

将下面的代码保存为BookMain.asp，和conn.asp在同一目录

<!--#includefile="Conn.asp"-->

<%

DimFileName

FileName="BookMain.asp"

CallMain()

Conn.Close:SetConn=Nothing

SubMain()

CallBookCss()

SelectCaseRequest("action")

Case"DelBook"

CallDelBook(Trim(Request("Id")),Trim(Request("page")))

Case"AddBook"

CallBookSave()

CallBookList()

CaseElse

CallUpdateMain()

CallBookList()

EndSelect

Conn.Close:SetConn=Nothing

EndSub

SubUpdateMain()

DimClassNum

ClassNum=1

SetRs=Conn.execute("SelectTop1BookclassFromTest_BookOrderByIdDesc")

IfNot(rs.bofandrs.eof)ThenClassNum=Rs(0)+1

Rs.Close:SetRs=Nothing

Response.Write"<DIVclass=headdiv>"&VbCrLf

Response.Write"<div><b>添加新课程</b></div>"&VbCrLf

Response.Write"<formmethod=POSTaction=""?action=AddBook""name=form1>"&VbCrLf

Response.Write"<div>"&VbCrLf

Response.Write"课程名称：<inputtype=""text""name=""bookname""value=""""size=20>"&VbCrLf

Response.Write"课程期数：<inputtype=""text""name=""BookClass""value="""&ClassNum&"""size=5>填写数字</div>"&VbCrLf

Response.Write"<div>"&VbCrLf

Response.Write"开课日期：<inputtype=""text""name=""Bookdate""value=""""size=20>"&VbCrLf

Response.Write"开课时间：<inputtype=""text""name=""booktime""value=""""size=20></div>"&VbCrLf

Response.Write"<divclass=adddiv><inputtype=""submit""value=""确定添加""name=""button1""></div>"&VbCrLf

Response.Write"</form>"&VbCrLf

Response.Write"</DIV>"&VbCrLf

Response.Write"<DIVclass=linediv></DIV>"&VbCrLf

EndSub

SubBookSave()

DimBookName,BookClass,BookDate,BookTime,BMark

BookClass=Trim(Request("BookClass"))

IfIsnumeric(BookClass)=FalseThenExitSub

BookClass=Cint(BookClass)

BookName=Trim(Request("BookName"))

BookDate=Trim(Request("BookDate"))

BookTime=Trim(Request("BookTime"))

Conn.Execute("insertIntoTest_Book(BookName,BookClass,BookDate,BookTime)Values('"&BookName&"','"&BookClass&"','"&BookDate&"','"&BookTime&"')")

Response.Write"<DIVclass=headdiv>"&VbCrLf

Response.Write"<div><b>课程添加成功！</b></div>"&VbCrLf

Response.Write"<formmethod=POSTaction=name=form2>"&VbCrLf

Response.Write"<div>第"&BookClass&"期课程，"&BookName&"，"&BookDate&Booktime&"开课。<ahref=""?action=Main"">>>继续添加</a>"&VbCrLf

Response.Write"</div>"&VbCrLf

Response.Write"</form>"&VbCrLf

Response.Write"</DIV>"&VbCrLf

Response.Write"<DIVclass=linediv>&nbsp;</DIV>"&VbCrLf

EndSub

SubBookList()

DimMaxPage,totalPut,cpage,Infonum,k,i

cpage=1

IfRequest("page")<>""then

IfIsnumeric(Request("page"))=FalseThen

cpage=1

Else

cpage=Cint(Request("page"))

EndIf

EndIf

Infonum=1

MaxPage=15

Response.Write"<DIVStyle=""width=:100%;margin:0;"">"&VbCrLf

Response.Write"<div><b>课程管理</b></div>"&VbCrLf

Response.Write"<divclass=Listdiv>"&VbCrLf

SetRs=Server.CreateObject("ADODB.RecordSet")

Sql="Select*FromTest_bookOrderByIdDesc"

Rs.OpenSql,Conn,1,1

IfRs.eofandrs.bofthen

Response.write"<p>暂时没有任何课程。</p>"&VbCrLf

Else

i=0

totalPut=Rs.Recordcount

Ifcpage<1thencpage=1

If(cpage-1)*MaxPage>totalputthen

If(totalPutmodMaxPage)=0then

cpage=totalPutMaxPage

Else

cpage=totalPutMaxPage+1

EndIf

Endif

Ifcpage<>1then

If(cpage-1)*MaxPage<totalPutthen

Rs.move(cpage-1)*MaxPage

BMark=Rs.bookmark

Else

cpage=1

EndIf

EndIf

InfoNum=totalPut-(cpage-1)*MaxPage

k=4-len(InfoNum)

Dowhilek>0

k=k-1

InfoNum="0"&InfoNum

loop

Response.Write"<divclass=cpagediv>"&VbCrLf

showpagetotalput,MaxPage,filename,cpage

Response.Write"</div>"&VbCrLf

Response.Write"<tablewidth=540border=0cellspacing=2cellpadding=0>"&VbCrLf

Response.Write"<tralign=centerbgcolor=""#C2CCE2"">"&VbCrLf

Response.Write"<tdwidth=""10%""height=24>序号</td>"&VbCrLf

Response.Write"<tdwidth=""20%"">日期</td>"&VbCrLf

Response.Write"<tdwidth=""20%"">时间</td>"&VbCrLf

Response.Write"<tdwidth=""30%"">课程名称</td>"&VbCrLf

Response.Write"<tdwidth=""10%"">期数</td>"&VbCrLf

Response.Write"<tdwidth=""10%"">操作</td>"&VbCrLf

Response.Write"</tr>"&VbCrLf

DowhilenotRs.eofandmaxpage>0

i=i+1

Response.Write"<tralign=centerbgcolor=""DFE8EE"">"&VbCrLf

Response.Write"<tdheight=24>"&InfoNum&"</td>"&VbCrLf

Response.Write"<td>"&rs(1)&"</td>"&VbCrLf

Response.Write"<td>"&rs(2)&"</td>"&VbCrLf

Response.Write"<td>"&rs(3)&"</td>"&VbCrLf

Response.Write"<td>"&rs(4)&"期</td>"&VbCrLf

Response.Write"<td><ahref=0.asp?Id="&rs(0)&"&action=DelBookonClick=""returnconfirm('警告：您的操作不可恢复，确定删除选定的程序记录？')"">删除</a></td>"&VbCrLf

Response.Write"</tr>"&VbCrLf

Ifi>=MaxPageThenExitDo

Rs.movenext

InfoNum=InfoNum-1

k=4-len(InfoNum)

Dowhilek>0

k=k-1

InfoNum="0"&InfoNum

loop

Loop

Response.Write"</table>"&VbCrLf

EndIf

Rs.Close:SetRs=Nothing

Response.Write"<div>"&VbCrLf

Response.Write"</DIV>"&VbCrLf

EndSub

SubDelBook(Id,page)

Conn.Execute("Delete*FromTest_BookwhereId="&Id)

Response.redirect"0.asp?page="&page

EndSub

%>

4.课程显示页面：Showbook.asp

将下面的代码存为Showbook.asp，如果不和conn.asp不在同一目录，注意修改conn.asp路径：

我晕，好象是字数超限了，几次贴不上来，就贴到这里，还有一页HI我，给张图片看看。

B. 我现在要用ASP+SQL做一个课程表模块，学生可以查看课程表，急求啊。1131465237，这是我的qq......

我的专业啊，给你做一套。

C. 有谁会用ASP弄课程表，在线等

我会的亲，

D. asp使用二维数组制作一张课程表

<%
Dim kb(6,7) '第一维表示周几来,第二维自表示第几堂课
'自己给kb数组赋值
Response.Write "<table>"
Response.Write "<tr><td></td><td>周一</td><td>周二</td><td>周三</td><td>周四</td><td>周五</td><td>周六</td><td>周日</td></tr>"
Dim i, j
For i = 0 To 7
Response.Write "<tr><td>第" & i + 1 & "堂</td>"
For j = 0 To 6
Response.Write "<td>" & kb(j,i) & "</td>"
Next
Response.Write "</tr>"
Next
Response.Write "</table>"
%>

E. 如何在asp.net页面上动态生成一张课程表

用gridview，datalist，repeater均可。

有一点疑问，你的课程表是根据数据库生成的，那你会不会去修改内（添加，删除）容数据库的列？

我的解释：

在使用三层的情况下：：
1拖入一个gridview，一个objectdatasource数据源控件，将数据源绑定到gridview中。2数据源绑定中间层的方法，注意数据源有四个选项卡，选入相应的方法.gridview可以编辑列，然后将你需要绑定的列绑定好就行了。

如果你只有一层：用sqldatasource绑定，如上

这是比较简单的方法，不知道能否帮助LZ，如果还不理解的话，可以加我的QQ注明身份asp.netIE吧。记得给分哦

F. asp.net，用table做一个课程表。

No1：你绑定dropdownlist，也是把课程表这个表的字段学期绑定在dropdownlist。
代码例如：
string ConnString = ConfigurationSettings.AppSettings["ConnectionString"];
//创建一个SqlConnection
SqlConnection Conn = new SqlConnection( ConnString );
string SQL_Select = "select × from 课程表";
//构造一个SqlDataAdapter
SqlDataAdapter myAdapter = new SqlDataAdapter( SQL_Select, Conn);
//开始读取数据
Conn.Open();
DataSet dataSet = new DataSet();
myAdapter.Fill( dataSet,"Table1" );
Conn.Close();
//开始绑定DropDownList
//指定DropDownList使用的数据源
DropDownList1.DataSource = dataSet.Tables["Table1"].DefaultView;
//指定DropDownList使用的表里的那些字段
DropDownList1.DataTextField = "学期"; //dropdownlist的Text的字段
DropDownList1.DataValueField = "id";//dropdownlist的Value的字段
DropDownList1.DataBind();
No2：拉一个绑定表的控件。。。
把dropdownlist的Text的字段 作为参数，读取这个表，，显示，ok

G. 我现在要用ASP+SQL做一个课程表模块，管理员添加课程表，学生可以查看课程表，有没高手帮忙设计下数据库

可以应用网络Hi通知我
有时间可以解决你的问题
相关的要求也可以通知我

ES:\\
交易提醒:预付定金是陷阱

H. 想做一个ASP的课程表，遇到了问题

数据库复中如果字段为空，当制然显示也为空。
不知道你怎么设计的。
如果数据库中2006年第二学期课程如下：
字段名：星期一|星期二|星期三|星期四|星期五 标识
第一节： 语文 数学 生物 历史 200602
第二节：语文 生物 英语 语文 政治 200602
第三节：数学 语文 语文 数学 生物 200602
...
那么程序可以如下：
<%
...where 标识="200602"'......连接和打开数据库程序
if not rs.eof then
while not rs.eof
%>
<tr>
<td><%=rs("星期一")%></td>
<td><%=rs("星期二")%></td>
<td><%=rs("星期三")%></td>
<td><%=rs("星期四")%></td>
<td><%=星期五%></td>
</tr>
<%
rs.movenext
wend'循环显示第一至最后一节。
end if
%>

I. asp如何制作大学课程表。选择不同的班级，就会有不同的课表。有课的时候显示课程名，上课地点和教师。

使用数据库。首先利用电子表格制作一个课程表，将对应的星期、课程、老师及地点输入，在APP中调用系统日期中的星期数，对数据库中的星期这一栏进行搜索，取出对应栏的数据在界面上显示出来就可以了。

J. 用Dreamwear制作简单的asp+access课程表查询源代码 简单一点不要太复杂。越详细越好 谢谢了

网络搜索《九天学会ASP》