仿超级课程表课表源码

❶ 例如这样的课程表如何制作呢是否有现成的源码（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我，给张图片看看。

❷ 超级课程表的界面是怎么实现的

下载并完成超级课程表的安装后，启动该应用。跳过应用介绍界面，您可以版看到界面中的“快速注权册”按钮，点击此按钮开始注册超级课程表。
此时，应用正在更新学校列表，更新后在文本框中输入大学名称，在智能推荐列表中选择您的学校，然后点击右上角的“下一步”按钮，如图所示。
在新界面中继续选择所在院系，点击“下一步”按钮。选择您的入学年份，并点击“下一步”按钮。最后填写的就是帐号注册信息了，这一步很关键！
4
输入电子邮箱地址，并设置超级课程表的账户密码，然后点击“完成”按钮。随后里面显示“注册成功，正在登录”字样并进入了超级课程表界面。
5
注册成功后，您就可以使用超级课程表了，赶快来体验吧！若您注销了帐号，下次重新登录时，可使用您的注册邮箱作为帐号，注册时设置的密码作为账户密码进行登录。

❸ 超级课程表里显示课程那个界面怎么实现的

在发现里面，有课程表这个框框，然后点开，里面可以看每周每天的课程，还可以对其进行设置。

❹ 高分求一个Android手机课程表软件的源代码，毕业设计参考用，时间不多，求大神们速度，感激不尽

给一个android源码下载地址，里面有很多的相关源码可供下载： 一、Android开发图书推荐：http://book.apkbus.com/ 二、Android开发精选源码推荐：http://demo.apkbus.com/ 三、Android 开发 UI设计http://www.apkbus.com/design/ 四、 Android开发系列教程合集http://dev.apkbus.com/ 五、Android开发入门到精通http://android.apkbus.com/ 游戏类

❺ 开发一个类似于超级课程表的APP成本大概在多少呢

你可以去搜索一下优乎，专门做各类APP开发的，费用也便宜

❻ 求超级课程表或者课程格子 oc语言源代码文件

太天真了， 商业性的app,源代码可能公开吗？相反，一般这类公司在源代码上会混合多种API调用，为的就是生成的可执行文件不容易被反汇编破解。 而且软件开发公司一般都会签保密协议，如果泄漏源代码对公司造成损失是违法的。

❼ 超级课程表的界面怎么实现的

打开超级课程表，进入主页，就是你的课程表，背景就是默认的，你可以选择进行修改课表背景，这就是小编要告诉你的。

进入“我”的选项界面，在里边就可以看到“课表背景”的选项，点击进入。

进入课表背景之后，对号就是表示你当前使用的背景。

我们选择系统自带的的背景点击下载就可以使用啦。

更换好背景之后，我们去课程表首页就可以看到效果了，是不是有不一样的感觉。

此外，我们还可以从相册中选取自己的图片，这样就可以自定义课表背景了。

下图就是小编自己的图片，更换之后，瞬间感觉不一样，看起来舒服多了，主要是系统背景颜色太浅的缘故，大家也来试下吧。

❽ 谁有现成的超级课程表类似的课程表数据库代码或成品或者介绍网站也行。用来做毕业设计的。

ASP的我有个高校教学管理系统 包含课程表的