台灣最大程式設計社群網站
線上人數
1721
 
會員總數:246494
討論主題:190002
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP]sorry~~又佔版面 從問一次
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP]sorry~~又佔版面 從問一次
價值 : 0 QP  點閱數:438 回應數:5
樓主

小政
門外漢
0 0
0 0
發送站內信

請各位高手   不要在罵我了">_<"  我也不願意不會啊  唉............
唉  很感謝各位高手幫忙
也許我問的不清楚
我就在從問一次吧
程式碼跟全部的問題都在這
嗯  至於問的在更深入的問題
ㄜ  老實說  我只知問題大概在這吧
其於全部  不知啊  我只是個新手   只知問題大概是這些吧  更深入的我可能都不懂
嗯  總之很感謝大家的幫忙  盡量幫我看看吧
唉@_@|||..............


shopping.htm進入個人預約首頁
**************************************************
<html>
<body>
<font size=+3>觀迎光臨網際網路圖書管理系統</font>__以下是預約中心的各個分區
<hr>
<p>
<a href="get.asp?分類=1&分區=新書區">新書區</a>  <p>
搜尋書名<form action="search.asp" action=post>
請輸入書籍名稱:<input type="text" name="search" size="30">
<input type="submit" name=send value=查詢>
<input type="reset"  name=clear value=清除>
</form>
<hr>
<p align=center><a href="goods.asp">看看借書車</a> 
<a href="cancel.asp">退回所有書籍</a>
</body>
</html>
********************************************************

get.asp列出使用者所點選的所有書名
********************************************************
<html>
<body>
<%
 category = Request("分類")
 area = Request("分區")
 sql="Select * From 書籍資料 Where 分類=" & category
 Set dbconn = Server.Createobject("ADODB.connection")
 dbconn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("shopping.mdb")
 Set rst = Server.CreateObject("ADODB.Recordset")
 rst.Open sql,dbconn,cursor,2
 Response.Write "<font size=+3>" & area & "</font>"
 Response.Write "<hr>"
 If Not rst.EOF Then rst.MoveFirst
 While Not rst.EOF
%>
<form action=check.asp?名稱=<%=rst("名稱")%>&價格=<%=rst("價格")%> method=post>
<table border=1>
<tr>
  <td width="200"><%=rst("名稱")%> </td>
  <td width="50" align="right"><%=rst("價格")%> </td>
  <td><input type=text size=3 name=number value=""></td>
  <td><input type=submit name=send value="放入借書車"</td>
  <td><input type=reset name=clear value="清除"></td>
</tr>
</table>
</form>
<% rst.MoveNext
   Wend
   rst.Close
   dbconn.Close
%>
<a href="shopping.htm">回首頁</a> 
<a href="goods.asp">看看借書車</a> 
<a href="cancel.asp">退回所有書籍</a>
</body>
</html>
*********************************************************

goods.asp列出使用者所選的書名並計算
***********************************************************
<% 
  goodslist = Request.Cookies("goodslist")
%>
<html>
<body>
<p align="center"><font size=+3>以下是您預借的書籍</font>
<hr>
<p align="center"><table border=1>
<tr bgcolor=yellow>
    <td width=200 align=center>書名</td>
    
</tr>
<%
  goods = Split(goodslist,".")
  for i=0 to UBound(goods)-1  
   buy = Split(goods(i),",")
   Response.Write "<tr><td width=200>" & buy(0) & "</td>"
   Response.Write "<td width=50 align=right>" & buy (1) & "</td>"
   Response.Write "<td width=50 align=right>" & buy (2) & "</td></tr>"                        
   total= buy(1) * Cint(buy(2))
   all=total + all 
  Next  
%>
<tr>
 <td colspan=3 align=center bgcolor=yellow>合計 <%=all%> 天</td>
</tr>
</table> 
<p align=center><input type=button value="確定" Onclick="history.back();">
</body>
</html>
*********************************************************

checks.asp 記錄使用者所訂購的書並判斷
**********************************************************
<%
  name=Request("書名")
  price=Request("價格")
  count=Request("number")
  If count = "" Then
  errMsg = "輸入數量不可為空白!!"
  Else
  goodslist = Request.cookies("goodslist")
  goodslist=goodslist & name & "," & price & "," & count & "."
  Response.Cookies("goodslist")=goodslist
  Response.Redirect "goods.asp"
  End If
%>
<html>
<body>
<p align="center"><font color=red size=+3><%=errMsg%></font><p>
<hr>
<p align="center"><input type=button value="確定" Onclick="history.back();">
</body>
</html>
*************************************************************

search.asp搜尋書籍
********************************************************
<html>
<body>
<%
  goods= Request("search")
  sql="Select * From 書籍資料 Where 名稱 like '%" & goods & "%'"
  Set dbconn = Server.Createobject("ADODB.connection")
  dbconn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("shopping.mdb")
  Set rst = Server.CreateObject("ADODB.Recordset")
  rst.Open sql,dbconn,cursor,2
  Response.Write "<font size=+3>您所查詢到的書名如下</font>"
  Response.Write "<hr>"

 If Not rst.EOF Then rst.MoveFirst
 While Not rst.EOF
%>
<form action=check.asp?名稱=<%=rst("名稱")%>&價格=<%=rst("價格")%> method=post>
<table border=1>
<tr>
  <td width="200"><%=rst("名稱")%> </td>
  <td width="50" align="right"><%=rst("價格")%> </td>
  <td><input type=text size=3 name=number value=""></td>
  <td><input type=submit name=send value="放入借書車"</td>
  <td><input type=reset name=clear value="清除"></td>
