SetUp.asp

<!--#include file="Conn.asp"-->
<%
'主栏目显示
LineNum=0 'LineNum为一列显示数,为0只显示一列；
MenuKind=0 '主栏目类型:0为显示文字,1为显示图片
ImgKind=0 '图片类型:0为jpg,1为gif
ImgNameStr="Menu" '图片前辍 ,图片名称是:前辍加数字,数字从1开始
ImgChange=0 '图片是否交换:0为不交换,1为交换 ,交换的图片在原图片名称名加后辍"Re"
TwoMenu=0 '是否显示二级菜单:0为不显示,1为显示
LeftValue=4 '二级菜单左距
TopValue=30 '二级菜单上距
LeftValueAdd=80 '二级菜单左累加
Function zMenus(LineNum,MenuKind,ImgKind,ImgNameStr,ImgChange,TwoMenu,LeftValue,TopValue,LeftValueAdd)
 Set zRs=Server.CreateObject("adodb.recordset")
 zSql="select * from UserMenu where State=1 and RID=0 order by Sort"
 zRs.Open zSql,Conn,1,1
 line=0
 If LineNum=0 Then LineNum=zRs.RecordCount
 
 '图片类型
 Select Case ImgKind
  Case 0
   Ex=".jpg"
  Case 1
   Ex=".gif"
 End Select
