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&" <a href=index.asp?ViewArea="&objRS("VS_ID_N")&">"&objRS("VS_Description_S")&"</a> <img src=img/navspacer.gif align=absmiddle>"
objRS.MoveNext
Next
NavBar=NavBar&" <a href=index.asp?ViewArea=0>全部</a>"
'将影片类型写入导航条
Response.Write NavBar
objRS.Close
Set objRS=Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?