menu.asp

浪人文章系统

<center>
<table border="0" cellpadding="0" cellspacing="0" width="780" height="38">
 <tr>
  <td width="16" style="background-image:url('Style/<%=WebSiteStyle%>/T_Menu_LR.gif');background-position:0px 0px"></td>
  <td width="748" style="background-image:url('Style/<%=WebSiteStyle%>/T_Menu_Bg.gif');background-position:0px 0px" align="right"><table border="0" cellpadding="0" cellspacing="0" width="" height="22"><tr>
	<td width="" align="center" valign="bottom"><a href="<%=WebSiteURL%>" class="WSMenu"><b>首页</b></a></td>
<%
dim rsMenu
set rsMenu=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Sort where So_Type='Sort' or So_Type='Other' order by So_Order asc"
rsMenu.open GuSQL,GuConn,1,1
if not(rsMenu.eof and rsMenu.bof) then
	do while not rsMenu.eof
		Response.write "<td width=""16"" style=""background-image:url('Style/"&WebSiteStyle&"/T_Menu_C.gif');background-position:0px 0px""></td>"
		Response.write "<td width="""" align=""center"" valign=""bottom"">"
	if rsMenu("So_Type")="Sort" then
		Response.write "<a href=""List.asp?So="&rsMenu("So_ID")&""" class=""WSMenu"">"
	else
		Response.write "<a href="""&rsMenu("So_OtherLink")&""" class=""WSMenu"" target=""_blank"">"
	end if
		Response.write "<b>"&rsMenu("So_Name")&"</b></a></td>"
	rsMenu.movenext
	loop
end if
rsMenu.Close
set rsMenu=Nothing
%></tr>
 </table></td>
  <td width="16" style="background-image:url('Style/<%=WebSiteStyle%>/T_Menu_LR.gif');background-position:right"></td>
 </tr>
</table>
</center>