📄 default.asp
字号:
<%
Const Head="网上超市"
DbPath = SERVER.MapPath("cart.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Set rs=conn.Execute( "Category" )
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY>
<H1 ALIGN=CENTER><%=Head%></h1>
<HR>
<H2 align="center"><img border="0" src="pic/bannerb2.gif"></H2>
<H2 align="center">选择购物架：</H2>
<UL>
<%
While Not rs.EOF
%><P align="center">
<A HREF=buy.asp?CategoryID=<%=rs("CategoryID")%>&Description=<%=Server.URLEncode(rs("Description"))%>>
<%=rs("Description")%></A>
<%
rs.MoveNext
Wend
%>
</UL>
<HR>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -