时间:2021-07-01 10:21:17 帮助过:5人阅读
<%
Dim i,j
Dim TempStr,Menu_1,Menu_2
TempStr = "系统设置"
TempStr = TempStr & "@@系统基本设置"
TempStr = TempStr & "@@管理员添加"
TempStr = TempStr & "@@管理员管理"
TempStr = TempStr & "@@修改登录密码"
TempStr = TempStr & "@@短信接口配置"
TempStr = TempStr & "@@短信软件操作管理"
TempStr = TempStr & "||常见问题管理"
TempStr = TempStr & "@@添加常见问题"
TempStr = TempStr & "@@管理常见问题"
TempStr = TempStr & "@@敏感字符管理"
TempStr = TempStr & "||预约须知"
TempStr = TempStr & "@@预约须知"
TempStr = TempStr & "@@注册会员管理"
TempStr = TempStr & "@@短信群发"
TempStr = TempStr & "||预约门诊"
TempStr = TempStr & "@@门诊类型"
TempStr = TempStr & "@@科室添加"
TempStr = TempStr & "@@科室导入"
TempStr = TempStr & "@@科室管理"
TempStr = TempStr & "@@专家添加"
TempStr = TempStr & "@@专家管理"
TempStr = TempStr & "@@季节时间管理"
Menu_1 = Split(TempStr , "||")
For i = 0 To Ubound(Menu_1)
Menu_2 = Split(Menu_1(i) , "@@")
%>
<%=Menu_2(0)%> |
$TempStr.= "系统设置";
$TempStr.= "@@系统基本设置";
$TempStr.= "@@管理员添加";
$TempStr.= "@@管理员管理";
$TempStr.= "@@修改登录密码";
$TempStr.= "@@短信接口配置";
$TempStr.= "@@短信软件操作管理";
$TempStr.= "
------解决方案--------------------
常见问题管理";
$TempStr.= "@@添加常见问题";
$TempStr.= "@@管理常见问题";