makeindex.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 137 行
ASP
137 行
<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无效 %>
<!--#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"-->
<%
If Session("globalecmaster")="" or Session("globalecmaster")="" or Session("adminid")="" Then
Response.write "<script language='javascript'>"
Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>"
Response.End
End If
%><%
'获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select help_index from [Yixiang_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 Yixiang_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 class='tb_2' style='cursor:hand' id=menuTitle"&i&" onclick=menuChange(menu"&i&","&(type_len)*20&",menuTitle"&i&")> <img src='"&HOPE_InstallDir&"images/fold_2.gif' width='22' height='27' align='absmiddle'> "&rssort("sort")&"</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 Yixiang_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>·<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 + =
减小字号Ctrl + -
显示快捷键?