conndata_dd.asp

来自「学生在线考试系统：ASP+VBScript 本人自己精心编码」· ASP 代码 · 共 69 行

<%
'这是连接数据库头文件
Dim dbconn
Dim Dbpath
Dim dbparam

dbPath=server.MapPath("..\..\data\exam.mdb")
set dbconn=Server.CreateObject("ADODB.Connection")
dbparam="Driver={Microsoft Access Driver (*.mdb)};dbq="
dbconn.Open dbparam&dbpath  '连上数据库
%>

<%
 '页面导航条
Sub DisplayPagelinks(drs,intPage,snum)  
'-------------------------------------
session("snum")=snum

if  intPage>1 then
    Response.Write "第"&intpage&"页 "
    response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page=1"&"&num="&Request.QueryString("num")&"&range="&Request.QueryString("range")&"'>首页</a> "
    response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage-1&"&num="&Request.QueryString("num")&"&range="&Request.QueryString("range")&"'>上一页</a> "
else
  Response.Write "第"&intpage&"页  "
  response.write "首页 "  
  response.write "上一页 "
end if

if intPage < drs.PageCount then
   response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage+1&"&num="&Request.QueryString("num")&"&range="&Request.QueryString("range")&"'>下一页</a> "
    response.write "<a href='"&request.ServerVariables("SCRIPT_NAME")&"?page="&drs.PageCount&"&num="&Request.QueryString("num")&"&range="&Request.QueryString("range")&"'>尾页</a> "
else
  response.write "下一页 "
  response.write "尾页 "
end if
'------------------------------------
End Sub
%>

<%
'定义翻页变量和初始化函数
MaxPageSize=10
if (request.querystring("page")<>"") and (IsNumeric(request.querystring("page"))) then  '检查页号
  intPage=CLng(request.querystring("page"))
else
  intPage=1
end if
%>

<%
sub checkpage(drs,intpage)
if intPage>drs.pagecount then 
   intPage=drs.pagecount
 elseif intPage<1 then
   intPage=1
end if
end sub 
%>




<%sub htmlend'--------------版权申明+关闭数据库%>
<%
dbconn.close
set dbconn=nothing
End Sub
%>