ASP分頁程序的詳細說明

2011/6/11 11:48:34 出處：本站人氣：31次字號：小中大

騎自行車的正確

在校大學生該如

微信朋友圈怎么

每日一囧

本文主要給大家介紹到的是關(guān)于ASP分頁程序的詳細解析，希望能給大家?guī)韼椭騿l(fā)。

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>
<center>
<body>

    <table width="400" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="showpage_test.asp">
      <tr>
        <td width="112" height="20"><div align="center">起始日期</div></td>
        <td width="288" height="20"><input name="startTime" type="text" id="startTime" onClick="setday(this)" size="20" readonly></td>
      </tr>
      <tr>
        <td height="20"><div align="center">結(jié)束日期</div></td>
        <td height="20"><input name="endTime" type="text" id="endTime" onClick="setday(this)" size="20" readonly></td>
      </tr>
      <tr>
        <td height="20" colspan="2"><div align="center">
            <input type="submit" name="Submit" value="查詢">
            <input type="submit" name="Submit2" value="我要投訴">
          </div></td>
      </tr>
   </form>
    </table>

<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><div align="center">
          <%
const MaxPerPage=1
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if request("page")="" then
currentPage=1
else
currentPage=cint(request("page"))'在表單中先強制只能輸入數(shù)字
'if IsNumeric(request("page")) then
  'currentPage=cint(request("page"))
'else
'Response.write "這里提示只能輸入數(shù)字"
'end if
end if
%>
<%
Set Conn=Server.CreateObject("adodb.Connection")
Conn.Open Application("connStr")
Set Rs=server.createobject("adodb.recordset")
startTime=request("startTime")
endTime=request("endTime")
if startTime<>"" and endTime<>"" then
  endTime=dateadd("d",1,endTime)
  sql="select * from d_leave_word where ly_Date between '"&startTime&"' and '"&endTime&"'"
  endTime=dateadd("d",-1,endTime)
  else
  sql="select * from d_leave_word"
end if
GoPage="showpage_test.asp"
Condition="&startTime="&startTime&"&endTime="&endTime&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'><font color='#000066'>還沒任何信息!</font></p>"
else
totalPut=rs.recordcount
if currentpage<1 then
  currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
  if (totalPut mod MaxPerPage)=0 then
   currentpage= totalPut \ MaxPerPage
  else
   currentpage= totalPut \ MaxPerPage + 1
  end if
end if
if currentPage=1 then
  showContent
  showpage totalput,MaxPerPage,GoPage
elseif (currentPage-1)*MaxPerPage<totalPut then
  rs.move (currentPage-1)*MaxPerPage
  dim bookmark
  bookmark=rs.bookmark
  showContent
  showpage totalput,MaxPerPage,GoPage
else
  currentPage=1
  showContent
  showpage totalput,MaxPerPage,GoPage
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
          <%
sub showContent
dim i
i=0
%>
          <table width="96%" border="0" cellpadding="0" cellspacing="1" bgcolor="#4D90AB">
            <tr bgcolor="#D7F3FF">
              <td width="80" height="21"><div align="center">投訴類別</div></td>
              <td width="124" height="21"><div align="center">投訴內(nèi)容</div></td>
              <td width="60" height="21"><div align="center">投訴日期</div></td>
              <td width="60" height="21"><div align="center">投訴狀態(tài)</div></td>
              <td width="127" height="21"><div align="center">處理意見</div></td>
              <td width="60" height="21"><div align="center">處理時間</div></td>
              <td width="40"><div align="center">查看</div></td>
            </tr>
            <%do while not rs.eof%>
            <tr bgcolor="#FFFFFF">
              <td width="80" height="20"><div align="center"><%=HTMLdecode(rs("Type_Name"))%></div></td>
              <td height="20"><div align="left">
                  <%if len(HTMLdecode(rs("Content")))>9 then response.write left(HTMLdecode(rs("Content")),9)&"..." else response.write HTMLdecode(rs("Content")) end if%>
                </div></td>
              <td width="60" height="20"><div align="center"><%=rs("ly_Date")%></div></td>
              <td width="60" height="20"><div align="center">
                  <%if HTMLdecode(rs("Re_Content"))<>"" then response.write "已回復" else response.write "處理中" end if%>
                </div></td>
              <td height="20"><div align="left">
                  <%if len(rs("Re_Content"))>9 then response.write left(rs("Re_Content"),9)&"..." else response.write rs("Re_Content") end if%>
                </div></td>
              <td width="60" height="20"><div align="center"><%=HTMLdecode(rs("Re_Date"))%></div></td>
              <td width="40"><div align="center"><a href="leave_word.asp?sType=查看&id=<%=rs("id")%>">查看</a></div></td>
            </tr>
            <%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%>
          </table>
          <%end sub%>
        </div></td>
    </tr>
