📄 display.asp
字号:
<%
'创建ADO对象
Set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")
Conn.Open "FILEDSN=e:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn"
'设置最大显示记录数
RS.MaxRecords=25
'查询
RS.Open "SELECT * FROM Feedback ORDER BY Feed_Date DESC", Conn
%>
<HTML>
<HEAD>
<TITLE>显示记录</TITLE>
</HEAD>
<BODY>
<FORM>
<%
'显示记录
WHILE NOT RS.EOF
%>
<BR>
<B>Date Entered:</B>
<%=RS("Feed_Date")%>
<BR>
<B>Email:</B>
<%=RS("Feed_Email")%>
<BR>
<B>IP Address: </B>
<%=RS("Feed_IP")%>
<BR>
<TEXTAREA COLS=30 ROWS=10>
<%=RS("Feed_Contents")%>
</TEXTAREA>
<HR>
<%
RS.MoveNext
WEND
%>
</FORM>
</BODY>
</HTML>
<%
'关闭记录集和链接对象
RS.Close
Conn.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -