本帖最后由 dandan0104 于 2014-06-12 12:15:28 编辑
<%
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)%> |
- "& Menu_2(j) &" "
<%
For j = 1 To Ubound(Menu_2)
Response.Write "
Next
%>
<%
Next
%>
%>
把这段asp代码改成PHP,但是我不知道改怎么去写了,应该用数组可以实现吧,这是个菜单选项。
这是效果图------解决方案--------------------
就是拼接字符串,
然后再分裂字符串
最后循环输出
------解决方案--------------------
这个其实挺简单的啊,是你自己想复杂了,代码这样写:
$TempStr.= "系统设置";
$TempStr.= "@@系统基本设置";
$TempStr.= "@@管理员添加";
$TempStr.= "@@管理员管理";
$TempStr.= "@@修改登录密码";
$TempStr.= "@@短信接口配置";
$TempStr.= "@@短信软件操作管理";
$TempStr.= "
------解决方案--------------------
常见问题管理";
$TempStr.= "@@添加常见问题";
$TempStr.= "@@管理常见问题";