Class PageList
'-------------------------定义类中用到的全局变量----------------------
Private PerPage '当前页数
Private PerLimit '当前每页显示条数
Private PerPageLimit '当前每页显示页数
Private TotalNums '当前分页中的总条数
Private TotalPage '当前分页中总页数
Private PageUrl '定义当前网页路径
Private PageStart '定义当前开始末ID
Private PageEnd '定义当前结束ID
Private PageStyle '定主当前分页显示样式
Private PageHeader '定义显示头部分
Private PageBody '定义显示主体部分
Private PageBottom '定义显示尾部分
Private DisplayInfo

'-----------------------------------初始化所有固定变量-------------------------------
'入口参数: pageParameter(0） :信息总条数
'pageParameter(1）:每页显示条数
'pageParameter(2）:每页显示页数
'styleParameter(0):动静态风格，true为动态 false为静态 no为不显示
'styleParameter(1):前几页后几页,上一页下一页风格.true为前几页 false为上一页 no为不显示
'styleParameter(2):设置跳转函数true为下拉 false为submit加input no为不显示
'styleParameter(3):设置是否显示主体部分

'初始化对像函数
Private Sub Class_Initialize()
On Error Resume Next
Set PageStyle = CreateObject("Scripting.Dictionary")
PageStyle.Add "DS","false"
PageStyle.Add "PN","true"
PageStyle.Add "JP","true"
PageStyle.Add "BY","true"
PerPage=cint(Request.QueryString("page"))
End Sub

'在此说明：如果设置为动态的、上一页下一页风格则为中部动态。如果设置为静态则只能为上几页和下几页
' 如果设置为动态的、上几页下几页风格则为步进动态
Public Property Let InitPara(PLRs)
If isArray(PLRs) Then
TotalNums=PLRs(0)
PerLimit=PLRs(1)
PerPageLimit=PLRs(2)
Else
TotalNums=1
PerLimit=1
PerPageLimit=1
End If
End Property
Public Property Let DisplayStyle(styleParameter)
If isArray(styleParameter) Then
PageStyle.Item("DS")=styleParameter(0) '动态样式
PageStyle.Item("PN")=styleParameter(1) '上下页样式
PageStyle.Item("JP")=styleParameter(2) '表单样式风格
PageStyle.Item("BY")=styleParameter(3) '设置主体部分风格
End If
End Property
'-------------定义得到前台显示变量函数---------------
Public Property Get PageInfo()
PageInfo=DisplayInfo
End Property
'-------------定义取得当前分页中的当前页函数------------------------------
Public ProPerty Get GetPerPage()
GetPerPage=PerPage
End ProPerty
'-------------定义取得当前分页类中总页数函数------------------------------
Public ProPerty Get GetTotalPage()
GetTotalPage=TotalPage
End ProPerty

Public ProPerty Get GetStart()
GetStart=(PerPage-1)*PerLimit+1
End ProPerty
'-----------------定义取得当前页中信息首尾号函数---------------------------
Public Property Get GetEnd()
Dim Ends
Ends=GetStart()+PerLimit-1
If Ends>TotalNums Then Ends=TotalNums
GetEnd=Ends
End Property
'--------------定义创建分面显示内容------------------------------------
Public Sub PageList()
Call SetDefaultStyle()
Call SetPageUrl()
Call SetToTalPage()
Call SetPerPage()
Call SetStaticDynamic()
Call SetDisplayPageInfo()
End Sub

'------------定义设置强制风格函数----------------------------------------
Private Sub SetDefaultStyle()
If PageStyle("DS")="false" Then
If PageStyle("PN")<>"no" Then PageStyle("PN")="true"
End If
If PageStyle("BY")="no" Then PageStyle("PN")="false"
End Sub

'-------------定认取得当前网页路径函数----------------------------------
Private Sub SetPageUrl()
On Error Resume Next
Dim queryString
Dim tmp_str
Dim tmp_key,tmp_array
queryString =Request.ServerVariables("QUERY_STRING")
queryString = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each tmp_key In queryString
tmp_array = Split(tmp_key,"=")
If tmp_array(0)<>"page" Then
tmp_str = tmp_str & tmp_array(0) & "=" & tmp_array(1) & "&"
End If
Next
PageUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")&"?"&tmp_str
End Sub
'-------------定义设置当前分页类中总页数函数------------------------------
Private Sub SetTotalPage()
TotalPage=Abs(Int(-TotalNums/PerLimit))
End Sub
'--------------定义设置当前分页类中当前页数------------------------------
Private Sub SetPerPage()
If PerPage<=0 Then
PerPage=1
elseIf PerPage>TotalPage Then
PerPage=TotalPage
End IF
End Sub
'----------定义取得是否有上下页函数-----------------------------------
Public Function GetPerNextInfo()
Dim per,nexts
If PerPage>1 Then
per=PerPage-1
Else
per=false
End If
If PerPage<TotalPage Then
nexts=PerPage+1
Else
nexts=false
End If
GetPerNextInfo=array(per,nexts)
End Function
'-----------------定义取得是否有上几页和下几页函数-----------------
Public Function GetPerNextMoreInfo()
Dim start,ends
If PerPage>PerPageLimit Then
start=PageStart-1
Else
start=false
End If
If PageEnd<TotalPage Then
ends=PageEnd+1
Else
ends=false
End If
GetPerNextMoreInfo=array(start,ends)
End Function
'-----------------定义取得当前步进动态分页信息函数----------------------------
Private Sub SetDynamicPageInfo()
PageStart=PerPage
If PageStart<=0 Then PageStart=1
PageEnd=PerPageLimit+PageStart-1
If PageEnd>TotalPage Then PageEnd=TotalPage
End Sub
'-----------------定义取得当前中间动态分页信息函数----------------------------
Private Sub SetMidDynamicPageInfo()
Dim add
add=fix(PerPageLimit/2)
PageStart=PerPage-add
If PageStart<=0 Then PageStart=1
PageEnd=PerPageLimit+PageStart-1
If PageEnd>TotalPage Then PageEnd=TotalPage
End Sub
'-------------定义取得当前静态分页信息函数-------------------------------
Private Sub SetStaticPageInfo()
starts=PerPage/PerPageLimit
If starts-fix(starts)>0 Then
starts=fix(starts)
Else
starts=starts-1
End If
PageStart=starts*PerPageLimit+1
PageEnd=PageStart+PerPageLimit-1
If PageEnd>TotalPage Then PageEnd=TotalPage
End Sub

'------------定义通过判断是静动态来设置首尾号----------------
Private Sub SetStaticDynamic()
If PageStyle("DS")="false" Then
SetStaticPageInfo()
ElseIF PageStyle("DS")="true" Then
If PageStyle("PN")="true" Then
SetDynamicPageInfo()
Else
SetMidDynamicPageInfo()
End If
Else
SetStaticPageInfo()
End If
End Sub

'-------------定义显示前几页和后几页函数----------------------------
Public Function GetPerNextMore(mark)
Dim tmp_str
If PageStyle("PN")="false" or PageStyle("PN")="no" Then
PageBody=PageBody&""
GetPerNextMore=""
Exit Function
End If
IfPerNextArray=GetPerNextMoreInfo()
If PageStyle("DS")="true" and PageStyle("DS")="true" Then
IfPerNextArray(0)=IfPerNextArray(0)+1-PerPageLimit
If IfPerNextArray(0)<=0 Then IfPerNextArray(0)=1
If PerPage=1 Then IfPerNextArray(0)=false
End If
If IfPerNextArray(0) and mark="true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(0)&" title=前"&PerPageLimit&"页>9</a></font>"&chr(10)
If IfPerNextArray(1) and mark<>"true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(1)&" title=后"&PerPageLimit&"页>:</a></font>"&chr(10)
PageBody=PageBody&tmp_str
GetPerNextMore=tmp_str
End Function

'-------------定义显示前一页和后一页函数----------------------------
Public Function GetPerNext(mark)
Dim tmp_str
If PageStyle("PN")<>"false" Then
GetPerNext=""
Exit Function
End If
IfPerNextArray=GetPerNextInfo()
If IfPerNextArray(0) and mark="true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(0)&" title= 前一页>3</a></font> "
If IfPerNextArray(1) and mark<>"true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(1)&" title=后一页>4</a></font>"
PageBody=PageBody&tmp_str
GetPerNext=tmp_str
End Function

'-------------------定义显示分页头函数-------------------
Public Function GetPageHeader()
Dim tmp_str
If PageStyle("DS")="no" Then
GetPageHeader=""
Exit Function
End If
tmp_str="第"&PerPage&"页/共"&GetTotalPage()&"页 共"&TotalNums&"条"
PageHeader="<div style='float:left;display:inline;width:25%'>"&tmp_str&"</div>"&Chr(10)
GetPageHeader=tmp_str
End Function

'-------------------定义显示分页主体函数-------------------
Public Function GetPageBody()
If PageStyle("BY")="no" Then
GetPageBody=""
Exit Function
End IF
For PageStart=PageStart to PageEnd
If PerPage=PageStart Then
PageBody=PageBody&"<a href="&PageUrl&"page="&PageStart&" title=第"&PageStart&"页><span style='color:#F00'><b>["&PageStart&"]</b></span></a>"&Chr(10)
Else
PageBody=PageBody&"<a href="&PageUrl&"page="&PageStart&" title=第"&PageStart&"页>["&PageStart&"]</a>"&Chr(10)
End If
Next
GetPageBody=PageBody
End Function

'-------------------定义显示分页主体函数-------------------
Private Sub SetPageBody()
GetPerNextMore("true")
GetPerNext("true")
GetPageBody()
GetPerNextMore("false")
GetPerNext("false")
PageBody="<div style='float:left;display:inline;width:45%;text-align:center'>"&PageBody&"</div>"&Chr(10)
End Sub

