leftdiv.asp

来自「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽」· ASP 代码 · 共 58 行

<%
' Project Name: Simple Blog
' Version: 1.1
' Author: James Tang
' Email: [e-mail]
' Web site: www.fwso.cn
' Copyright (C) 2008 James Tang. All Rights Reserved.
'
' Note: This program can be used for any purpose for free. 
'       
%>
<!--#include file="admin/isLogin.asp"-->
<!--#include file="lib/const.asp"-->
<%Call isLogin ()%>
<div id="leftDiv">
    <div id="navList">
    
        <ul>
            <li><a href="<%=blogURL%>">Home</a></li>
            <%

			Dim catSQL, catRS
			catSQL = "SELECT cat_id, cat_name, cat_desc FROM categories"
			
			Set catRS = Server.CreateObject("ADODB.Recordset")
			
			catRS.open catSQL, conn, 1,1
			
			If catRS.EOF or catRS.BOF then
				Response.Write("Have no category yet.")
			Else
				Do until catRS.EOF
					Response.Write("<li><a href=""./?cat_id=" + cStr(catRS("cat_id")) + """ title=""" + catRS("cat_desc") + """>" + catRS("cat_name") + "</a></li>")
				catRS.moveNext
				Loop
			End if
			
			%>
        </ul>
        
        <%
		If Session("userID") = "" Then
		%>
        <ul id="userDIV">
        	<li><a href="register.asp">Login/Register</a></li>
        </ul>
        <%
		Else
		%>
        <ul id="userDIV">
        	<li><a href="admin/admin.asp">Site Admin</a></li>
        </ul>
        <%
		End If
		%>
    
    </div><!--End #navList-->
</div><!--End #leftDiv-->