=?utf-8?B?55SoYXNw5a6e546w5YiG6aG15pi+56S65oCO5LmI5YaZ77yf?=

effort

=?Utf-8?B?UmU6IOeUqGFzcOWunueOsOWIhumhteaYvuekuuaAjuS5iOWGme+8nw==?=

squirrel_sc

From:	effort
Subject:	=?utf-8?B?55SoYXNw5a6e546w5YiG6aG15pi+56S65oCO5LmI5YaZ77yf?=
Date:	Tue, 18 Jan 2005 16:44:58 +0800

This is a multi-part message in MIME format.

------=_NextPart_000_001D_01C4FD7D.0BF261F0
Content-Type: text/plain;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable

=E7=94=A8asp=E5=AE=9E=E7=8E=B0=E5=88=86=E9=A1=B5=E6=98=BE=E7=A4=BA=E6=80=8E=
=E4=B9=88=E5=86=99=EF=BC=9F
------=_NextPart_000_001D_01C4FD7D.0BF261F0
Content-Type: text/html;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable

=EF=BB=BF

size=3D2>=E7=94=A8asp=E5=AE=9E=E7=8E=B0=E5=88=86=E9=A1=B5=E6=98=BE=E7=A4=BA=
=E6=80=8E=E4=B9=88=E5=86=99=EF=BC=9F

------=_NextPart_000_001D_01C4FD7D.0BF261F0--

From:	squirrel_sc
Subject:	=?Utf-8?B?UmU6IOeUqGFzcOWunueOsOWIhumhteaYvuekuuaAjuS5iOWGme+8nw==?=
Date:	Wed, 19 Jan 2005 11:33:08 +0800

This is a multi-part message in MIME format.

------=_NextPart_000_025B_01C4FE1A.A5FAD320
Content-Type: text/plain;
charset="Utf-8"
Content-Transfer-Encoding: quoted-printable

=E5=8F=82=E8=80=83=E4=BB=A5=E4=B8=8B=E4=BB=A3=E7=A0=81=EF=BC=9A
<%@LANGUAGE=3D"VBSCRIPT" CODEPAGE=3D"936"%>

<%
'********************
PageName =3D request.ServerVariables("PATH_INFO")
PageName =3D right(PageName, len(PageName) - instrrev(PageName, "/"))
PageQuery =3D request.ServerVariables("QUERY_STRING")
if(PageQuery <> "") then
pagearr =3D split(PageQuery, "&")
PageQuery =3D ""
for i=3D0 to ubound(pagearr)
if(left(pagearr(i), 5) <> "page=3D") then
PageQuery =3D PageQuery & pagearr(i) & "&"
end if
next
PageName =3D PageName & "?" & PageQuery
else
PageName =3D PageName & "?"
end if
'********************

set rs =3D Server.CreateObject("ADODB.Recordset")
sql =3D "select * from tab where orderinfo.MemberID =3D '" & MemberID & =
"'"
rs.open sql, conn, 1
if(not rs.bof) then
'********************
if(request("page") =3D "") then
page =3D 1
else
page =3D cint(request("page"))
end if
recordcount =3D rs.recordcount
pagecount =3D int(recordcount / Maxperpage)

if(((recordcount mod Maxperpage) <> 0) or (pagecount =3D 0)) then
pagecount =3D pagecount + 1
end if
if(page > pagecount) then
page =3D pagecount
end if
if(page < 1) then
page =3D 1
end if
if(not rs.bof) then
rs.move(Maxperpage * (page-1))
end if
'********************
%>

<%
'********************
i =3D 0
while(not rs.eof and i'********************
%>
=20

<%'********************
i =3D i + 1
rs.movenext
wend
%>

align=3D"center"><%=3Drs("1")+OrderID_ADD%>

align=3D"center"><%=3Drs("2")%>

align=3D"center"><%=3Drs("3")%>

align=3D"center"><%=3Drs("4")%>

align=3D"center"><%=3Drs("5")%>

align=3D"center"><%=3Drs("6")%>

align=3D"center"><%=3Drs("7")%>

align=3D"center"><%=3Drs("8")%>

href=3Dadmin_orderedit.asp>=E4=BF=AE=E6=94=B9

<%'********************%>

<% if page<>1 then response.write ""page=3D1>"%>=E7=AC=AC=E4=B8=80=E9=A1=B5<%if page<>1 then response.write =
""%>
<% if page<>1 then response.write ""page=3D" & page - 1 & ">"%>=E4=B8=8A=E4=B8=80=E9=A1=B5<%if page<>1 then =
response.write ""%>
<%
for i =3D 1 to pagecount
if(i =3D page) then
response.write "[" & i & "] "
elseif(i < page+5 and i > page-5) then
response.write "">[" & i & "] "
end if
next
%>
<% if page<>pagecount then response.write ""page=3D" & page + 1 & ">"%>=E4=B8=8B=E4=B8=80=E9=A1=B5<%if =
page<>pagecount then response.write ""%>
<% if page<>pagecount then response.write ""page=3D" & pagecount & ">"%>=E6=9C=80=E5=90=8E=E4=B8=80=E9=A1=B5<%if =
page<>pagecount then response.write ""%>
=E9=A1=B5=E6=AC=A1=EF=BC=9A<%=3Dpage%>/<%=3Dpagecount%>=E9=A1=B5
=E5=85=B1<%=3Drecordcount%>=E6=9D=A1

<%
'********************
else
%>

=E6=B2=A1=E6=9C=89=E8=AE=B0=E5=BD=95=E5=AD=98=E5=9C=A8=EF=BC=81
<%
end if
rs.close
%>

--=20
=E5=A4=A7=E5=AE=B6=E5=85=B1=E5=90=8C=E5=AD=A6=E4=B9=A0=E3=80=81=E4=B8=80=E8=
=B5=B7=E8=BF=9B=E6=AD=A5=E3=80=82
=E6=AC=A2=E8=BF=8E=E6=9D=A5=E6=88=91=E7=9A=84blog=E5=81=9A=E5=AE=A2=E3=80=
=82
http://www.cnblogs.com/squirrel_sc
"effort" =
=E5=86=99=E5=85=A5=E6=B6=88=E6=81=AF=E6=96=B0=E9=97=BB:OW1EJnT$EHA.2984@T=
K2MSFTNGP09.phx.gbl...
=
=E7=94=A8asp=E5=AE=9E=E7=8E=B0=E5=88=86=E9=A1=B5=E6=98=BE=E7=A4=BA=E6=80=8E=
=E4=B9=88=E5=86=99=EF=BC=9F
------=_NextPart_000_025B_01C4FE1A.A5FAD320
Content-Type: text/html;
charset="Utf-8"
Content-Transfer-Encoding: quoted-printable

=EF=BB=BF

size=3D2>=E5=8F=82=E8=80=83=E4=BB=A5=E4=B8=8B=E4=BB=A3=E7=A0=81=EF=BC=9A<=
/FONT>

<href=3D'mailto:%@LANGUAGE=3D"VBSCRIPT'>%@LANGUAGE=3D"VBSCRIPT"=20
CODEPAGE=3D"936"%>

<div =
align=3Dcenter>
<%
'********************
PageName=20
=3D request.ServerVariables("PATH_INFO")
PageName =3D right(PageName, =

len(PageName) - instrrev(PageName, "/"))
PageQuery =3D=20
request.ServerVariables("QUERY_STRING")
if(PageQuery <> "")=20
then
    pagearr =3D split(PageQuery,=20
"&")
    PageQuery =3D ""
    =
for i=3D0 to=20
ubound(pagearr)
       =20
if(left(pagearr(i), 5) <> "page=3D")=20
then
           =
;=20
PageQuery =3D PageQuery & pagearr(i) &=20
"&"
        end=20
if
    next
    PageName =3D =
PageName &=20
"?" & PageQuery
else
    PageName =3D PageName =
&=20
"?"
end if
'********************

set rs =3D =
Server.CreateObject("ADODB.Recordset")
sql=20
=3D "select * from tab where orderinfo.MemberID =3D '" & =
MemberID &=20
"'"
rs.open sql, conn, 1
if(not rs.bof)=20
then
'********************
    if(request("page") =
=3D "")=20
then
        page =3D=20
1
    =
else
        page=20
=3D cint(request("page"))
    end =
if
   =20
recordcount =3D rs.recordcount
    pagecount =3D =
int(recordcount /=20
Maxperpage)

    =
if(((recordcount mod Maxperpage)=20
<> 0) or (pagecount =3D 0))=20
then
        pagecount =3D =
pagecount +=20
1
    end if
    if(page > =
pagecount)=20
then
        page =3D=20
pagecount
    end if
    if(page =
< 1)=20
then
        page =3D=20
1
    end if
    if(not rs.bof)=20
then
        rs.move(Maxperpage *=20
(page-1))
    end=20
if
'********************
%><br>
=
<br>
=20
<table width=3D"780" border=3D"0" cellpadding=3D"0"=20
cellspacing=3D"0">
<%
'********************
  &n=
bsp; i =3D=20
0
    while(not rs.eof and=20
i<Maxperpage)
'********************
%>
    =

<tr>
      <td =
class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("1")+OrderID_ADD%></div></td&g=
t;
     =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("2")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("3")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("4")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("5")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("6")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("7")%></div></td>
=
    =20
<td class=3D"BlockA"><div=20
align=3D"center"><%=3Drs("8")%> </div></td>=

     =20
<td class=3D"BlockA"><div align=3D"center"><a=20
href=3Dadmin_orderedit.asp>=E4=BF=AE=E6=94=B9</a></div><=
;/td>
   =20
</tr>
<%'********************
    &nbs=
p;  =20
i =3D i + 1
       =20
rs.movenext
   =20
wend
%>
</table>
<%'********************%>
<=
;br>
<%     =20
if page<>1 then response.write "<a href=3D" & PageName =
&=20
"page=3D1>"%>=E7=AC=AC=E4=B8=80=E9=A1=B5<%if page<>1 then =
response.write=20
"</a>"%> 
<%      if=20
page<>1 then response.write "<a href=3D" & PageName & =
"page=3D"=20
& page - 1 & ">"%>=E4=B8=8A=E4=B8=80=E9=A1=B5<%if =
page<>1 then response.write=20
"</a>"%> 
<%
    for i =3D 1 =
to=20
pagecount
        if(i =3D page)=20
then
           =
;=20
response.write "[" & i & "]=20
"
        elseif(i < page+5 and =
i >=20
page-5)=20
then
           =
;=20
response.write "<a href=3D" & PageName & "page=3D" & i =
& ">["=20
& i & "]</a> =
"
        end=20
if
    =
next
%>
<%      if=20
page<>pagecount then response.write "<a href=3D" & PageName =
&=20
"page=3D" & page + 1 & =
">"%>=E4=B8=8B=E4=B8=80=E9=A1=B5<%if page<>pagecount then =

response.write=20
"</a>"%> 
<%      if=20
page<>pagecount then response.write "<a href=3D" & PageName =
&=20
"page=3D" & pagecount & =
">"%>=E6=9C=80=E5=90=8E=E4=B8=80=E9=A1=B5<%if =
page<>pagecount then=20
response.write=20
"</a>"%> 
=E9=A1=B5=E6=AC=A1=EF=BC=9A<%=3Dpage%&g=
t;/<%=3Dpagecount%>=E9=A1=B5 
=E5=85=B1<%=3Drecordco=
unt%>=E6=9D=A1
</p>
<%
'********************
else=

%>
       =20
<br>
        =
=E6=B2=A1=E6=9C=89=E8=AE=B0=E5=BD=95=E5=AD=98=E5=9C=A8=EF=BC=81
<%<=
BR>end=20
if
rs.close
%>
</div>

-- =

=E5=A4=A7=E5=AE=B6=E5=85=B1=E5=90=8C=E5=AD=A6=E4=B9=A0=E3=80=81=E4=B8=
=80=E8=B5=B7=E8=BF=9B=E6=AD=A5=E3=80=82
=E6=AC=A2=E8=BF=8E=E6=9D=A5=E6=
=88=91=E7=9A=84blog=E5=81=9A=E5=AE=A2=E3=80=82
href=3D"http://www.cnblogs.com/squirrel_sc">http://www.cnblogs.com/squirr=
el_sc

style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"effort" < =
href=3D"mailto:sun.bixiang@scottwilson.com.cn">sun.bixiang@scottwilson.co=
m.cn>=20
=
=E5=86=99=E5=85=A5=E6=B6=88=E6=81=AF=E6=96=B0=E9=97=BB:OW1EJnT$EHA.2984@T=
K2MSFTNGP09.phx.gbl...

size=3D2>=E7=94=A8asp=E5=AE=9E=E7=8E=B0=E5=88=86=E9=A1=B5=E6=98=BE=E7=A4=BA=
=E6=80=8E=E4=B9=88=E5=86=99=EF=BC=9F

ML>

------=_NextPart_000_025B_01C4FE1A.A5FAD320--