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》