</table>
</body></center>
</html>
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action='"&GoPage&"?z=1"&Condition&"'>"
' response.write "<p align='left' vAlign='bottom'>  >>信息分頁 "
response.write "<p align='center' vAlign='center'>  "
if CurrentPage<2 then
response.write "<font color='#648ECE'>首頁上一頁</font> "
else
response.write "<a href="&filename&"?page=1"&Condition&">首頁</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&""&Condition&">上一頁</a> "
end if
if n-currentpage<1 then
response.write "<font color='#648ECE'>下一頁尾頁</font>"
else
response.write "<a href="&filename&"?page="&CurrentPage+1&""&Condition&">下一頁</a> "
response.write "<a href="&filename&"?page="&n&""&Condition&">尾頁</a>"
end if
response.write " 頁次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>頁 "
response.write " 共<b>"&totalnumber&"</b>個信息 <b>"&maxperpage&"</b>個信息/頁 "
response.write " 轉(zhuǎn)到：<input class=TextBorder style='FONT-SIZE:8pt;width:20;HEIGHT:18px;' type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&" onkeydown='onlyNum();'>"
response.write "  <input name='submit' type='submit' value='提交'>"
response.write "</span></p></form>"
end function
%>
<script language=java script>
function onlyNum()
{if(!((event.keyCode>=48&&event.keyCode<=57)||(event.keyCode>=96&&event.keyCode<=105)))
event.returnValue=false;}
</script>

<script language="java script">
<!--

//============== 參數(shù)設(shè)定部分 ============================
var bMoveable=true; //設(shè)置日歷是否可以拖動
var _VersionInfo="Version:2006 " //版本信息

//=============== WEB 頁面顯示部分 ======================

