小弟我想把这段asp代码改成PHP的,但是不知道如何写了

我想把这段asp代码改成PHP的,但是不知道怎么写了

本帖最后由 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) , "@@")

%>

For j = 1 To Ubound(Menu_2)
Response.Write "
• "& Menu_2(j) &"
"
Next
%>

Next
%>