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

2025-03-04 04:31:46

推荐回答（1个）

回答1：

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

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

库名＝book

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

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

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

dim conn,connstr,db,BookClassName

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

db="book.mdb"

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

On Error Resume Next

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnStr

If Err Then

err.Clear

Set Conn = Nothing

Response.Write "DATABASE IS ERR!"

Response.End

End If

Function Showpage(totalnumber,maxperpage,filename,cpage)

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

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

if cpage<2 then

Response.Write " 首页上页 "& VbCrLf

else

Response.Write " 首页 "& VbCrLf

Response.Write "上页 "& VbCrLf

end if

if n-cpage<1 then

Response.Write "下页末页"& VbCrLf

else

Response.Write "下页 "& VbCrLf

Response.Write "末页"& VbCrLf

end if

End function

Sub BookCss()

Response.Write ""& 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: #ccc 2px solid;width:100%;margin:0;padding:0;line-heignt:1px;;height:1px}"& VbCrLf

Response.Write ".Linediv{border-top: #999 1px solid;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 ""& VbCrLf

End Sub

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

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

Dim FileName

FileName = "BookMain.asp"

Call Main()

Conn.Close:Set Conn = Nothing

Sub Main()

Call BookCss()

Select Case Request("action")

Case "DelBook"

Call DelBook(Trim(Request("Id")),Trim(Request("page")))

Case "AddBook"

Call BookSave()

Call BookList()

Case Else

Call UpdateMain()

Call BookList()

End Select

Conn.Close:Set Conn = Nothing

End Sub

Sub UpdateMain()

Dim ClassNum

ClassNum = 1

Set Rs = Conn.execute("Select Top 1 Bookclass From Test_Book Order By Id Desc")

If Not(rs.bof and rs.eof) Then ClassNum = Rs(0)+1

Rs.Close:Set Rs = Nothing

Response.Write ""& VbCrLf

Response.Write "

添加新课程

"& VbCrLf

Response.Write ""& VbCrLf

Response.Write "

"& VbCrLf

Response.Write "课程名称："& VbCrLf

Response.Write "课程期数：填写数字

"& VbCrLf

Response.Write "

"& VbCrLf

Response.Write "开课日期："& VbCrLf

Response.Write "开课时间：

"& VbCrLf

Response.Write "

"& VbCrLf

Response.Write ""& VbCrLf

Response.Write "

"& VbCrLf

Response.Write "

"& VbCrLf

End Sub

Sub BookSave()

Dim BookName,BookClass,BookDate,BookTime,BMark

BookClass = Trim(Request("BookClass"))

If Isnumeric(BookClass) = False Then Exit Sub

BookClass = Cint(BookClass)

BookName = Trim(Request("BookName"))

BookDate = Trim(Request("BookDate"))

BookTime = Trim(Request("BookTime"))

Conn.Execute("insert Into Test_Book(BookName,BookClass,BookDate,BookTime)Values('"&BookName&"','"&BookClass&"','"&BookDate&"','"&BookTime&"')")

Response.Write ""& VbCrLf

Response.Write "

课程添加成功！

"& VbCrLf

Response.Write ""& VbCrLf

Response.Write "

第"&BookClass&"期课程，"&BookName&"，"&BookDate&Booktime&"开课。>>继续添加"& VbCrLf

Response.Write "

"& VbCrLf

Response.Write ""& VbCrLf

Response.Write "

"& VbCrLf

Response.Write "

"& VbCrLf

End Sub

Sub BookList()

Dim MaxPage,totalPut,cpage,Infonum,k,i

cpage = 1

If Request("page")<>"" then

If Isnumeric(Request("page")) = False Then

cpage = 1

Else

cpage=Cint(Request("page"))

End If

Infonum = 1

MaxPage = 15

Response.Write ""& VbCrLf

Response.Write "

课程管理

"& VbCrLf

Response.Write ""& VbCrLf

Set Rs = Server.CreateObject("ADODB.RecordSet")

Sql = "Select * From Test_book Order By Id Desc"

Rs.Open Sql,Conn,1,1

If Rs.eof and rs.bof then

Response.write "

暂时没有任何课程。

" & VbCrLf

Else

i=0

totalPut=Rs.Recordcount

If cpage<1 then cpage=1

If (cpage-1)*MaxPage>totalput then

If (totalPut mod MaxPage)=0 then

cpage= totalPut \ MaxPage

Else

cpage= totalPut \ MaxPage + 1

End If

End if

If cpage<>1 then

If (cpage-1)*MaxPage

Rs.move (cpage-1)*MaxPage

BMark = Rs.bookmark

Else

cpage = 1

End If

InfoNum = totalPut-(cpage-1)*MaxPage

k = 4 - len(InfoNum)

Do while k>0

k = k - 1

InfoNum = "0" & InfoNum

loop

Response.Write ""& VbCrLf

showpage totalput,MaxPage,filename,cpage

Response.Write "

"& VbCrLf

Response.Write ""& VbCrLf

Response.Write "序号"& VbCrLf

Response.Write "日期"& VbCrLf

Response.Write "时间"& VbCrLf

Response.Write "课程名称"& VbCrLf

Response.Write "期数"& VbCrLf

Response.Write "操作"& VbCrLf

Response.Write ""& VbCrLf

Do while not Rs.eof and maxpage>0

i = i+1

Response.Write ""& VbCrLf

Response.Write ""&InfoNum&""& VbCrLf

Response.Write ""&rs(1)&""& VbCrLf

Response.Write ""&rs(2)&""& VbCrLf

Response.Write ""&rs(3)&""& VbCrLf

Response.Write ""&rs(4)&"期"& VbCrLf

Response.Write "删除"& VbCrLf

Response.Write ""& VbCrLf

If i >= MaxPage Then Exit Do

Rs.movenext

InfoNum = InfoNum-1

k = 4 - len(InfoNum)

Do while k>0

k = k - 1

InfoNum = "0" & InfoNum

loop

Loop

Response.Write ""& VbCrLf

End If

Rs.Close:Set Rs = Nothing

Response.Write "

"& VbCrLf

Response.Write "

"& VbCrLf

End Sub

Sub DelBook(Id,page)

Conn.Execute("Delete * From Test_Book where Id="&Id)

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

End Sub

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

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

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