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

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

<%
Dim i,j
Dim TempStr,Menu_1,Menu_2

TempStr = "<a style=""cursor:hand;"">系统设置</a>"
TempStr = TempStr & "@@<a href=""SiteSys/SiteConfig.asp"" target=""frmright"">系统基本设置</a>"
TempStr = TempStr & "@@<a href=""Admin/Admin_Add.asp"" target=""frmright"">管理员添加</a>"
TempStr = TempStr & "@@<a href=""Admin/Admin_Manage.asp"" target=""frmright"">管理员管理</a>"
TempStr = TempStr & "@@<a href=""Admin/Admin_ChgPass.asp"" target=""frmright"">修改登录密码</a>"
TempStr = TempStr & "@@<a href=""SiteSys/Admin_Message.asp"" target=""frmright"">短信接口配置</a>"
TempStr = TempStr & "@@<a href=""SiteSys/soft.asp"" target=""frmright"">短信软件操作管理</a>"

TempStr = TempStr & "||<a style=""cursor:hand;"">常见问题管理</a>"
TempStr = TempStr & "@@<a href=""News/News_add.asp"" target=""frmright"">添加常见问题</a>"
TempStr = TempStr & "@@<a href=""News/News_List.asp"" target=""frmright"">管理常见问题</a>"
TempStr = TempStr & "@@<a href=""Member/Lx_word.asp?act=showadd"" target=""frmright"">敏感字符管理</a>"

TempStr = TempStr & "||<a style=""cursor:hand;"">预约须知</a>"
TempStr = TempStr & "@@<a href=""SiteSys/SiteInformation.asp"" target=""frmright"">预约须知</a>"
TempStr = TempStr & "@@<a href=""SiteSys/userreg.asp"" target=""frmright"">注册会员管理</a>"
TempStr = TempStr & "@@<a href=""SiteSys/tel.asp"" target=""frmright"">短信群发</a>"

TempStr = TempStr & "||<a style=""cursor:hand;"">预约门诊</a>"
TempStr = TempStr & "@@<a href=""outpatient/outpatientType.asp"" target=""frmright"">门诊类型</a>"
TempStr = TempStr & "@@<a href=""outpatient/department_Add.asp"" target=""frmright"">科室添加</a>"
TempStr = TempStr & "@@<a href=""outpatient/type1_up.asp"" target=""frmright"">科室导入</a>"
TempStr = TempStr & "@@<a href=""outpatient/department_List.asp"" target=""frmright"">科室管理</a>"
TempStr = TempStr & "@@<a href=""outpatient/experts_Add.asp"" target=""frmright"">专家添加</a>"
TempStr = TempStr & "@@<a href=""outpatient/experts_List.asp"" target=""frmright"">专家管理</a>"
TempStr = TempStr & "@@<a href=""outpatient/jijie.asp"" target=""frmright"">季节时间管理</a>"

Menu_1 = Split(TempStr , "||")
For i = 0 To Ubound(Menu_1)
	Menu_2 = Split(Menu_1(i) , "@@")
	
%>
				<li id="menu_<%=i%>" onMouseOver="Menus.Show(this,0)" onMouseOut="Menus.Hide(0);" onClick="getleftbar(this);">
					<table border="0" cellspacing="0" cellpadding="0">
						<tr>
							<td height="23" valign="bottom"><%=Menu_2(0)%></td>
							<td width="6" height="23"></td>
							<td width="3" height="23"><img src="skins/images/menu01_right.gif" width="3" height="23" /></td>
						</tr>
					</table>
				<div class="menu_childs">
					<ul>
<%
	For j = 1 To Ubound(Menu_2)
		Response.Write "<li>"& Menu_2(j) &"</li>"
	Next
%>
					</ul>
				</div>
				</li>
<%
Next
%>
			</ul>
		</div>
	</div>
</div>
<div class="top_table_2"></div>
%>

 把这段asp代码改成PHP，但是我不知道改怎么去写了，应该用数组可以实现吧，这是个菜单选项。这是效果图
------解决方案--------------------
就是拼接字符串，
然后再分裂字符串
最后循环输出
------解决方案--------------------
这个其实挺简单的啊，是你自己想复杂了，代码这样写：

<?php
$TempStr.= "<a style='cursor:hand;'>系统设置</a>";
$TempStr.=  "@@<a href='SiteSys/SiteConfig.asp' target='frmright'>系统基本设置</a>";
$TempStr.=  "@@<a href='Admin/Admin_Add.asp' target='frmright'>管理员添加</a>";
$TempStr.=  "@@<a href='Admin/Admin_Manage.asp' target='frmright'>管理员管理</a>";
$TempStr.=  "@@<a href='Admin/Admin_ChgPass.asp' target='frmright'>修改登录密码</a>";
$TempStr.=  "@@<a href='SiteSys/Admin_Message.asp' target='frmright'>短信接口配置</a>";
$TempStr.=  "@@<a href='SiteSys/soft.asp' target='frmright'>短信软件操作管理</a>";

$TempStr.= "
------解决方案--------------------
<a style='cursor:hand;'>常见问题管理</a>";
$TempStr.= "@@<a href='News/News_add.asp' target='frmright'>添加常见问题</a>";
$TempStr.= "@@<a href='News/News_List.asp' target='frmright'>管理常见问题</a>";