If TwoMenu=1 Then
%>
<SCRIPT language=JavaScript>
//二级菜单
ypSlideOutMenu.Registry = []
ypSlideOutMenu.aniLen = 20
ypSlideOutMenu.hideDelay = 800
ypSlideOutMenu.minCPUResolution = 10
// constructor
function ypSlideOutMenu(id, dir, left, top, width, height)
{
this.ie = document.all ? 1 : 0
this.ns4 = document.layers ? 1 : 0
this.dom = document.getElementById ? 1 : 0
if (this.ie || this.ns4 || this.dom) {
this.id = id
this.dir = dir
this.orientation = dir == "left" || dir == "right" ? "h" : "v"
this.dirType = dir == "right" || dir == "down" ? "-" : "+"
this.dim = this.orientation == "h" ? width : height
this.hideTimer = false
this.aniTimer = false
this.open = false
this.over = false
this.startTime = 0
this.gRef = "ypSlideOutMenu_"+id
eval(this.gRef+"=this")
ypSlideOutMenu.Registry[id] = this
var d = document
d.write('<style type="text/css">')
d.write('#' + this.id + 'Container { visibility:hidden; ')
d.write('left:' + left + 'px; ')
d.write('top:' + top + 'px; ')
d.write('overflow:hidden; }')
d.write('#' + this.id + 'Container, #' + this.id + 'Content { position:absolute; ')
d.write('width:' + width + 'px; ')
d.write('height:' + height + 'px; ')
d.write('clip:rect(0 ' + width + ' ' + height + ' 0); ')
d.write('}')
d.write('</style>')
this.load()
}
}
ypSlideOutMenu.prototype.load = function() {
var d = document
var lyrId1 = this.id + "Container"
var lyrId2 = this.id + "Content"
var obj1 = this.dom ? d.getElementById(lyrId1) : this.ie ? d.all[lyrId1] : d.layers[lyrId1]
if (obj1) var obj2 = this.ns4 ? obj1.layers[lyrId2] : this.ie ? d.all[lyrId2] : d.getElementById(lyrId2)
var temp
if (!obj1 || !obj2) window.setTimeout(this.gRef + ".load()", 100)
else {
this.container = obj1
this.menu = obj2
this.style = this.ns4 ? this.menu : this.menu.style
this.homePos = eval("0" + this.dirType + this.dim)
this.outPos = 0
this.accelConst = (this.outPos - this.homePos) / ypSlideOutMenu.aniLen / ypSlideOutMenu.aniLen
// set event handlers.
if (this.ns4) this.menu.captureEvents(Event.MOUSEOVER | Event.MOUSEOUT);
this.menu.onmouseover = new Function("ypSlideOutMenu.showMenu('" + this.id + "')")
this.menu.onmouseout = new Function("ypSlideOutMenu.hideMenu('" + this.id + "')")
//set initial state
this.endSlide()
}
}
ypSlideOutMenu.showMenu = function(id)
{
var reg = ypSlideOutMenu.Registry
var obj = ypSlideOutMenu.Registry[id]
if (obj.container) {
obj.over = true
for (menu in reg) if (id != menu) ypSlideOutMenu.hide(menu)
if (obj.hideTimer) { reg[id].hideTimer = window.clearTimeout(reg[id].hideTimer) }
if (!obj.open && !obj.aniTimer) reg[id].startSlide(true)
}
}
ypSlideOutMenu.hideMenu = function(id)
{
var obj = ypSlideOutMenu.Registry[id]
if (obj.container) {
if (obj.hideTimer) window.clearTimeout(obj.hideTimer)
obj.hideTimer = window.setTimeout("ypSlideOutMenu.hide('" + id + "')", ypSlideOutMenu.hideDelay);
}
}
ypSlideOutMenu.hideAll = function()
{
var reg = ypSlideOutMenu.Registry
for (menu in reg) {
ypSlideOutMenu.hide(menu);
if (menu.hideTimer) window.clearTimeout(menu.hideTimer);
}
}
ypSlideOutMenu.hide = function(id)
{
var obj = ypSlideOutMenu.Registry[id]
obj.over = false
if (obj.hideTimer) window.clearTimeout(obj.hideTimer)
obj.hideTimer = 0
if (obj.open && !obj.aniTimer) obj.startSlide(false)
}
ypSlideOutMenu.prototype.startSlide = function(open) {
this[open ? "onactivate" : "ondeactivate"]()
this.open = open
if (open) this.setVisibility(true)
this.startTime = (new Date()).getTime()
this.aniTimer = window.setInterval(this.gRef + ".slide()", ypSlideOutMenu.minCPUResolution)
}
ypSlideOutMenu.prototype.slide = function() {
var elapsed = (new Date()).getTime() - this.startTime
if (elapsed > ypSlideOutMenu.aniLen) this.endSlide()
else {
var d = Math.round(Math.pow(ypSlideOutMenu.aniLen-elapsed, 2) * this.accelConst)
if (this.open && this.dirType == "-") d = -d
else if (this.open && this.dirType == "+") d = -d
else if (!this.open && this.dirType == "-") d = -this.dim + d
else d = this.dim + d
this.moveTo(d)
}
}
ypSlideOutMenu.prototype.endSlide = function() {
this.aniTimer = window.clearTimeout(this.aniTimer)
this.moveTo(this.open ? this.outPos : this.homePos)
if (!this.open) this.setVisibility(false)
if ((this.open && !this.over) || (!this.open && this.over)) {
this.startSlide(this.over)
}
}
ypSlideOutMenu.prototype.setVisibility = function(bShow) {
var s = this.ns4 ? this.container : this.container.style
s.visibility = bShow ? "visible" : "hidden"
}
ypSlideOutMenu.prototype.moveTo = function(p) {
this.style[this.orientation == "h" ? "left" : "top"] = this.ns4 ? p : p + "px"
}
ypSlideOutMenu.prototype.getPos = function(c) {
return parseInt(this.style[c])
}
ypSlideOutMenu.prototype.onactivate = function() { }
ypSlideOutMenu.prototype.ondeactivate = function() { }
//结束

var menus = [
<%
leftvalue=LeftValue
topvalue=TopValue
for menuii=1 to zRs.RecordCount
%>
 new ypSlideOutMenu("menu<% =menuii %>", "down", <% =leftvalue %>, <% =topvalue %>, <%=LeftValueAdd%>, 300),
<%
 leftvalue=leftvalue+LeftValueAdd
next
%>
]
</SCRIPT>

<DIV id=Layer0 style="HEIGHT: 16px; POSITION: absolute; VISIBILITY: hidden; WIDTH: 100%; Z-INDEX: 3">
<% for menui=1 to zRs.RecordCount %>
<DIV id=menu<% =menui %>Container>
<DIV id=menu<% =menui %>Content>
<div align="center" style="background:#0DA9AB;hight:20px;padding:0px;">
    <%
 Set Rs=Server.CreateObject("adodb.recordset")
 sql="select * from UserMenu where RID=" & menui & " order by sort"
 Rs.Open Sql,Conn,1,1
 While Not Rs.Eof and Rs.RecordCount>1
 If Rs("LinkUrl")="" or isNull(Rs("LinkUrl"))=true or Rs("LinkUrl")=null then
  Url="Main.asp?zMenuID=" & Rs("RID") & "&fMenuID=" & Rs("MID")
 else
  Url=Rs("LinkUrl")
 end if
 target=Rs("OpenType")
 %>
 &nbsp;<a href="<%=Url%>" target="<%=target%>"><%=Rs("ChinaMenu")%></a>&nbsp;
 <%
 Rs.MoveNext
 If Not Rs.Eof then
  Response.Write "<br>"
 end if
 Wend
 Rs.Close()
 %>
</div>
</div>
</DIV>

<% next %>
</div>

<%
end if
'二级菜单结束
%>
<script language="JavaScript">
//变图
function swapImage(ImgPath,ImgObj){
 document.getElementById(""+ImgObj+"").src=ImgPath;
}
</script>
<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<%
line=0
Do While Not zRs.Eof
 line=line+1
 If zRs("LinkUrl")<>"" Then
  LinkUrl=zRs("LinkUrl")
 Else
  LinkUrl="Main.asp?zMenuID=" & zRs("MID")
 End if
 '主栏目类型
 Select Case MenuKind
  Case 0
   Menu=zRs("ChinaMenu")
  Case 1
   ImgPath="images/" & ImgNameStr & line & Ex
   ImgPath2="images/" & ImgNameStr & line & "Re" & Ex
   ImgObj="Menu" & line
   If ImgChange=1 Then ImgEvent=" onMouseOver=swapImage('" & ImgPath2 & "','" & ImgObj & "') onMouseOut=swapImage('" & ImgPath & "','" & ImgObj & "')"
   Menu="<img src='" & ImgPath & "' border='0' name='" & ImgObj & "'" & ImgEvent & ">"
 End Select
 If TwoMenu=1 Then aEvent=" onMouseOver=ypSlideOutMenu.showMenu('menu" & line & "') onMouseOut=ypSlideOutMenu.hideMenu('menu" & line & "')"
 Rw "<a href=" & LinkUrl & " target='" & zRs("OpenType") & "' id='act" & line & "'" & aEvent & ">" & Menu & "</a>"
 zRs.MoveNext
 if zRs.Eof then
  Exit Do
 Else
  If line mod LineNum = 0 Then
   Response.Write "</td></tr><tr><td>"
  Else
   If MenuKind=0 Then Response.Write "&nbsp;|&nbsp;"
  End if
 End if
Loop
%>
 </td>
  </tr>
</table>
<%
 zRs.Close
 Set zRs=Nothing
End Function

'**************************************************************************************************

'子栏目显示
LineNum=0 'LineNum为一列显示数,为0只显示一列；
ImgUrl="" '标题前显示的图片
Function fMenus(LineNum,ImgUrl)
 zMenuID=Request.QueryString("zMenuID")
 If zMenuID="" Then Response.End()
 zMenuID=Cint(zMenuID)
 Set fRs=Server.CreateObject("adodb.recordset")
 fSql="select * from UserMenu where RID=" & zMenuID & " and State=1 order by Sort"
 fRs.Open fSql,Conn,1,1
 line=0
 If LineNum=0 Then LineNum=fRs.RecordCount
%>
<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
 <%
 Do While Not fRs.Eof
  line=line+1
  If fRs("LinkUrl")<>"" Then
   LinkUrl=fRs("LinkUrl")
  Else
   LinkUrl="Main.asp?zMenuID=" & fRs("RID") & "&fMenuID=" & fRs("MID")
  End if
  Rw "<img src=" & ImgUrl & ">&nbsp;"
  Rw "<a href=" & LinkUrl & " target='" & fRs("OpenType") & "'>" & fRs("ChinaMenu") & "</a>"
  fRs.MoveNext
  if fRs.Eof then
   Exit Do
  Else
   If line mod LineNum = 0 Then
    Rw "</td></tr><tr><td>"
   Else
    Rw "|&nbsp;&nbsp;"
   End if
  End if
 Loop
 %>
 </td>
  </tr>
</table>
<%
 fRs.Close
 Set fRs=Nothing
End Function

'**************************************************************************************************

'显示单个主栏目
sub zMenuName
 zMenuID=Request.QueryString("zMenuID")
 If zMenuID="" Then Response.End()
 zMenuID=Cint(zMenuID)
 zSql="select * from UserMenu where MID=" & zMenuID
 Set zRs=Conn.Execute(zSql)
 Rw zRs("ChinaMenu")
 zRs.Close()
 set zRs=nothing
end sub

'**************************************************************************************************

'显示位置
Sub ShowPath
 zMenu=Request.QueryString("zMenuID")
 fMenu=Request.QueryString("fMenuID")
 If zMenu="" Then Response.End
 If fMenu="" Then fMenu=0
 PathStr="您的位置：<a href='index.asp'>首页</a> &gt; "
 zSql="select * from UserMenu where MID=" & zMenu
 Set zRs=Conn.Execute(zSql)
 if Not zRs.Eof Then
  PathStr = PathStr & "<a href=main.asp?zMenuID=" & zRs("Mid") & ">" & zRs("ChinaMenu") & "</a>"
 End if
 zRs.Close
 Set zRs=Nothing
 If fMenu>0 Then
  fSql="select * from UserMenu where MID=" & fMenu
  Set fRs=Conn.Execute(fSql)
  if Not fRs.Eof Then
   PathStr = PathStr & " &gt; <a href=main.asp?zMenuID=" & fRs("RID") & "&fMenuID=" & fRs("MID") & ">" & fRs("ChinaMenu") & "</a>"
  End if
  fRs.Close
  Set fRs=Nothing
 End if
 if zMenu<>"" Then Rw(PathStr)
End Sub

'**************************************************************************************************

'内容显示调用过程
ShowCount=20 '一页显示条数,0不全部显示
LineNum=1 '一行显示条数
ImgWidth=100 '图片宽
ImgHeight=100 '图片高
ShowPage=1 '是否显示分页
ShowDate=1 '是否显示日期
ShowClick=0 '是否显示点击率
swtitle=1 '显示中条
ShowTitle=1 '是否显示标题
TitleNum=10 '标题字数,0为全显示
ContentNum=0 '内容字数,0为全显示
ShowHtml=1 '是否去除HTML代码
ImgUrl="" '标题前图片
Function ShowContent(ShowCount,LineNum,ImgWidth,ImgHeight,ShowPage,ShowDate,ShowClick,swtitle,ShowTitle,TitleNum,ContentNum,ShowHtml,ImgUrl)
 zMenu=Trim(Request.QueryString("zMenuID"))
 fMenu=Trim(Request.QueryString("fMenuID"))
 News=Trim(Request.QueryString("NewsID"))
 If zMenu="" then zMenu=0
 If fMenu="" then fMenu=0
 If News="" then News=0
 If zMenu=0 Then Response.End()
 Set Rs=Server.CreateObject("Adodb.RecordSet")
 If fMenu=0 Then
  Sql="select * from UserMenu where RID=" & zMenu & " order by Sort asc"
  Rs.Open Sql,Conn,1,1
  If Rs("LinkUrl")="" or isNull(Rs("LinkUrl"))=true then
   fMenu=Rs("MID")
  Else
   Rs.MoveNext
  End if
  Rs.Close()
 End if
 Sql="select * from UserMenu where MID=" & fMenu
 Rs.Open Sql,Conn,1,1
 fShowType=Rs("MenuType")
 Rs.Close()
 If fShowType=0 and News=0 Then
  Sql="select top 1 * from UserContent where MID=" & fMenu & " order by Sort Desc"
  Rs.Open Sql,Conn,1,1
  If Rs("LinkUrl")<>"" or isNull(Rs("LinkUrl"))=false then
   Rs.MoveNext
  Else
   News=Rs("CID")
  End if
  Rs.Close()
 End if
 
 If News>0 Then
  '显示内容
  If fShowType=0 Then
   Sql="select * from UserContent where MID=" & fMenu & " order by Sort Desc"
  Else
   Sql="select * from UserContent where CID=" & News
  End if
  Rs.Open Sql,Conn,1,3
  If Rs.Eof Then
   Response.Write("目前没有要显示的内容！")
  Else
   Rs.PageSize =1'每页记录条数
   iCount=Rs.RecordCount '记录总数
   maxpage=Rs.PageCount 
   page=request.QueryString("page")
   if Not IsNumeric(page) or page="" then
    page=1
   else
    page=cint(page)
   end if
   
   if page<1 then
    page=1
   elseif  page>maxpage then
    page=maxpage
   end if
   line=0
   Rs.AbsolutePage=page
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <%While Not Rs.Eof And line<Rs.PageSize%>
  <tr>
    <td>
 <%
 line=line+1
 Content=Rs("ChinaContent")
 if ShowHtml=0 then
  While Instr(Content,"<")<>0 and Instr(Content,">")<>0
   Content=left(Content,Instr(Content,"<")-1)&Right(Content,len(Content)-Instr(Content,">"))
  Wend
 End if
 If ContentNum>0 Then Content=left(Content,ContentNum) & "..<a href='Main.asp?zMenuID=" & zMenu & "&fMenuID=" & fMenu & "'>[详情点击]</a>"
 If fShowType>0 Then
  Response.Write "<center class='TitleCss'>" & Rs("ChinaTitle") & "</center>"
  Response.Write "<hr size=1 noshade>"
  
  Response.Write "<center class='swtitleCss'>"
  Response.Write "出处来源：" & Rs("Source") & "　作者：" & Rs("writer") & "　发布时间：" & Rs("AddTime")
  Response.Write "</center><br><br>"
  Response.Write Content
 End if 
 %>
 </td>
  </tr>
  <%Wend%>
</table>

<%
if fShowType=0 and maxpage>1 then
 Rw("<br><br><div align=center>")'分页
 Call PageFun(maxpage,page)
 Rw("</div>")
