基于bs的考試報(bào)-名信息處理系統(tǒng)畢業(yè)文件設(shè)計(jì)(論文+開題報(bào)告+中期檢查表+答辯),基于,bs,考試,信息處理,系統(tǒng),畢業(yè),文件,設(shè)計(jì),論文,開題,報(bào)告,講演,呈文,中期,檢查表,答辯 基于B/S的考試報(bào)名信息處理系統(tǒng) 附錄 考試報(bào)名信息處理系統(tǒng)源代碼 1.主界面源代碼(index.htm) //=======樣式設(shè)定

　

                                  

                                   //=========字體設(shè)置 基于B/S考試報(bào)名信息處理系統(tǒng)

---

　

                                                                                      湖南文理學(xué)院  _易大勝

---

2.報(bào)名填寫表源代碼(named.asp) 3.改動界面包括刪除，修改(admin.asp) <% page=Request.QueryString("page") if len(page)>0 and isnumeric(page) then page=int(page) else page=1 end if Set conn = Server.CreateObject("ADODB.Connection")//======連接數(shù)據(jù)庫 DBPath = Server.MapPath("data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath//==打開數(shù)據(jù)庫 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From baoming Order By time DESC", conn, 3//==打開baoming表 rs.PageSize=10 size=rs.PageSize rsnum=rs.RecordCount IF rsnum=0 then response.write "對不起，暫時(shí)還沒有人報(bào)名!"%> //=================在沒有人報(bào)名時(shí)顯示的信息 <% Response.end end if total=int(rsnum/size) if (rsnum mod size)>0 then total=total+1 end if if page<1 or page>total then page=1 end if %> <%if page=1 then rs.AbsolutePosition=1 end if if page>1 then rs.AbsolutePosition=(page-1)*10 end if %> <%b=1%> 基于B/S的考試報(bào)名信息處理系統(tǒng)
<%for i=1 to 10%>