'=============
'函数:分页储存过程
'功能:分页并编译
'参数:储存过程参数
'==============
function page_dbstorce(rs,table,outField,indexfield,pagesize,pageIndex,isRecount,typeOrder,condition)
set cmd = server.CreateObject("ADODB.Command")
cmd.CommandText="p_Agents_page_test"
cmd.CommandType=4
cmd.prepared = true
set cmd.ActiveConnection = conn
cmd.parameters("@tblName") = table
cmd.parameters("@talFldName") = outField
cmd.parameters("@fldName")=indexfield
cmd.parameters("@PageSize")=pagesize
cmd.parameters("@PageIndex")=pageindex
cmd.parameters("@IsReCount")=0
cmd.parameters("@OrderType")=typeOrder
cmd.parameters("@strWhere")=condition
set rs = cmd.execute
if isRecount=1 then
cmd.parameters("@IsReCount")=1
cmd.execute
allRecord = cmd.parameters("@allcount")
end if
set cmd = nothing
end function
function getSingalFieldValue(table,fieldstr,condition)
on error resume next
dim result
result = conn.execute("select "&fieldstr&" from "&table&" where "&condition&"")(0)
if err then result = false
getSingalFieldValue = result
end function
function errpage(errorstr)
response.Redirect("/error.asp?ps="&errorstr)
end function
'===========
'储存过程分页显示页面代码
'
'===========
function page_catalog(allrecord,allpage,currentpage, tagNum,querystringStr,pagetype)
dim result,tag,linkstr
linkstr = ""
'querystringStr = "&fid="&request.QueryString("fid")&"&sid="&request.QueryString("sid")
tag = tagNum
result = "共有"&Allrecord&"个记录 共"&allpage&"页 "
if currentpage>1 then
result = result&"首页 "
else
result = result&"首页 "
end if
if currentpage>1 then
result = result&"上一页 "
else
result = result&"上一页 "
end if
team=(currentpagetag)
linkstrNum = ""
if team>0 then linkstrNum = linkstrNum&"<<"
if team<=0 then i=1 else i=0
if (team+1)*tag>=Allpage then endpage=Allpage else endpage=(team+1)*tag
for e=team*tag+i to endpage
if e=currentpage then
linkstrNum = linkstrNum&" "&e&""
else
linkstrNum = linkstrNum&" "&e&""
end if
next
if team
linkstr = linkstr&linkstrNum
result = result&linkstr&" "
if currentpage
else
result = result&"下一页 "
end if
if currentpage>=allpage then
result = result&"尾页"
else
result=result&"尾页"
end if
select case cint(pagetype)
case 1
result = linkstrNum
end select
page_catalog =result
end function
'分页储存过程代码2
function page_catalog_2(allrecord,allpage,currentpage, tagNum, pagetype)
dim result,tag,linkstr
linkstr = ""
'querystringStr = "&fid="&request.QueryString("fid")&"&sid="&request.QueryString("sid")
tag = tagNum
result = "共有"&Allrecord&"个记录 共"&allpage&"页 "
if currentpage>1 then
result = result&"首页 "
else
result = result&"首页 "
end if
if currentpage>1 then
result = result&"上一页 "
else
result = result&"上一页 "
end if
team=(currentpagetag)
linkstrNum = ""
if team>0 then linkstrNum = linkstrNum&"<<"
if team<=0 then i=1 else i=0
if (team+1)*tag>=Allpage then endpage=Allpage else endpage=(team+1)*tag
for e=team*tag+i to endpage
if e=currentpage then
linkstrNum = linkstrNum&" "&e&""
else
linkstrNum = linkstrNum&" "&e&""
end if
next
if team
linkstr = linkstr&linkstrNum
result = result&linkstr&" "
if currentpage
else
result = result&"下一页 "
end if
if currentpage>=allpage then
result = result&"尾页"
else
result=result&"尾页"
end if
select case cint(pagetype)
case 1
result = linkstrNum
end select
page_catalog_2 =result
end function
创造与魔法 安卓版v1.0.0750
创造与魔法是一款开放世界手游,在游戏中玩家可探索这个奇妙的世
创造与魔法修改版 最新版v1.0.0750
创造与魔法无限点券版是款探索冒险游戏,该款游戏的操作还是蛮自
战争与文明官方版本 安卓版v1.7.16
战争与文明是一款由上海邮通科技有限公司开发的战争策略游戏,这
迷你世界0元领皮肤无限迷你币版 最新安卓版v1.43.0
迷你世界0元购买皮肤版是这款开放沙盒冒险建造游戏的特殊破解版
创造与魔法无限经验版 安卓版v1.0.0750
创造与魔法无限经验版是款可以改造环境,整个游戏的自由度还是蛮