最新asp列表源代码

襄阳城 · 发表于 2010-8-7 12:13:14

最新asp列表源代码
<img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -
解决时间：2010-8-7 12:13
最新asp列表源代码
提问者： paquestion - 一级
最佳答案
SecondDomainInc.asp


<%
\'==================================================================================
\'dim i \'i循环变量
\'dim o\' \'o实例化查询类
\'使用
\' dim o\' \'o实例化查询类
\' set o=New DBInfoList
\' dim oRs \'oRs循环变量
\' o.Sql = " select xuhao，xingming from zuozhe "
\' o.PageNum = 10
\' for each oRs in o.RsList() \'i循环变量\' % >
\' <tr>
\' <td><a href=test.asp?id=< %=oRs(0)% >>< %=oRs(1)% ></a></td>
\' </tr>
\' <% next% >
\' <tr>
\' <td>
\' < %o.PageList% >
\' </td>
\' </tr>
\' </table>
\'==================================================================================
Class DBInfoList
Private GFSql \'sql语句
Private page_size \'每页显示记录数
Private ListNum \'显示的页数数字个数
Private page \'当前页
Private listStyle \'列表样式编号（分页可设置多种样式）
Private name_first \'第一页
Private name_Previous \'前一页
Private name_next \'后一页
Private name_last \'最后一页
Private cutepageStyle \'分页列表的样式表
Private noneStr \'无记录时的提示信息
Private totalPage \'所有记录的总页数
Private totalRecordNumber \'所有记录的总条数
Private theDBInfoList \'取出记录后存入的数组
Private theRsCount \'所有当前页取出的记录的总条数
Private lineMax \'记录行数
Private volMax \'记录列数，字段数
Private startTime
Private endTime
\'/*-----初始化类-----*/
Private Sub Class_Initialize()
GFSql = ""
page_size = 10
ListNum=5
name_first = "首页"
name_Previous = "前页"
name_next = "后页"
name_last = "末页"
cutepageStyle = "div_trunPage"
noneStr = "暂无记录！"
theRsCount=0
End Sub
\'/*---设置SQL语句----*/
Public Property Let Sql (ByVal sqlStr)
GFSql = sqlStr
End Property
\'/*---设置每页显示的条数----*/
Public Property Let PageNum (ByVal thePN)
page_size = thePN
End Property
\'/*---显示的页数数字个数----*/
Public Property Let SetListNum (ByVal theLN)
ListNum = theLN
End Property
\'/*---列表样式编号（分页可设置多种样式）----*/
Public Property Let SetListStyle (ByVal thePN)
listStyle = thePN
End Property
\'/*---分页列表的样式表----*/
Public Property Let SetCutepageStyle (ByVal thePN)
cutepageStyle = thePN
End Property
\'/*---无记录时的提示信息----*/
Public Property Let SetNoneStr (ByVal thePN)
noneStr = thePN
End Property
\'/*---取得记录数组----*/
Private Sub SetTheDBInfoList ()
startTime=timer()
Dim thisRs
Dim thePageSize
thePageSize=page_size
Set thisRs=Server.CreateObject("ADODB.RecordSet")
thisRs.Open GFSql ， CONN ， 1 ， 1 \'----------------------------------------------conn
If not ( thisRs.EOF or thisRs.BOF ) Then
totalRecordNumber = thisRs.RecordCount \'计算总记录条数
if thePageSize=0 then thePageSize=totalRecordNumber end if
totalPage = INT(totalRecordNumber / thePageSize * -1) * -1 \'计算总页数
thisRs.pagesize=thePageSize \'设置数据库，每页显示的记录条数
page = Request.QueryString("page")
\'/*---翻页函数----*/
dim actionURL，all_para，pageValue
\'采用GET方式，行地址参数
all_para=request.ServerVariables("QUERY_STRING") \'取参数部分
actionURL=request.ServerVariables("url")
pageValue="page="&request.QueryString("page")
if left(all_para，len(pageValue))=pageValue then
all_para=replace(all_para，pageValue&"&"，"")
end if
all_para=replace(all_para，"&"&pageValue，"")
all_para=replace(all_para，pageValue，"")
if all_para="" then
actionURL=actionURL&"?page="
else
actionURL=actionURL&"?"&all_para&"&page="
end if
actionURL=replace(actionURL，"\'"，"\\'")
actionURL=replace(actionURL，""""，"\""")
response.Write "<script language=\'javascript\'>"&_
" function doTurnPage(num){"&_
" document.location.href="""&actionURL&"""+num;"&_
" }"&_
"</script>"
\'/*---如果没有选择第几页，则默认显示第一页；---*/
If page = "" then
page = 1
Else
On Error Resume Next
Dim Sky_TempPageNo
Sky_TempPageNo=cint(page)
If Err then
page = 1
End If
Err.Clear
End If
\'/*---如果所选当前页大于总页数，刚显示最后一页----*/
If cint(page)>totalPage Then
page=totalPage
End If
\'/*---如果数据库中有记录，则按刚才设置的页面大小取出第N页的记录----*/
If totalRecordNumber <> 0 then
thisRs.AbsolutePage = page
End If
theDBInfoList=thisRs.GetRows( thePageSize ) \'取出本页的记录放入数组中
End If
thisRs.Close
Set thisRs = NOTHING
endTime=timer()
End Sub
\'/*---取得到的最大记录数----*/
Private Sub GetRsMax
SetTheDBInfoList
If isArray( theDBInfoList ) Then
lineMax = cint(ubound( theDBInfoList ， 2 ))
volMax = ubound( theDBInfoList ， 1 )
theRsCount=lineMax+1 \'lineMax从0开始
Else
lineMax = -1
volMax = -1
End If
End Sub
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'/*---得到的当前页取得的记录的条数----*/
Public Property Get RsCounct
RsCounct=theRsCount
End Property
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'/*---取得到的记录的数组----*/
Public Property Get RsList
GetRsMax
dim i，j
redim tempRsList(lineMax)
redim tempRsFiledsList(volMax)
for i=0 to lineMax
for j=0 to volMax
tempRsFiledsList(j)=theDBInfoList(j，i)
next
tempRsList(i)=tempRsFiledsList
next
RsList=tempRsList
End Property
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'/*----取得记录（字段值）----*/
Function Rs(n，i)
Rs = theDBInfoList( n ， i )
End Function
\'/*----得到页数列表----*/
Public Property Get PageList
Dim Sky_first
Dim Sky_Previous
Dim Sky_next
Dim Sky_last
Dim Sky_mid
Dim Sky_input
dim overStr
If page_size > totalRecordNumber Then
page_size = totalRecordNumber
End If
If totalRecordNumber = 0 or totalPage = 1 Then \'如果只有一页，或者没有记录则不显示连接
Sky_first = name_first
Sky_Previous = name_Previous
Sky_next = name_next
Sky_last = name_last
Else
If page = 1 Then \'如果当前为第一页则不显示连接
Sky_first = name_first
Sky_Previous = name_Previous
Else
Sky_first="<a href=javascript:doTurnPage(\'1\');>" & name_first & "</a>"
Sky_Previous="<a href=javascript:doTurnPage(\'"&page-1&"\');>" & name_Previous & "</a>"
End If
\'数字页列表形式
Dim ForI ， Sky_Page_Begin ， Sky_Page_End
On Error Resume Next
Dim TListNum
TListNum = Cint( ListNum )
If Err Then
TListNum = 3
ListNum = 0
End If
If TListNum >= 3 Then
Sky_Page_Begin = page - Int( ListNum / 2 )
Sky_Page_End = page + ( ListNum - Int( ListNum / 2 ) - 1 )
If Sky_Page_Begin <= 0 Then
Sky_Page_Begin = 1
Sky_Page_End = ListNum
End If
If Sky_Page_End > totalPage Then
Sky_Page_Begin = totalPage - ListNum + 1
Sky_Page_End = totalPage
End If
If Sky_Page_Begin <= 0 Then
Sky_Page_Begin = 1
End If
For ForI = Sky_Page_Begin to Sky_Page_End
IF ForI=cint(page) Then
Sky_mid = Sky_mid&" "&ForI & " I "
Else
Sky_mid = Sky_mid & " <a href=javascript:doTurnPage(\'" & ForI & "\');>" & ForI & "</a> I "
End If
Next
End If
\'数字页列表形式
If page+1 > totalPage Then
Sky_next = name_next
Sky_last = name_last
Else
Sky_next = "<a href=javascript:doTurnPage(\'" & page + 1 & "\');>" & name_next & "</a>"
Sky_last = "<a href=javascript:doTurnPage(\'" & totalPage & "\');>" & name_last & "</a>"
End If
End If
If totalPage > 1 Then
Sky_input = "<input type=\'text\' name=\'page\' size=\'3\' value=\'"&page&"\' _title=\'请输入页号，然后回车\' style=\'cursor:default; font-size:9pt; color:#FF8000;height:15px;width:20px;text-align:center;border:0px;border-bottom:1px solid #dddddd;\' onkeydown=\'if(event.keyCode==13){doTurnPage( this.value );return false;}\'>"
Else
Sky_input = "<input type=\'text\' name=\'page\' size=\'3\' value=\'"&page&"\' _title=\'请输入页号，然后回车\' style=\'cursor:default; font-size:9pt; color:#FF8000;height:15px;width:20px; text-align:center;border:0px;border-bottom:1px solid #dddddd;\' onkeydown=\'if(event.keyCode==13){doTurnPage( this.value );return false;}\' >"
End If
If ListNum <> 0 Then
Sky_mid = Sky_mid
Else
Sky_mid = ""
End If
Dim TheTableStyle，TheTdStyle
Select Case listStyle
\'这是可以修改的地方，样式部分－－－－－－开
Case "en"
Sky_first = replace(Sky_first，"首页"，"First")
Sky_Previous = replace(Sky_Previous，"前页"，"Previous")
Sky_next = replace(Sky_next，"后页"，"Next")
Sky_last =replace(Sky_last，"末页"，"Last")
overStr=overStr & "<div class=\'" & cutepageStyle & "\' "&_
"title=\'start="&startTime&"，end="&endtime&".use="&endTime-startTime&"\'>"&_
""&_
"Current " & cint( page ) & "/ "&_
"Total " & totalPage & " " &_
"" &_
""&_
"" & page_size & "/"&_
"" & totalRecordNumber & " " &_
"" &_
""&_
Sky_first & " I " & Sky_Previous & " I " &_
Sky_mid & " " & Sky_next & " I " & Sky_last & " " &_
"" &_
""&_
Sky_input & " " &_
"" &_
"</div>"
Case Else
overStr=overStr & "<div class=\'" & cutepageStyle & "\' "&_
"title=\'start="&startTime&"，end="&endtime&".use="&endTime-startTime&"\'>"&_
""&_
"共" & totalRecordNumber & "条信息 " &_
"每页" & page_size & "条 "&_
"" &_
""&_
"共" & totalPage & "页 " &_
"当前" & cint( page ) & "页 "&_
"" &_
""&_
Sky_first & " I " & Sky_Previous & " I " &_
Sky_mid & " " & Sky_next & " I " & Sky_last & " " &_
"" &_
""&_
Sky_input & " " &_
"" &_
"</div>"
\'这是可以修改的地方，样式部分－－－－－－结束
End Select
If page_size<>0 then
If totalRecordNumber = 0 then
response.Write( noneStr )
else
response.Write( overStr&"" )
end if
End If
End Property
\'类卸载
Private Sub Class_Terminate()
GFSql = ""
page_size = 10
page = 1
End Sub
End Class
\'//连接数据库===============================================
\'dim conStr，conn
\'set conn=Server.CreateObject("ADODB.Connection")
\'conStr = "Provider = Sqloledb; User ID = sa; Password = sa;Initial Catalog = PartTimeJobTest; Data Source = 127.0.0.1;"
\'conn.open conStr
\'//=======================================================
\'//公用函数
dim o\' \'o实例化查询类
set o=New DBInfoList
dim oRs \'oRs循环变量
Function Filtrate(str)
Dim finalStr
finalStr = str
finalStr = replace(finalStr，"&"，"&")
finalStr = Replace(finalStr， """，Chr(34))
finalStr = replace(finalStr，"<"，"<")
finalStr = replace(finalStr，">"，">")
finalStr = replace(finalStr，"\'"，"\'\'")
Filtrate = finalStr
End function
Function RequestGet(str)
RequestGet = Filtrate(request.QueryString(str))
End function
Function RequestPost(str)
RequestPost = Filtrate(request.Form(str))
End function
\'//==================
Function GetBigClassDownList(id)
Dim sql，rs，str
sql = "select id，BigClassName from BigClass order by id"
call insert_hacker(sql，GetUrl20081222)
set rs=conn.execute(sql)
do while not (rs.bof or rs.eof)
str = str & "<option value=\'"&rs(0)&"\' "
if id&"" = rs(0)&"" then
str = str & " selected "
end if
str = str & " >"&rs(1)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
str="<select name=\'BigClassId\'><option value=\'\' >请选择分类</option>"&str&"</select>"
GetBigClassDownList = str
End Function
%>
0
回答者：
blueskyofsnow - 四级 2010-8-5 07:55
我来评论>>
提问者对于答案的评价：
谢谢！

账号		自动登录	找回密码
密码			注册会员