menu.inc

一个用asp实现的bbs

<%

Sub WriteFakeButton( sRef, sText )
	Response.Write " <b><a href=""" & sRef & """" & "><font color=#000066 size=""2"" face=""Arial,Helvetica"">" & "  " & sText &  "</font></a></b>"
End Sub


Sub WriteMenuItem( sRef, sText )
	Response.Write "暊<a href=""" & sRef & """" & "><font color=#000066 size=""1"" face=""Arial,Helvetica"">" & "  " & sText &  "</font></a><br>"
End Sub

Sub AdAdminWriteMenu
	Response.Write "<b>AdMentor Menu</b><br>"
	WriteMenuItem 	"adminaccount.asp?id=" & Session("userfldauto"), "My account"
	If Session("admin") = True Then
		WriteMenuItem 	"adminadvs.asp", "Advertiser admin"
	End If
	WriteMenuItem 	"adminbanners.asp", "Banner/campaigns"
	If Session("admin") = True Then
		WriteMenuItem 	"adminfarms.asp", "Farms"
		WriteMenuItem 	"adminzones.asp", "Zones"
		WriteMenuItem 	"genhtml.asp", "Generate HTML code"
	End If
	WriteMenuItem 	"checkstats.asp", "Check statistics"
	WriteMenuItem 	"showclickslog.asp", "Show click log"
	WriteMenuItem 	"logout.asp", "Logout"
	If Session("admin") = True Then
		WriteMenuItem 	"http://www.aspcode.net", "AdMentor Support"
	End If
End Sub

Sub AdAdminWriteMenu2
	Response.Write "<option value=""password.asp"">Account management</option>"
	If Session("admin") = True Then
		Response.Write "<option value=""adminadvs.asp"">Advertiser admin</option>"
		Response.Write "<option value=""adminbanners.asp"">Administrate banners</option>"
		Response.Write "<option value=""adminfarms.asp"">Administrate farms</option>"
		Response.Write "<option value=""adminzones.asp"">Administrate zones</option>"
		Response.Write "<option value=""genhtml.asp"">Generate HTML</option>"
	End If
	Response.Write "<option value=""checkstats.asp"">Check statistics</option>"
	Response.Write "<option value=""logout.asp"">Logout</option>"
End Sub

%>