navbar.asp

来自「本程序是一款比较完善的图书租赁系统」· ASP 代码 · 共 18 行

ASP
18
字号
<%
'从数据库中读取影片的类型
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
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?