|
|
|
|
|
|
|
|
|
<%
strSQL="Select * From web_guestbook1 Where Not(g_hfmsg is null) Order by ID Desc"
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if
Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=10 '每页显示记录数
intSectionSize=5 '多少页为一段,像GOOGLE一样
PrevSectionText="7" '上一段的链接文字
NextSectionText="8" '下一段的链接文字
PrevPageText="3" '上页的链接文字
NextPageText="4" '下页的链接文字
strPageUrl="?mnid=" & strCurrMenu & "&uppage=" & request.QueryString("uppage")
rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
else
response.Write("Can't find content!")
end if
'循环输出
for i=1 to intPageSize
if rs.eof then exit for
%>
<%if isDW<>"none" then%>
Companny: |
<%=trim(rs("g_dw"))%> |
<%end if%>
Name: |
<%=trim(rs("g_Name"))%> |
<%if isOICQ<>"none" And isOICQ<>"Null" then%>
|
<%end if%>
<%if isTel<>"none" Or isEmail<>"none" then %>
<%if isTel<>"none" then%>
Telephone: |
<%=trim(rs("g_Tel"))%> |
<%end if%>
<%if isEmail<>"none" then%>
Email: |
<%=trim(rs("g_email"))%> |
<%end if%>
<%end if%>
<%if isAdrr<>"none" And isAdrr<>"Null" then%>
Address: |
<%=trim(rs("g_addr"))%> |
<%end if%>
Content: |
<%=trim(rs("g_msg"))%> [<%=trim(rs("g_time"))%>] |
<% if trim(rs("g_hfmsg")) <> "" then %>
Replay: |
<%=trim(rs("g_hfmsg"))%> |
<%end if%>
|
<%
rs.movenext
next
%>
Total <%=intCount%> records,<%=intPageCount%> pages,Now <%=Page%>,Show <%=intPageSize%> Records Per Page
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("" & PrevSectionText & " ")
end if
'显示页码列表
response.Write("Page No.")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("[" & p & "] ")
else
response.Write("[" & p & "] ")
end if
next
response.Write("")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" " & NextSectionText & " ")
end if
%>
|
|
|
|
|
|
|
<%
'开始输出分类
strcode=""
for i=1 to Len(SourCode) \ 4
strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'"
next
if strcode<>"" then
strcode="(1<>1"&strcode&" or Len(c_code)=4)"
else
strcode=" Len(c_code)=4"
end if
strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & " Order by c_code"
'response.Write(strsql)
Set rsClass=Server.CreateObject("ADODB.RecordSet")
rsClass.open strSQL,conn,1,1
for i=1 to rsClass.recordcount
Level=(Len(rsClass("c_code"))/4-1)*3
%>
<%
If Len(rsClass("c_code"))>4 Then Response.Write "├"
Response.Write String(Level,"-")
%>
&classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%> |
|
<%
rsClass.movenext
next
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Add:Suite 5F, 988 Changning Road
Shanghai, China 200051
Phone: (86-21) 5273 8396
Fax: (86-21) 5273 8395
Copyright?2006-2007 EASEN INTERNATIONAL CO.,LTD. All Rights Reserved.
Last updated on:
|
|