sql = sql & " like '%" & dbwhere & "%'"
end if
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' %除錯用, 回傳 sql 敘述
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
response.write "<b><font size=2 color=blue>sql statement: </b>" &
sql & "<hr>"
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 開啟 recordset (rs) 乲傳到
' % connection (conn) 和 sql 敘述 (sql)
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
rs.open sql, conn
%>
<p>
<table border=1>
<tr>
<%
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 迴圈從 fields names ,印出 field names
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
for i = 0 to rs.fields.count - 1
%>
<td><b><% = rs(i).name %></b></td>
<% next %>
</tr>
<%
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 迴圈從 rows, 顯示每一個field
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
do while not rs.eof
%>
<tr>
<% for i = 0 to rs.fields.count - 1 %>
<td valign=top><% = rs(i) %></td>
<% next %>
</tr>
<%
rs.movenext
loop
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 確誮阷閉 result set 以及 connection object
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
rs.close
conn.close
%>
</table>
<%
end if
end if
%>
假詏使用以下文件架構:
frameset page (mainfrm.htm)
frame 1 (frame1.asp)
frame 2 (frame2.asp)
將以下的程式碼放在frame1.asp 或是 frame2.asp 在開頭的<html> tag 之前
<%
if (request.servervariables("http_referer") = "") or _
(left(request.servervariables("http_referer"),42) <> _
"http://www.myserver.com/appdir/mainfrm.htm") then
response.redirect "http://www.myserver.com/appdir/mainfrm.htm"
end if
%>
以下是這個例子的程式碼
file: mainfrm.htm
-----------------
<html>
- word文档下载,使IE可直接…
- Creating the No…
- 实例分析CSS属性Displa…
- 组件:"Adodb.…
- Asp无组件生成缩略图…
- 亲密接触ASP.Net(13)…
- The System.Data…
- 关于学习ASP和编程的28个观…
- 如何在asp.net中动态生成…
- 编码的风格和如何设置调试代码…
- access爆库的另一方法…
- ASP 编程中 20 个非常有…
- 用流(stream)技术做下载…
- ADO.NET读书笔记系列之-…
- 一个JavaScript的日历…
- XML与ASP简单结合实现HT…
- 利用XMLHTTP无刷新获取数…
- 用ASP+XML实现CSDN的…
- ASP.net中md5加密码的…
- 在Windows2003中运行…