📄 main.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<!-- #include virtual="/kjasp/func/CCookies.fun" -->
<%
Response.Buffer = True
If Not IsCookiesOpen Then
ErrMsg = "<FONT Color=Red>本网页须使用 Cookies 功能，请先开启 Cookies!</FONT>"
End If
' 读取商品分类，然后写入 Cookies 物件中
Set rs = GetMdbRecordset( "eShop.mdb", "Category" )
While Not rs.EOF
Param = "CategoryID=" & rs("CategoryID")
Param = Param & "&Description=" & Server.URLEncode(rs("Description"))
Link = "<A HREF=buy.asp?" & Param & ">" & rs("Description") & "</A>"
count = count + 1
Response.Cookies("CategoryLink" & count ) = Link
Response.Cookies("CategoryLinks") = count
rs.MoveNext
Wend
%>
<HTML>
<BODY BACKGROUND="../B01.jpg">
<H1 ALIGN=CENTER>KJ 电子购物街<HR></H1>
<H2>进入购物区：</H2>
<UL>
<%
For I = 1 To Request.Cookies("CategoryLinks")
Response.Write Request.Cookies( "CategoryLink" & I ) & "<P>"
Next
%>
</UL>
<HR><%=ErrMsg%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -