📄 makeindex.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<title>生成帮助信息分类</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
a:link{
text-decoration: none;
color: #000000;
font-size: 12px;
}
a:visited{
text-decoration: none;
color: #000000;
font-size: 12px;
}
a:hover{
text-decoration: underline;
color: #FFFFFF;
font-weight: bold;
font-size: 12px;
}
a:active{
text-decoration: none;
font-size: 12px;
}
-->
</style>
</head>
<body>
<%
data_path="../../../" 'ACC连接数据库路径，对SQL无效
dir="no"
numid="no"
%>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
'获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:history.back(-1);'>返回</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("help_index")
rs.Close
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取内容处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_LEFT=HOPE_LEFT&"<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>"&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&"<TR>" &vbCrlf
HOPE_LEFT=HOPE_LEFT&"<TD style=' text-align: center; font-weight: bold; cursor:hand' id=menuTitle"&i&" onclick=menuChange(menu"&i&","&(type_len)*20&",menuTitle"&i&") background='"&HOPE_InstallDir&"hc360/help1_22.gif' width=177 height=30> <font color='#ffffff'>"&rssort("sort")&"</font></TD>"&vbCrlf
HOPE_LEFT=HOPE_LEFT&"</TR>" &vbCrlf
HOPE_LEFT=HOPE_LEFT&"<tr>" &vbCrlf
HOPE_LEFT=HOPE_LEFT&"<td class='tb_1'> <DIV class=sec_menu id=menu"&i&" style='DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 100%; HEIGHT: 0px'>"&vbCrlf
HOPE_LEFT=HOPE_LEFT&"<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"&vbCrlf
typesql="select * from Websen_help_type where sortid="&rssort("sortid")&""
Set rstype=Server.CreateObject("ADODB.Recordset")
rstype.Open typesql,conn,1,1
If rstype.Eof or rstype.Bof Then
HOPE_LEFT=HOPE_LEFT&"<font class=S>暂无行业小类</font>"&vbCrlf
Else
Do While Not rstype.Eof
HOPE_LEFT=HOPE_LEFT&"<TR><TD height=20><img src='#HOPE_InstallDir#images/tree_leaf.jpg' width='17' height='18'><A href='"&HOPE_InstallDir&"help/bin/info/"&rstype("sortid")&"-"&rstype("typeid")&".html' class='s' target='list'>"&rstype("typename")&"</A></TD></TR>"&vbCrlf
rstype.Movenext
loop
End If
HOPE_LEFT=HOPE_LEFT&"</table></div></td></tr>"&vbCrlf
rssort.Movenext
i=i+1
j=j+1
loop
End If
HOPE_LEFT=HOPE_LEFT&"</TABLE>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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 "<br><br>生成完成 <a href='"&HOPE_InstallDir&"help/bin/index.html' target='_blank'><font color=red>点击查看</font></a> <a href='#' onclick='javascript:history.back(-1);'>返回</a>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -