📄 default.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
if Session("login")=1 then
%>
欢迎您：<%=Session("rname")%>
<% else %>
<form id="form1" name="form1" method="post" action="login.asp">
<input name="uname" type="text" id="uname" />
<br />
<input name="upass" type="text" id="upass" />
<br />
<input type="submit" name="Submit" value="提交"/>
</form>
<% end if %>
<!--#include file="dbcon.asp"-->
<%
SQL="select * from goods"
CN.Open
RS.Open SQL,CN
%>
<TABLE ALIGN="center" BORDER="2" CELLSPACING="0">
<TR>
<TH>商品名</TH>
<TH>原价</TH>
<TH>会员价</TH>
<TH>商品介绍</TH>
</TR>
<% While Not RS.EOF %>
<TR>
<td><a href="buy.asp?pid=
<%
response.write RS(0) & "&pname="
response.write Server.URLEncode(RS(2)) & "&pp="
response.write RS(3) & "&ppp="
response.write RS(4)
%>
"><%=RS(2)%></a></td>
<td><%=RS(3)%></td>
<td><%=RS(4)%></td>
<td><%=RS(6)%></td>
</TR>
<% RS.MoveNext ' 将当前记录移动到记录集的下一条记录
Wend
RS.Close
%>
</TABLE>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -