navbar.asp

本程序是一款比较完善的图书租赁系统

<%
'从数据库中读取影片的类型
Dim strSQL,objRS,NavBar
strSQL="SELECT * FROM [VideoStyle]"
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3

For i=1 To objRS.RecordCount
	NavBar=NavBar&"&nbsp;<a href=index.asp?ViewArea="&objRS("VS_ID_N")&">"&objRS("VS_Description_S")&"</a>&nbsp;<img src=img/navspacer.gif align=absmiddle>"
	objRS.MoveNext 
Next
NavBar=NavBar&"&nbsp;<a href=index.asp?ViewArea=0>全部</a>"
'将影片类型写入导航条
Response.Write NavBar

objRS.Close
Set objRS=Nothing
%>