|
Satisfying Customer
The goal of Smanl is to always satisfy the customer.
Management Participation
Smanl persists on training and promotion, the enhancement of quality, participation and cost consciousness let each staff member dedicate his wisdom to Smanl's products.
Lead the Plastics machine assist machine
Meet the needs of users at home and abroad.
Manufacturing High-quality goods of plastics machine assist machine . |
|
 |
|
 |
 |
|
Chinese |
English |
|
 |
 |
Home >> Message |
<%dim rs,content,p_content,pageno,pages,records,max,min,page
set rs=server.CreateObject("ADODB.recordset")
sql ="select * from guestbook where pass=1 and english=1 order by id desc"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
rs.pagesize=2
pages=rs.pagecount
records=rs.recordcount
pageno=request("pageno")
if pageno="" or pageno<1 then pageno=1
pageno=cint(pageno)
if pageno>pages then pageno=pages
rs.absolutepage=pageno
max=rs.pagesize
min=1
page=10
do while not rs.eof and min<=max
content=content&""_
&""_
&"  "_
&rs("name")&"/"&rs("sex")&" Messages time:"&rs("addtime")&" | "_
&""_
&" "_
&" | "_
&"| Themes: "& rs("title") &" | "_
&"| Specific content:"&cstr(rs("content"))&" | "_
&"¦ Moderator back:
"&rs("reply")&" | "
rs.movenext
min=min+1
loop
rs.close:set rs=nothing
p_content="| "_
&"Total: "&records&" Records "&pageno&"/"&pages&" Pages | "
if pageno>page then
p_content=p_content&"7"
end if
if page+int((pageno-1)/page)*page>=pages then
for i=int((pageno-1)/page)*page+1 to pages
if pageno<>i then
p_content=p_content&"["&i&"]"
else
p_content=p_content&"["&i&"]"
end if
next
else
for i=int((pageno-1)/page)*page+1 to page+int((pageno-1)/page)*page
if pageno<>i then
p_content=p_content&"["&i&"]"
else
p_content=p_content&"["&i&"]"
end if
next
end if
if page+int((pageno-1)/page)*page8"
end if
content=content&p_content&" |
"
response.Write(content)
end if
%>
|
|
|
