生成会员常见问题及建议解答列表

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select feedback_index from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1 If rs.Eof Then Response.Write("
对不起！该模版不存在！ 关闭") Response.End() End If If Not rs.Eof Then pencat=rs("feedback_index") rs.Close End If If Request("page")<>"" Then If Cint(Request("page"))<1 Then currentPage=1 Else currentPage=Cint(Request("page")) End If Else currentPage=1 End If msg_per_page=8 If Request("all")="all" Then Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select * from Websen_GuestBook where pass=1 order by ID desc"),conn,1,1 End If If not rs.Eof Then totalrec=RS.RecordCount'总记录条数 rs.Pagesize=msg_per_page '每页数 mpage=rs.Pagecount '得到总页数 rowcount=msg_per_page rs.Move (currentPage-1)*MaxPerPage If mpage>=currentPage Then ttid="index" tttid=currentPage End If End If Response.Write "已生成/要生成列表:"¤tPage-1&"/"&mpage&"页" If mpage " Else %> <% HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf If rs.Eof Then HOPE_body=HOPE_body&"
暂无会员常见问题及建议解答列表
"&vbCrlf Else do while not rs.Eof and rowcount > 0 HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&" | "&VbCrLf HOPE_body=HOPE_body&" "& rs("content") &""&VbCrLf HOPE_body=HOPE_body&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&" | "&VbCrLf HOPE_body=HOPE_body&" "& rs("recontent") &""&VbCrLf HOPE_body=HOPE_body&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf icolor=icolor+1 If icolor>1 Then icolor=0 rowcount=rowcount-1 rs.MoveNext Loop End If HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf If not (rs.Eof and rs.bof) Then gopage=currentpage totalpage=mpage blockPage=Int((gopage-1)/10)*10+1 If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) lenstrTemp=len(strTemp)+1 If instr(left(linkfile,lenstrTemp),"?")>0 Then If blockPage = 1 Then HOPE_body=HOPE_body&"【←前10页 " Else HOPE_body=HOPE_body&"【←前10页 " End If i=1 Do Until i > 10 or blockPage > mpage If blockPage=int(gopage) Then HOPE_body=HOPE_body&"["&blockPage&"]" Else HOPE_body=HOPE_body&" ["&blockPage&"] " End If blockPage=blockPage+1 i = i + 1 Loop If blockPage > totalpage Then HOPE_body=HOPE_body&" 后10页→】" Else HOPE_body=HOPE_body&" 后10页→】" End If HOPE_body=HOPE_body&" 直接到第 " HOPE_body=HOPE_body&"
" HOPE_body=HOPE_body&" 页
" Else If blockPage = 1 Then HOPE_body=HOPE_body&"【←前10页 " Else HOPE_body=HOPE_body&"【←前10页 " End If i=1 Do Until i > 10 or blockPage > mpage If blockPage=int(gopage) Then HOPE_body=HOPE_body&"["&blockPage&"]" Else HOPE_body=HOPE_body&" ["&blockPage&"] " End If blockPage=blockPage+1 i = i + 1 Loop If blockPage > totalpage Then HOPE_body=HOPE_body&" 后10页→】" Else HOPE_body=HOPE_body&" 后10页→】" End If HOPE_body=HOPE_body&" 直接到第 " HOPE_body=HOPE_body&"
" HOPE_body=HOPE_body&" 页
" End If Startinfo=((gopage-1)*msg_per_page)+1 Endinfo=gopage*msg_per_page If Endinfo>totalrec Then Endinfo=totalrec HOPE_body=HOPE_body&" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页" End If HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_Title="会员常见问题及建议解答列表_"&webname&"" '网页标题头 pencat=Hope_HtmlResult(pencat) Set fso = YXFSO If mpage>1 Then If Cint(Request("page"))<1 Then If tttid=1 Then Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"feedback/index.html")) sort_save.Write pencat sort_save.Close End If Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"feedback/"&ttid&".html")) fout.Write pencat fout.Close End If Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"feedback/"&ttid&"-p"&tttid&".html")) fout.Write pencat fout.Close Else Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"feedback/"&ttid&".html")) sort_save.Write pencat sort_save.Close End If Set fso = Nothing Response.Write "" End If rs.Close Set rs=Nothing conn.Close Set conn=Nothing %>