<% call Feedback_to_html() Function Feedback_to_html() mysSql="Select * From book where show=1 order by id desc" oRs.Open mysSql,oConn,1,1 dim MaxPerPage dim totalPut dim CurrentPage dim TotalPages dim i MaxPerPage=W_BookRecoNum if not oRs.eof then oRs.MoveFirst end if oRs.pagesize=MaxPerPage If trim(Request("Page"))<>"" then If IsNumeric(trim(Request("Page"))) = False Then GoError ""&PageError&"" End If CurrentPage= CLng(request("Page")) If CurrentPage> oRs.PageCount then CurrentPage = oRs.PageCount End If Else CurrentPage= 1 End If if CurrentPage<1 then CurrentPage=1 end if totalPut=oRs.recordcount if CurrentPage<>1 then if (currentPage-1)*MaxPerPage" str=str&"" str=str&"No."&(CurrentPage-1)*MaxPerPage+i+1&"" str=str&"

" str=str&"

Date:"&oRs("time")&"

" str=str&"

IP:"&oRs("ip")&"

" str=str&"

" str=str&"" str=str&"" str=str&""&oRs("name")&"" str=str&""&oRs("title")&"" if oRs("content")<>"" then str=str&"
"&replace(oRs("content"),vbcr,"
") end if if oRs("reply")<>"" then str=str&"

Admin replies:"&replace(oRs("reply"),vbcr,"
")&"" end if str=str&"" str=str&"" str=str&"" oRs.MoveNext i=i+1 Loop IF n>1 then'如果只有一页的时候就不需要分页链接啦 if CurrentPage>1 then perPage="

"&First&"

" perPage=perPage&"

"&Previous&"

" end if if CurrentPage"&TheNext&"" nextPage=nextPage&"

"&TheEnd&"

" end if '显示页码开始 spage=CurrentPage -4 if spage < 1 then spage = 1 else if spage > n-9 and n>=10 then spage = n-9 end if end if epage=CurrentPage +5 if epage > n then epage = n else if epage < 10 and n>=10 then epage = 10 end if end if for y=spage to epage cur_css="" if y=CurrentPage then cur_css=" class='active'" end if pages=pages&""&y&"" Next END IF pages=perPage&pages&nextPage Else str="

"&Noinfo&"

" End If FeedbackList=str web_sort="View Message" ur_here="

"&home&"

"&web_sort&"

" openFilen = W_templateUrl&"view.html" Template = ReadFromUTF(openFilen,"utf-8") '读取模板,注意编码对应模板文件编码 LableStrr=Split(Template,"$") For h=0 to Ubound(LableStrr) If Instr(LableStrr(h),"meuid")>0 then GetLable=LableStrr(h) GetLabler=Split(GetLable,",") meuidd=GetLabler(1) '模板设置当前菜单样式 else End if Next banner=getAdsbanner("feedback") strOut = process_customtags_include(Template) strOut = process_customtags(strOut) strOut=Replace(strOut,"{$pagetitle}",web_sort) strOut=Replace(strOut,"{$SiteKeyword}",W_WebSiteKeyword) strOut=Replace(strOut,"{$SiteDescription}",W_WebSiteIntr) strOut=Replace(strOut,"{$web_sort}",web_sort) strOut=Replace(strOut,"{$ur_here}",ur_here) strOut=Replace(strOut,"{$FeedbackList}",FeedbackList) strOut=Replace(strOut,"{$pages}",pages) strOut=Replace(strOut,"{$product_list}",categraies_tree(0,0)) strOut=Replace(strOut,"{$banner}",banner) strOut=Replace(strOut,"{$ClassName}",web_sort) '以下一般不用管 strOut=Replace(strOut,"{$"&GetLable&"$}","") strOut=Replace(strOut,"{$flash}",flash()) strOut=Replace(strOut,"{$siteTopMenuList}",topMenuList(1,meuidd)) strOut=Replace(strOut,"{$siteBottomMenuList}",bottomMenuList()) strOut=Replace(strOut,"{$rightMenuList}",topMenuList(3,meuidd)) strOut=Replace(strOut,"{$subMenuList}",subMenuList()) strOut=Replace(strOut,"{$w_new}",w_new) strOut=Replace(strOut,"{$w_hot}",w_hot) strOut=Replace(strOut,"{$templateUrl}",W_templateUrl) strOut=Replace(strOut,"{$IndexTitle}",W_WebsubSiteName) strOut=Replace(strOut,"{$SiteTitle}",siteName) strOut=Replace(strOut,"{$SiteUrl}",siteUrl) strOut=Replace(strOut,"{$SiteLogo}",W_WebSiteLogo) strOut=Replace(strOut,"{$SiteName}",masterName) strOut=Replace(strOut,"{$SiteFax}",mobile) strOut=Replace(strOut,"{$SitePhone}",telephone) strOut=Replace(strOut,"{$SiteAddress}",address) strOut=Replace(strOut,"{$SiteEmail}",email) strOut=Replace(strOut,"{$SiteCopyright}",W_WebSiteCopyInfo) strOut=Replace(strOut,"{$tongji}",w_tj) strOut=Replace(strOut,"{$kefu}",kefu) strOut=Replace(strOut,"{$qq}",get_qq_links()) strOut=Replace(strOut,"{$friendLink}",friendLink()) strOut=Replace(strOut,"{$txtfriendLink}",txtfriendLink()) strOut=Replace(strOut,"{$imgfriendLink}",imgfriendLink()) response.Write strOut end function %>