<%@language="vbscript" codepage="936"%>
<%'定義conn和connstr變數
dim conn,connstr
'連線資料庫user1，設定使用者名為sa
connstr="driver=;uid=sa;pwd="";database=data;server=nl" '不太明白server應該填什麼，是自己計算機的名字嗎？
'建立乙個ado connection物件
set conn=server.createobject("adodb.connection")
'開啟資料庫
on error resume next
conn.open connstr
if err.number<>0 then
response.write "資料庫連線錯誤！"
response.end
end if
%>
以上是conn.asp檔案
搜 索 書 籍
<%
action=request.querystring("action") '請求表單傳遞引數
if action="send" then '如果請求到的表單引數為send，則執行查詢操作
category=request("category") '取得下拉列表中option的value屬性值
key=request("key") '取得文字框字元
if category=1 then '如果取到的值為1按書名搜尋
set rs = server.createobject("adodb.recordset")
sql="select * from search_book where bookname like '%"&key&"%'" '模糊查詢字元
rs.open sql,conn,1,1
end if
if category=2 then '如果取到的值為2按作者搜尋
set rs = server.createobject("adodb.recordset")
sql="select * from search_book where writer like '%"&key&"%'"
rs.open sql,conn,1,1
end if
if category=3 then '如果取到的值為3按評價內容搜尋
set rs = server.createobject("adodb.recordset")
sql="select * from search_book where pingjia like '%"&key&"%'"
rs.open sql,conn,1,1
end if
if rs.eof then '判斷表中是否有該條記錄
%>
<%
response.write" 非常抱歉，沒有找到你需要的書籍！
"%>
<%
response.end
end if
rs.pagesize=2 '定義每頁顯示的記錄數
page=request("page") '取得當前頁page值
if (page-rs.pagecount) > 0 then '當取到的page值大於rs記錄集物件包含的頁數時
page=rs.pagecount '把rs物件pagecount值給page
elseif page = "" or page < 1 then '當page值為空或者小於1時
page = 1 '把1賦值給page
end if
rs.absolutepage=page '定位到當前頁面
%>
<%
do while not rs.eof
i = i + 1
if i > rs.pagesize then
exit do
end if
%>
<%response.write"搜尋結果"%>
次<%=rs("pingjia")%>
<%
rs.movenext
loop
%>
<%end if%>
執行後提示
microsoft vbscript 編譯器錯誤 (0x800a0401)
語句未結束
/flyweb/firstchapter/conn.asp, line 5, column 34
connstr="driver=;uid="sa";pwd="";database=data;server=nt"
關於auto ptr ref的一點問題
略微修改了格式和錯別字 今天我在看 the c standard library 的時候，總覺的上面講的關於 auto ptr ref 的問題沒有說清楚，查了網上的資料發現也沒有說清。也許還有很多朋友像我一樣對此存在疑問。其實，這個問題有沒有弄清楚，對實際程式設計影響並不大，但是本著 勿在浮沙築高台...
關於auto ptr ref的一點問題
今天我在看the c standard library的時候，總覺的上面講的關於auto ptr ref的問題沒有說清楚，查了網上的資料發現也沒有說清。也許還有很多朋友像我一樣對此存在疑問。其實，這個問題有沒有弄清楚，對實際程式設計影像並不大，但是本著 勿在浮沙築高台 的精神，我用了乙個晚上的時間，...
關於auto ptr ref的一點問題
今天我在看the c standard library的時候，總覺的上面講的關於auto ptr ref的問題沒有說清楚，查了網上的資料發現也沒有說清。也許還有很多朋友像我一樣對此存在疑問。其實，這個問題有沒有弄清楚，對實際程式設計影像並不大，但是本著 勿在浮沙築高台 的精神，我用了乙個晚上的時間，...