var strFrame;  //存放日歷層的HTML代碼h
document.writeln('<iframe id=meizzDateLayer Author=wayx frameborder=0 style="position: absolute; width: 150; height: 220; z-index: 9998; display: none"></iframe>');
strFrame='<style>';
strFrame+='INPUT.button{BORDER-RIGHT: #ff9900 1px solid;BORDER-TOP: #ff9900 1px solid;BORDER-LEFT: #ff9900 1px solid;';
strFrame+='BORDER-BOTTOM: #ff9900 1px solid;BACKGROUND-COLOR: #fff8ec;font-family:宋體;}';
strFrame+='TD{FONT-SIZE: 9pt;font-family:宋體;}';
strFrame+='</style>';
strFrame+='<scr' + 'ipt>';
strFrame+='var datelayerx,datelayery; /*存放日歷控件的鼠標位置*/';
strFrame+='var bDrag; /*標記是否開始拖動*/';
strFrame+='function document.onmousemove() /*在鼠標移動事件中，如果開始拖動日歷，則移動日歷*/';
strFrame+='{if(bDrag && window.event.button==1)';
strFrame+=' {var DateLayer=parent.document.all.meizzDateLayer.style;';
strFrame+='  DateLayer.posLeft += window.event.clientX-datelayerx;/*由于每次移動以后鼠標位置都恢復為初始的位置，因此寫法與div中不同*/';
strFrame+='  DateLayer.posTop += window.event.clientY-datelayery;}}';
strFrame+='function DragStart()  /*開始日歷拖動*/';
strFrame+='{var DateLayer=parent.document.all.meizzDateLayer.style;';
strFrame+=' datelayerx=window.event.clientX;';
strFrame+=' datelayery=window.event.clientY;';
strFrame+=' bDrag=true;}';
strFrame+='function DragEnd(){  /*結(jié)束日歷拖動*/';
strFrame+=' bDrag=false;}';
strFrame+='</scr' + 'ipt>';
strFrame+='<div style="z-index:9999;position: absolute; left:0; top:0;" onselectstart="return false"><span id=tmpSelectYearLayer Author=wayx style="z-index: 9999;position: absolute;top: 3; left: 19;display: none"></span>';
strFrame+='<span id=tmpSelectMonthLayer Author=wayx style="z-index: 9999;position: absolute;top: 3; left: 78;display: none"></span>';
strFrame+='<table border=1 cellspacing=0 cellpadding=0 width=142 height=160 bordercolor=#ff9900 bgcolor=#ff9900 Author="wayx">';
strFrame+=' <tr Author="wayx"><td width=142 height=23 Author="wayx" bgcolor=#FFFFFF><table border=0 cellspacing=1 cellpadding=0 width=140 Author="wayx" height=23>';
strFrame+='      <tr align=center Author="wayx"><td width=16 align=center bgcolor=#ff9900 style="font-size:12px;cursor: hand;color: #ffffff" ';
strFrame+='        onclick="parent.meizzPrevM()" title="向前翻 1 月" Author=meizz><b Author=meizz><</b>';
strFrame+='        </td><td width=60 align=center style="font-size:12px;cursor:default" Author=meizz ';
strFrame+='onmouseover="style.backgroundColor=\'#FFD700\'" onmouseout="style.backgroundColor=\'white\'" ';
strFrame+='onclick="parent.tmpSelectYearInnerHTML(this.innerText.substring(0,4))" title="點擊這里選擇年份"><span Author=meizz id=meizzYearHead></span></td>';
strFrame+='<td width=48 align=center style="font-size:12px;cursor:default" Author=meizz onmouseover="style.backgroundColor=\'#FFD700\'" ';
strFrame+=' onmouseout="style.backgroundColor=\'white\'" onclick="parent.tmpSelectMonthInnerHTML(this.innerText.length==3?this.innerText.substring(0,1):this.innerText.substring(0,2))"';
strFrame+='        title="點擊這里選擇月份"><span id=meizzMonthHead Author=meizz></span></td>';
strFrame+='        <td width=16 bgcolor=#ff9900 align=center style="font-size:12px;cursor: hand;color: #ffffff" ';
strFrame+='         onclick="parent.meizzNextM()" title="向后翻 1 月" Author=meizz><b Author=meizz>></b></td></tr>';
strFrame+='    </table></td></tr>';
strFrame+=' <tr Author="wayx"><td width=142 height=18 Author="wayx">';
strFrame+='<table border=1 cellspacing=0 cellpadding=0 bgcolor=#ff9900 ' + (bMoveable? 'onmousedown="DragStart()" onmouseup="DragEnd()"':'');
strFrame+=' BORDERCOLORLIGHT=#FF9900 BORDERCOLORDARK=#FFFFFF width=140 height=20 Author="wayx" style="cursor:' + (bMoveable ? 'move':'default') + '">';
strFrame+='<tr Author="wayx" align=center valign=bottom><td style="font-size:12px;color:#FFFFFF" Author=meizz>日</td>';
strFrame+='<td style="font-size:12px;color:#FFFFFF" Author=meizz>一</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>二</td>';
strFrame+='<td style="font-size:12px;color:#FFFFFF" Author=meizz>三</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>四</td>';
strFrame+='<td style="font-size:12px;color:#FFFFFF" Author=meizz>五</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>六</td></tr>';
strFrame+='</table></td></tr>';
strFrame+=' <tr Author="wayx"><td width=142 height=120 Author="wayx">';
strFrame+='    <table border=1 cellspacing=2 cellpadding=0 BORDERCOLORLIGHT=#FF9900 BORDERCOLORDARK=#FFFFFF bgcolor=#fff8ec width=140 height=120 Author="wayx">';
var n=0; for (j=0;j<5;j++){ strFrame+= ' <tr align=center Author="wayx">'; for (i=0;i<7;i++){
strFrame+='<td width=20 height=20 id=meizzDay'+n+' style="font-size:12px" Author=meizz onclick=parent.meizzDayClick(this.innerText,0)></td>';n++;}
strFrame+='</tr>';}
strFrame+='      <tr align=center Author="wayx">';
for (i=35;i<39;i++)strFrame+='<td width=20 height=20 id=meizzDay'+i+' style="font-size:12px" Author=wayx onclick="parent.meizzDayClick(this.innerText,0)"></td>';
strFrame+='        <td colspan=3 align=right Author=meizz><span onclick=parent.closeLayer() style="font-size:12px;cursor: hand"';
strFrame+='         Author=meizz title="' + _VersionInfo + '"><u>關(guān)閉</u></span> </td></tr>';
strFrame+='    </table></td></tr><tr Author="wayx"><td Author="wayx">';
strFrame+='        <table border=0 cellspacing=1 cellpadding=0 width=100% Author="wayx" bgcolor=#FFFFFF>';
strFrame+='          <tr Author="wayx"><td Author=meizz align=left><input Author=meizz type=button class=button value="<<" title="向前翻 1 年" onclick="parent.meizzPrevY()" ';
strFrame+='             onfocus="this.blur()" style="font-size: 12px; height: 20px"><input Author=meizz class=button title="向前翻 1 月" type=button ';
strFrame+='             value="< " onclick="parent.meizzPrevM()" onfocus="this.blur()" style="font-size: 12px; height: 20px"></td><td ';
strFrame+='             Author=meizz align=center><input Author=meizz type=button class=button value=今天 onclick="parent.meizzToday()" ';
strFrame+='             onfocus="this.blur()" title="當前日期" style="font-size: 12px; height: 20px; cursor:hand"></td><td ';
strFrame+='             Author=meizz align=right><input Author=meizz type=button class=button value=" >" onclick="parent.meizzNextM()" ';
strFrame+='             onfocus="this.blur()" title="向后翻 1 月" class=button style="font-size: 12px; height: 20px"><input ';
strFrame+='             Author=meizz type=button class=button value=">>" title="向后翻 1 年" onclick="parent.meizzNextY()"';
strFrame+='             onfocus="this.blur()" style="font-size: 12px; height: 20px"></td>';
strFrame+='</tr></table></td></tr></table></div>';