</tr>
</table>
</form>
<% rst.MoveNext
   Wend
   rst.Close
   dbconn.Close
%>
<a href="shopping.htm">回首頁</a> 
<a href="goods.asp">看看借書車</a> 
<a href="cancel.asp">退回所有書籍</a></body></html>
***********************************************************

cancel.asp退回所有書籍
******************************************************
<%
 goodslist=""
 Response.Cookies("goodslist")=goodslist
 Response.Write "<p align=center><font size=+3>您已經退回了所有的書籍</font><hr>"
%>
<html>
<body>
<p align=center><a href="shopping.htm">回首頁</a> 
<a href="goods.asp">看看借書車</a> 
</body>
</html>
*********************************************
共六個程式  我已找臭蟲找了一個多月了  請各位高手也幫幫小弟查查那有問題吧
在做不出來我就死定了  真的找不到  幫幫忙吧
直覺是資料庫跟程氏的問題
以下是資料庫的內容
資料庫檔名  shopping   書籍資料  資料表
以下的是內容
Book ID Book Name
4 哈利波特1
5 哈利波特2
6 哈利波特3
7 哈利波特4
8 JAVA
9 ASP
10 ASP進階
11 網球入門
12 達摩籃球1
16 達摩籃球2
17 達摩籃球3
18 時代
19 PCDIY
20 電玩雜誌
21 花藝天地
22 房間ROOM
23 香精
27 醫學

簡單來說就這樣吧  如果各為高手願意幫忙看看的話  也可以寄信給我
我會寄完整的壓縮檔案
請各位幫幫忙吧    對各位高手這一定只是個小程式  但對我好難啊  ">_<"



嗚~~~~~  終於有人肯回我了~~~  之前問了好多次了  都沒人理  我本還想說放棄這了
我的蟲主要是  1.點選新書區  不會出現書籍資料
                            2.在查詢那  輸入我要的書名  會出現  價格等不要的程式亂碼(有參考書籍  但不會改 所以變這樣@_@||)
                  而且我出現的格式要  在框裡出現  書名  跟一個可打勾的選單選則  能放入借書車  跟退回所有書籍     ;而清除這個按鍵   則是只要退勾選的這一本
                            3.其於就是功能當然要能運作啦  嗯~~也就是說  能計算天數    (不過那的資料庫我好像也沒做到  資料庫能改  主要只是測試用的  但希望表單明撐不要改  天數用bookday)
對不起  像各位求教還要求一堆
但  我是新手  真的已改了一個月了  但蟲一直找不出來  在做不出來就完了  所以像各位高手求救
請幫幫忙吧 


回高手的問答:
>>1.點選新書區  不會出現書籍資料
>請問是出現什麼資料??
>答:嗯  出現的是錯誤連結的網頁  
請問錯誤聯結顯示的文字為何?錯誤代碼為何?是否有錯誤說明?

>>2.在查詢那  輸入我要的書名  會出現  價格等不要的程式亂碼
>請問是什麼亂碼?什麼時候會出現?
>答:嗯  回出現的亂碼是&價格= method=post>
可能是<input type='text' value="<%=RS("價格")%>>  //忘了在最後加上"

>>3.其於就是功能當然要能運作啦  嗯~~也就是說  能計算天數
>在下沒看過你的程式,也沒看過您的網頁,也沒看過您設計的Table,所以在下並不知道要如何計算天數
>答: 嗯  我之前有在網上post文章 裡面就有我的全部程式跟Table  如果願意的話   我會寄給妳
>我的全部程式  


>還是一樣請各位大大  幫幫忙吧  在改不出來就要88了><
再試著縮小您問題的範圍吧

問問題不是那麼簡單的@_@... 




搜尋相關Tags的文章: [ 版面 ] ,
本篇文章發表於2002-04-28 02:09
1樓
回應

maduka
捐贈 VP 給 maduka 檢舉此回應
喵了一下您的程式
發現您的第二個問題錯在哪了..
<form action=check.asp?名稱=<%=rst("名稱")%>&價格=<%=rst("價格")%> method=post>
請將這一行改一下,變成
<form action="check.asp?名稱=<%=rst("名稱")%>&價格=<%=rst("價格")%>" method="post">
這樣就可以了...
其他的......^^"
本篇文章回覆於2002-04-28 02:12
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

sabcat
檢舉此回應
我已經快昏了..同樣的問題能不能不要一直重覆post呀~_~
至少用回覆的方式回在自己最初po的第一篇~好嗎~_~
敗拖~敗拖~敗拖~
本篇文章回覆於2002-04-28 02:14
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

HAN
檢舉此回應
嗚    maduka你真是好人  唉  真是很感謝............謝謝><



嗯 ps.  sorry~~怕大家沒看到嘛  所以才從post
本篇文章回覆於2002-04-28 02:18
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

sabcat
檢舉此回應
同一篇post~只要有人回覆就會被置頂~所有人就會再次看到
這樣有了解嗎??
本篇文章回覆於2002-04-28 02:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

breeze
檢舉此回應
上國語課:從post <--- 國字用錯
請罰寫在紙上,不要罰post到討論區上來
本篇文章回覆於2002-04-28 03:29
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.