end if
  End if
  '显示内容结束
 Else
  '列表
  if fMenu=0 then
   Response.Write "<center style='font-size:12px;'>此栏目暂无内容，请稍侯访问！</center>"
  Else
   Sql="select * from UserContent where MID=" & fMenu & " order by Sort Desc"
   Rs.Open Sql,Conn,1,1
   If Rs.Eof Then
    Response.Write "<center style='font-size:12px;'>目前没有要显示的内容，请稍侯访问！</center>"
   Else
    if ShowCount=0 then ShowCount=Rs.RecordCount
    Rs.PageSize =ShowCount'每页记录条数
    iCount=Rs.RecordCount '记录总数
    maxpage=Rs.PageCount'总页数
    page=request.QueryString("page")
    if Not IsNumeric(page) or page="" then
     page=1
    else
     page=cint(page)
    end if
    
    if page<1 then
     page=1
    elseif  page>maxpage then
     page=maxpage
    end if
    line=0
    Rs.AbsolutePage=page
  
    Select Case fShowType
     Case 1'标题列表
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <%
  do While Not Rs.Eof And line<Rs.PageSize
  line=line+1
  If Rs("LinkUrl")="" or isNull(Rs("LinkUrl"))=true or Rs("LinkUrl")=null then
   Url=Request.ServerVariables("SCRIPT_NAME") & "?zMenuID=" & zMenu & "&fMenuID=" & fMenu & "&NewsID=" & Rs("CID") & "&Page=" & Page
  Else
   Url=Rs("LinkUrl")
  End if
  Target=Rs("OpenType")
  Title=Rs("ChinaTitle")
  If TitleNum>0 Then Title=left(Title,TitleNum)
  %>
  <tr>
    <td class="line">
 <img src="<%=ImgUrl%>" border=0 hspace="5" align="absmiddle">
 <a href="<%=Url%>">
 <%=Title%>
 <%if ShowClick=1 Then Response.Write "[ " & Rs("ClickRate") & " ]"%>
 </a>
 </td>
 <%If ShowDate=1 Then%>
 <td width="100" class="line">
 <%
 showdates=formatdatetime(trim(Rs("AddTime")),2)
 y0=split(showdates,"-")(0)
 y1=split(showdates,"-")(1)
 y2=split(showdates,"-")(2)
 if len(y1)=1 then y1="0" & y1
 if len(y2)=1 then y2="0" & y2
 showdates=mid(y0 & "/" & y1 & "/" & y2,3,10)
 Response.Write "[" & showdates & "]"
 %>
 </td>
  </tr>
  <%
   End if
   Rs.MoveNext
  Loop
  %>
</table>
<%
If ShowPage=1 and maxpage>1 Then
 Response.Write "<br><br><center>"
 RecordTotal=iCount '总记录数
 PageTotal=maxpage '总页数
 ShowRecord=ShowCount '一页显示记录
 Page=Page '当前页号
 CurVar="&zMenuID=" & zMenu & "&fMenuID=" & fMenu '当前变量参数
 NumCount=10 '数字的显示个数
 Call PageControl(RecordTotal,PageTotal,ShowRecord,Page,CurVar,NumCount)
 Response.Write "</center>"
End if
     
     
     
     Case 2'图片排列
%>

<script language="JavaScript">
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
 if (!document.all)
 return
 if (object != "[object]"){ //do this so I can take a string too
 setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
 return;
 }
 clearTimeout(nereidFadeTimers[object.sourceIndex]);
 diff = destOp-object.filters.alpha.opacity;
 direction = 1;
 if (object.filters.alpha.opacity > destOp){
 direction = -1;
 }
 delta=Math.min(direction*diff,delta);
 object.filters.alpha.opacity+=direction*delta;
 
 if (object.filters.alpha.opacity != destOp){
 nereidFadeObjects[object.sourceIndex]=object;
 nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
 }
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
  <%
  do While Not Rs.Eof And line<Rs.PageSize
  line=line+1
  If Rs("LinkUrl")="" or isNull(Rs("LinkUrl"))=true or Rs("LinkUrl")=null then
   Url=Request.ServerVariables("SCRIPT_NAME") & "?zMenuID=" & zMenu & "&fMenuID=" & fMenu & "&NewsID=" & Rs("CID") & "&Page=" & Page
  Else
   Url=Rs("LinkUrl")
  End if
  Target=Rs("OpenType")
  Title=Rs("ChinaTitle")
  ImgUrl="UserUpPic" & Rs("RePhoto")
  If TitleNum>0 Then Title=left(Title,TitleNum)
  %>
    <td>
<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">
 <a href="<%=Url%>"><img src="<%=ImgUrl%>" hspace="3" vspace="5" width="<%=ImgWidth%>" height="<%=ImgHeight%>" border="0"  style="border:1px solid #cccccc;FILTER: alpha(opacity=100)" οnmοuseοver="nereidFade(this,40,15,10)" οnmοuseοut="nereidFade(this,100,30,10)" alt="点击详情"></a>
 </td>
  </tr>
  <%If ShowTitle=1 Then%>
  <tr>
    <td align="center"><a href="<%=Url%>"><%=Title%></a></td>
  </tr>
  <%End if%>
