帮你写一个，自己加入到网站中去：
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 "
Response.Write "
end if
if n-cpage<1 then
Response.Write "下页 末页"& VbCrLf
else
Response.Write "
Response.Write "
end if
End function
Sub BookCss()
Response.Write "
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 "
Response.Write "
Response.Write "
Response.Write "
Response.Write "课程名称：
Response.Write "课程期数：
Response.Write "
Response.Write "开课日期：
Response.Write "开课时间：
Response.Write "
Response.Write ""& VbCrLf
Response.Write "
Response.Write "
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 "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write ""& VbCrLf
Response.Write "
Response.Write "
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
End If
Infonum = 1
MaxPage = 15
Response.Write "
Response.Write "
Response.Write "
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 "
暂时没有任何课程。
" & VbCrLfElse
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 End If InfoNum = totalPut-(cpage-1)*MaxPage k = 4 - len(InfoNum) Do while k>0 k = k - 1 InfoNum = "0" & InfoNum loop Response.Write " showpage totalput,MaxPage,filename,cpage Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write ""& VbCrLf
Do while not Rs.eof and maxpage>0
i = i+1
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
Response.Write "
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 "
Response.Write "
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我，给张图片看看。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024