<% strCurrMenu="14977" %>
 
 
标题 内容
 

您的位置 : 首页 <%=request("classname")%>
  <% strSQL="Select * From web_guestbook Where mn_id=" & GetVariable("mnid") & " And 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 rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page else response.Write("没有可查看的内容!") end if '循环输出 for i=1 to intPageSize if rs.eof then exit for %>
<%if isDW<>"none" then%> <%end if%> <%if isOICQ<>"none" And isOICQ<>"Null" then%> <%end if%> <%if isTel<>"none" Or isEmail<>"none" then %> <%if isTel<>"none" then%> <%end if%> <%if isEmail<>"none" then%> <%end if%> <%end if%> <%if isAdrr<>"none" And isAdrr<>"Null" then%> <%end if%> <% if trim(rs("g_hfmsg")) <> "" then %> <%end if%>
单 位: <%=trim(rs("g_dw"))%>
姓 名: <%=trim(rs("g_Name"))%>OICQ: <%=trim(rs("g_ip"))%>
电 话: <%=trim(rs("g_Tel"))%> Email: <%=trim(rs("g_email"))%>
地 址: <%=trim(rs("g_addr"))%>
留 言: <%=trim(rs("g_msg"))%>
[<%=trim(rs("g_time"))%>]
回 复: <%=trim(rs("g_hfmsg"))%>

<% rs.movenext next %>
共有<%=intCount%>条记录,分<%=intPageCount%>页,当前页<%=Page%>,每页显示<%=intPageSize%>条记录 <% '计算每一段的开始页 intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(PrevSectionText & " ") else response.Write("" & PrevSectionText & " ") end if '显示页码列表 response.Write("第") 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 %> <% rsClass.movenext next %>
<% If Len(rsClass("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %> &classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%>

留言板
Copyright© 2006 年 Easen International Company, Ltd. 美国宜生国际有限公司版权所有
上海公司: 长宁区长宁路 988 号花园大厦 5F   
 电话:(86-21)5273 8396 传真:(86-21)5273 8395
更新于