window.frames.meizzDateLayer.document.writeln(strFrame);
window.frames.meizzDateLayer.document.close(); //解決ie進度條不結(jié)束的問題

//============= WEB 頁面顯示部分 =========================
var outObject;
var outButton;  //點擊的按鈕
var outDate="";  //存放對象的日期
var odatelayer=window.frames.meizzDateLayer.document.all;  //存放日歷對象
function setday(tt,obj) file://主調(diào)函數(shù)
{

if (arguments.length > 2){alert("對不起！傳入本控件的參數(shù)太多！");return;}
if (arguments.length == 0){alert("對不起！您沒有傳回本控件任何參數(shù)！");return;}
var dads = document.all.meizzDateLayer.style;
var th = tt;
var ttop = tt.offsetTop;     file://TT控件的定位點高
var thei = tt.clientHeight; file://TT控件本身的高
var tleft = tt.offsetLeft;    file://TT控件的定位點寬
var ttyp = tt.type;          file://TT控件的類型
while (tt = tt.offsetParent){ttop+=tt.offsetTop; tleft+=tt.offsetLeft;}
dads.top = (ttyp=="image")? ttop+thei : ttop+thei+6;
dads.left = tleft;
outObject = (arguments.length == 1) ? th : obj;
outButton = (arguments.length == 1) ? null : th; //設(shè)定外部點擊的按鈕
//根據(jù)當前輸入框的日期顯示日歷的年月
var reg = /^(\d+)-(\d{1,2})-(\d{1,2})$/;
var r = outObject.value.match(reg);
if(r!=null){
  r[2]=r[2]-1;
  var d= new Date(r[1], r[2],r[3]);
  if(d.getFullYear()==r[1] && d.getMonth()==r[2] && d.getDate()==r[3]){
   outDate=d;  //保存外部傳入的日期
  }
  else outDate="";
   meizzSetDay(r[1],r[2]+1);
}
else{
  outDate="";
  meizzSetDay(new Date().getFullYear(), new Date().getMonth() + 1);
}
dads.display = '';

event.returnValue=false;
}

var MonHead = new Array(12);         file://定義陽歷中每個月的最大天數(shù)
    MonHead[0] = 31; MonHead[1] = 28; MonHead[2] = 31; MonHead[3] = 30; MonHead[4] = 31; MonHead[5] = 30;
    MonHead[6] = 31; MonHead[7] = 31; MonHead[8] = 30; MonHead[9] = 31; MonHead[10] = 30; MonHead[11] = 31;

var meizzTheYear=new Date().getFullYear(); file://定義年的變量的初始值
var meizzTheMonth=new Date().getMonth()+1; file://定義月的變量的初始值
var meizzWDay=new Array(39); file://定義寫日期的數(shù)組

function document.onclick() file://任意點擊時關(guān)閉該控件 //ie6的情況可以由下面的切換焦點處理代替
{
with(window.event)
{ if (srcElement.getAttribute("Author")==null && srcElement != outObject && srcElement != outButton)
closeLayer();
}
}

function document.onkeyup()  //按Esc鍵關(guān)閉，切換焦點關(guān)閉
{
    if (window.event.keyCode==27){
  if(outObject)outObject.blur();
  closeLayer();
}
else if(document.activeElement)
  if(document.activeElement.getAttribute("Author")==null && document.activeElement != outObject && document.activeElement != outButton)
  {
   closeLayer();
  }
}

function meizzWriteHead(yy,mm) file://往 head 中寫入當前的年與月
{
odatelayer.meizzYearHead.innerText = yy + " 年";
odatelayer.meizzMonthHead.innerText = mm + " 月";
}

function closeLayer() file://這個層的關(guān)閉
{
document.all.meizzDateLayer.style.display="none";
}

function IsPinYear(year) file://判斷是否閏平年
{
if (0==year%4&&((year%100!=0)||(year%400==0))) return true;else return false;
}

function GetMonthCount(year,month) file://閏年二月為29天
{
    var c=MonHead[month-1];if((month==2)&&IsPinYear(year)) c++;return c;
}
function GetDOW(day,month,year)     file://求某天的星期幾
{
    var dt=new Date(year,month-1,day).getDay()/7; return dt;
}

// -->
</script>

熱門評論

文章推薦

相關(guān)資訊

本類常用軟件

ASP分頁程序的詳細說明