</table>
 </td>
  <%
   Rs.MoveNext
 If Not Rs.Eof and line Mod LineNum = 0 Then Response.Write "</tr><tr>"
  Loop
  %>
  </tr>
</table>
<%
If ShowPage=1 and maxpage>1 Then
 Response.Write "<br><br><center>"
 RecordTotal=iCount '总记录数
 PageTotal=maxpage '总页数
 ShowRecord=ShowCount '一页显示记录
 Page=Page '当前页号
 CurVar="&zMenuID=" & zMenu & "&fMenuID=" & fMenu '当前变量参数
 NumCount=10 '数字的显示个数
 Call PageControl(RecordTotal,PageTotal,ShowRecord,Page,CurVar,NumCount)
 Response.Write "</center>"
End if
      
    End Select
    Rs.Close()
   End if
  End if
 End if
End Function

'**************************************************************************************************

'分页
PageTotal=1 '总页数
page=page '当前页号
Function PageFun(PageTotal,page)'分页
 Url=Request.ServerVariables("SCRIPT_NAME") & "?zMenuID="&zMenuID&"&fMenuID="&fMenuID&"&"
 if page<=1 then
    else       
        Response.Write("<A HREF="&Url&"Page=" & (Page-1) & ">上一页</A> &nbsp;" & vbCrLf)
    end if
    if page>=PageTotal then
    else
        Response.Write("<A HREF="&Url&"Page=" & (Page+1) & ">下一页</A>&nbsp; " & vbCrLf)
    end if
End Function

 

'RecordTotal=RecordTotal '总记录数
'PageTotal=PageTotal '总页数
'ShowRecord=ShowRecord '一页显示记录
'Page=Page '当前页号
'CurVar="" '当前变量参数
'NumCount=10 '数字的显示个数
Function PageControl(RecordTotal,PageTotal,ShowRecord,Page,CurVar,NumCount)
 Dim StareRecord
 Dim EndRecrod
 Dim CurNum
 Dim curFile
 Dim BigPageTotal
 curFile=Request.ServerVariables("SCRIPT_NAME")
 
 If PageTotal<NumCount Then
  NumCount=PageTotal
 BigPageTotal=1
 Else
  BigPageTotal = PageTotal - NumCount
 End if
 
 BigPage=Trim(Request("BigPage"))
 If Not IsNumeric( BigPage ) or BigPage = "" Then
  BigPage = 1
 else
  BigPage = Cint( BigPage )
 End If
 If BigPage < 1 Then
  BigPage = 1
 ElseIf  BigPage > BigPageTotal Then
  BigPage = BigPageTotal
 End If
 StareRecord = BigPage
 EndRecrod = StareRecord + NumCount - 1
 Response.Write "共" & Cint(RecordTotal) & "条记录&nbsp;页次：" & Cint(Page) & "/" & Cint(PageTotal) & "页&nbsp;&nbsp;"
 If BigPage > 1 Then
  Response.Write "<a href=" & curFile & "?BigPage=" & BigPage-1 & "&Page=" & Page-1 & CurVar & ">上一页</a>&nbsp;&nbsp;"
 End if
 For CurNum=1 To NumCount
  If Page = StareRecord Then
   Response.Write "[" & StareRecord & "]&nbsp;&nbsp;"
  Else
   Response.Write "<a href=" & curFile & "?BigPage=" & BigPage & "&Page=" & StareRecord & CurVar & ">[" & StareRecord & "]</a>&nbsp;&nbsp;"
  End if
  StareRecord=StareRecord+1
  If StareRecord > EndRecrod Then Exit For
 Next
 If BigPage < BigPageTotal Then
  Response.Write "&nbsp;<a href=" & curFile & "?BigPage=" & BigPage+1 & "&Page=" & Page+1 & CurVar & ">下一页</a>"
 End if
End Function
%>