'-------------------定义显示分页尾函数-------------------
Public Function GetPageEnd()
Dim tmp_str
If PageStyle("JP")="no" Then
GetPageEnd=""
PageBottom=""
Exit Function
ElseIF PageStyle("JP")="true" Then
tmp_str="跳到<select name='pageSelect' onChange='document.location=this.value'>"
for i=1 to GetTotalPage()
If i=PerPage Then
tmp_str=tmp_str&"<option value="&PageUrl&"page="&i&" selected>"&i&"</option>"
Else
tmp_str=tmp_str&"<option value="&PageUrl&"page="&i&">"&i&"</option>"
End If
Next
tmp_str=tmp_str&"</select>页"
ElseIF PageStyle("JP")="false" Then
tmp_str="<input type='text' name='pageSelect' id='pageSelect' size='3' maxlength='5' value='"&PerPage&"'>"
tmp_str=tmp_str&" <input type='button' value='GO' onClick=""document.location='"&PageUrl&"page='+ pageSelect.value"">"
End If
PageBottom="<div style='float:right;display:inline;width:20%'>"&tmp_str&"</div>"&Chr(10)
GetPageEnd=tmp_str
End Function

'-------------定义得到前台显示变量函数---------------
Private Sub SetDisplayPageInfo()
GetPageHeader()
SetPageBody()
GetPageEnd()
DisplayInfo="<div style='margin:5px;'>"&chr(10)&PageHeader&PageBody&PageBottom&"</div>"
End Sub
End Class
%>

   本人从事饲料销售多年，所有的饲料都是卖给农民养殖户；农民养猪似乎是祖传的特征，以前农民都是用水潲喂猪，几多年前农民与时俱进居然用起了饲料，饲料这东西确实也是好，以前要一年才养肥的猪到现在最少的也就4个多月就可以长到200多斤。

　　在农民心里，什么样的饲料才是好饲料呢？答案是 ：
　　1、猪吃了长得快的饲料
　　2、猪吃了长得皮红毛亮的饲料
　　3、猪吃了马上就睡的饲料
　　4、猪吃了粪便是黑色的饲料

　　农民一般就把这几个标准综合起来确定一种饲料的好坏。这么一来，让饲料厂家和销售商绞尽脑汁的问题出现了：怎么样才能使一种饲料能达到这几种效果呢？当然通过平常的在饲料中添加鱼粉，豆粕的方法是肯定行不通了，只有找“捷径”来达到目的。

　　我销售饲料这么多年，和大大小小的饲料厂30多家合作过，我亲眼看到的一般都是这么几个办法：

　　1、在饲料中添加激素刺激猪的生长速度，而这种激素肯定要价格低廉，价格低廉也就决定了这种激素非常低劣，这种低劣的激素对人体有很大的害处，特别是对发育的年轻人，能使不到年龄的女孩子提早来月经，使老年人诱发疾病等等。

　　2、在饲料中添加砷制剂来使猪皮红毛亮。砷，这不要我说了吧？谁都知道是剧毒品。（农民以为皮红毛亮是有营养的表现，其实是猪轻微的中毒）

　　3、在饲料中添加镇静剂，如本巴比妥等催眠镇静药。有的人吃了猪肉有昏昏欲睡的感觉就是这个原因，长期吃这种猪肉使人的头脑迟钝。（农民以为猪吃了睡觉是好饲料）

　　4、不知道为什么农民认为猪拉黑色的大便也是好饲料的特征，其实正常的猪屎是黄褐色的，因为农民有此爱好，所以饲料厂家就拼命的添加高铜，这样才能使大便变黑。猪肉中含有高铜，人过多的食用对智商和健康有巨大的影响。

　　用含有大量药物、化学制剂的添加剂来喂养各种有血有肉的动物，人类的贪婪使各种动物生命变得如此之短，再短。而整天食用这些动物的人类呢？这些化学药物、化学制剂也会被人摄入体内，在人体内沉积，对人体的生长发育造成极坏影响，诱发人体产生各种长期的不适症状、痛苦病症以至于最终诱发癌症。
　　看了上面我说的，大家心里应该有数了吧。

　　另外，告诉大家：猪肝，猪血，猪肺是含毒素最多的，最好不要食用。

　　此外还告诉大家一个秘密，饲料相关的生产厂家和销售人员基本上是不吃肉的。

生活就像自慰，什么都得靠自己双手

学习就像嫖娼，出完钱后又出力

工资就像例假，一月不来你就傻眼

谈判就像口交，费尽了口舌也就那点收获

捐款就像发情，一想起来马上就要

奖金就像阴毛，掉的要比长的多

领导就像阴道，总是欺软怕硬

开会就像乱轮，搞不清谁该搞谁

兄弟像避孕套，桶多大的娄子都帮你兜着

看贴不回的就像阳痿，明明看爽了，就是没动作！！！

　　于是女大夫问：“你打过炮吗？”一下子满屋寂静……我同事憋的脸红脖子粗小声说：“打过，可是有什么关系吗？”

　　“哦，我是说你是不是退伍兵。”又晕倒了一片！
本文来源于 荤段子 , 原文地址:http://hunduanzi.blogspot.com/2008/04/blog-post_3713.html

　　女：不要脸……

　　男：那我亲嘴好了……
本文来源于 荤段子 , 原文地址:http://hunduanzi.blogspot.com