生成帮助信息分类

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% '获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set rs=Server.CreateObject("ADODB.Recordset") rs.Open ("select help_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("help_index") rs.Close End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '获取内容处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_LEFT=HOPE_LEFT&"

"&vbCrlf sortsql="select * from Websen_help_sort" Set rssort=Server.CreateObject("ADODB.Recordset") rssort.Open sortsql,conn,1,1 If rssort.Eof Then HOPE_LEFT=HOPE_LEFT&"暂无行业分类" Else Dim i,j i=1 j=1 Do While Not rssort.Eof HOPE_LEFT=HOPE_LEFT&"
" &vbCrlf HOPE_LEFT=HOPE_LEFT&"
"&rssort("sort")&" "&vbCrlf HOPE_LEFT=HOPE_LEFT&"
" &vbCrlf HOPE_LEFT=HOPE_LEFT&"
" &vbCrlf HOPE_LEFT=HOPE_LEFT&"
"&vbCrlf rssort.Movenext i=i+1 j=j+1 loop End If HOPE_LEFT=HOPE_LEFT&"

" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_Title="帮助中心-"&webname&""&vbCrlf '页面标题 '替换标签的函数调用 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ pencat=Hope_HtmlResult(pencat) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '处理生成页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set fso = YXFSO Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"help/bin/index.html")) sort_save.Write pencat sort_save.Close '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ conn.Close Set conn=nothing Response.write "
生成完成 点击查看 返回" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>