Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > คนเก่ง asp ช่วยดู code ให้หน่อย ค่ะ อยากจะรวมจำนวนสินค้า ค่ะเขียนเท่าไหร่ก็ eror ช่วยหน่อยค่ะ

คนเก่ง asp ช่วยดู code ให้หน่อย ค่ะ อยากจะรวมจำนวนสินค้า ค่ะเขียนเท่าไหร่ก็ eror ช่วยหน่อยค่ะ

เริ่มหัวข้อใหม่

Guest

อยากจะรวมจำนวนสินค้า ค่ะเขียนเท่าไหร่ก็ eror ช่วยหน่อยค่ะ
<%
CONST CARTPID=0
CONST CARTPNAME=1
CONST CARTPPRICE=2
CONST CARTPQUANTITY=3
'--------------------------------------------------------------------
' 1.ประกาศตัวแปรเพื่อรับค่าจากหน้า payment.asp
Dim pmid, sql, rs
Dim aCust, aShip, aPay, localCart
Dim orderTotal, i ,QTotal
'--------------------------------------------------------------------
' 2.รับค่าเก็บใส่ตัวแปร
pmid = Trim(Request.Form("pmid"))
aShip = Session("shipaddress")
localCart = Session("cart")
orderTotal = 0
'--------------------------------------------------------------------
' 3.Validate ค่าของตัวแปร pmid
If Not IsNumeric(pmid) Then
Response.Write "กรุณาเลือก วิธีการชำระเงิน ด้วยครับ "
Response.Write "<a href='#' onclick='history.back()'>Back</a>"
Response.End
End If
%>
 
<center>
<img src="images/orderstatus3.gif" width="417" height="43">
</center>
<form method="post" action="finish.asp">
<table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr>
<td bgcolor="#6CAEE0" class="style2">รายการสั่งซื้อทั้งหมด</td>
</tr>
<tr>
<td class="style2">
<img src="images/bullet.gif" width="16" height="16"> ที่อยู่ออกใบเสร็จ

<%
'--------------------------------------------------------------------
' 4.เขียนฟังก์ชันที่ใช้แทนข้อความ ?????
Function doIt(var)
doIt = Replace(var,"?????","")
End Function
'--------------------------------------------------------------------
' 5.ติดต่อฐานข้อมูลเพื่อดึงข้อมูลในตาราง Customers มาแสดงผล
If ConnectDB() = True Then
sql = "select * from customers where cemail='"& Session("cemail") &"'"
Set rs = Conn.Execute(sql)
aCust = rs.GetRows()
Session("customer") = aCust
rs.Close
'--------------------------------------------------------------------
' 6.แสดงข้อมูลในตัวแปร aCust แบบอาเรย์ 2 มิติ
%>
<%="คุณ" & aCust(1,0) & " " & aCust(2,0)%> 
<%=doIt(aCust(3,0)) & " " & aCust(4,0)%> 
<%=doIt(aCust(5,0)) & " " & doIt(aCust(6,0)) & " "%>
<%=doIt(aCust(7,0)) & " ประเทศ" & aCust(8,0) & " " & doIt(aCust(9,0))%> 
<%=aCust(10,0) & " " & doIt(aCust(11,0)) & " " & doIt(aCust(12,0))%> <hr noshade>
<img src="images/bullet.gif" width="16" height="16"> ที่อยู่จัดส่งสินค้า 

<%
'--------------------------------------------------------------------
' 7.แสดงข้อมูลในตัวแปร aShip แบบอาเรย์ 1 มิติ
%>
<%="คุณ" & aShip(1) & " " & aShip(2)%> 
<%=doIt(aShip(3)) & " " & aShip(4)%> 
<%=doIt(aShip(5)) & " " & doIt(aShip(6)) & " " & doIt(aShip(7))%>
<%=" ประเทศ" & aShip(8) & " " & doIt(aShip(9))%> 

<hr noshade>
<img src="images/bullet.gif" width="16" height="16"> วิธีชำระเงิน 

<%
'--------------------------------------------------------------------
' 8.ดึงข้อมูลในตาราง Payment ที่เลือกการชำระเงินไว้แล้ว
sql = "select * from payment where pmid=" & pmid
Set rs = Conn.Execute(sql)
Response.Write rs(1) & " "
Response.Write Replace(rs(2),vbCrLf," ")
aPay = rs.GetRows()
Session("aPay") = aPay
rs.Close
Set rs = Nothing
End If
%>

<hr noshade>
<img src="images/bullet.gif" width="16" height="16"> รายการสินค้า ที่สั่งซื้อ 

<input type="hidden" name="updateQ" value="1">
<table width="90%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr align="center" bgcolor="#FFCC99">
<td width="65%" bgcolor="#6CAEE0" class="style2">ชื่อสินค้า</td>

<td width="10%" bgcolor="#6CAEE0" class="style2">จำนวน</td>

<td width="25%" bgcolor="#6CAEE0" class="style2">ราคา</td>
</tr>
<%
'--------------------------------------------------------------------
' 9.แสดงข้อมูลสินค้าในรถเข็นพร้อมราคารวม + ค่าขนส่งสินค้า
For i = 0 To Ubound(localCart,2)
If localCart(CARTPID,i) <> "" Then
orderTotal = orderTotal + (localCart(CARTPPRICE,i) * CInt(localCart(CARTPQUANTITY,i)))
%>
<tr>
<td width="65%" class="style2"><%=localCart(CARTPNAME,i)%></td>
<td width="10%" align="right" class="style2"><%=localCart(CARTPQUANTITY,i)%></td>
<td width="25%" align="right" class="style2"><%=FormatNumber(localCart(CARTPPRICE,i),2)%></td>
</tr>
<%
End If
Next

'--------------------------------------------------------------------
' 10.เก็บราคารวมและราคารวมทั้งสิ้นในตัวแปร Session
aShip(11) = CalculateShippingCost(CARTPQUANTITY)

Session("orderTotal") = orderTotal
Session("grandtotal") = orderTotal + aShip(11)
%>

<tr>
<td colspan=2 align=right class="style2">ราคารวม </td>
<td width="25%" align="right" class="style2"><%=FormatNumber(orderTotal,2)%></td>
</tr>
<tr>
<td colspan=2 align=right class="style2">ค่าส่งสินค้า </td>
<td width="25%" align="right" class="style2"><%=FormatNumber(aShip(11),2)%></td>
</tr>
<tr>
<td colspan=2 align=right class="style2">ราคารวมทั้งสิ้น </td>
<td width="25%" align="right" class="style2"><%=FormatNumber(orderTotal + aShip(11),2)%></td>
</tr>
</table> </td>
</tr>
</table>
<%
Function CalculateShippingCost(CARTPQUANTITY)
Dim sngaShip
If CARTPQUANTITY =1 Then
sngaShip =20
ElseIf CARTPQUANTITY >1 Then
sngaShip =(((CARTPQUANTITY-1)*15)+20)
End If
CalculateShippingCost = sngaShip
End Function
%>

Tag : - - - -

Date : 1 ต.ค. 2550 16:26:57

By : ตัวน้อย มือใหม่

View : 1590

Reply : 3

No. 1

Guest

สวัสดีครับ
แนะนำน้องๆ ไปก็หลายที เกี่ยวกับการถาม ก็ยังเขียนแบบนี้มาถาม... ปวดหัวจริงๆ

1. เล่น post source มาหมดแบบนี้ ปวดตามากครับ
2. error บรรทัดไหนยังไงก็ไม่บอก

คนจะช่วยอาจจะเยอะแต่เจอแบบนี้บางทีก็ช่วยไม่ถูกนะครับ

Date : 2 ต.ค. 2550 03:10:41

By : ASP อ่อนหัด

No. 2

Guest

หลักการก็ประมาณนี้ แต่ code ผิดแน่ๆ เขียนสด ไม่ได้รัน

<%
If ConnectDB() = True Then
sql = "select (count(CARTPQUANTITY)) from customers ' ใช้คำสั่ง เค้าท์ รวมมันออกมา ถ้าเขียนผิก็ไปค้นดูอีกทีนะครับ
Set rs = Conn.Execute(sql)
aCust = rs.GetRows() 'เก็บไว้ใน อาเรย์ ไม่ระบบ อินเด็กซ์
rs.Close

response.write(aCust 0)) ' แสดงค่าออกมา และ จะเอาไปทำอะไรก็เชิญ.. 555+
%>

Date : 2 ต.ค. 2550 13:50:26

By : Jo.p

No. 3

Guest

ขอบคุงมากค่ะที่ มาช่วยตอบ

Date : 4 ต.ค. 2550 16:11:08

By : ตัวน้อย มือใหม่

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : คนเก่ง asp ช่วยดู code ให้หน่อย ค่ะ อยากจะรวมจำนวนสินค้า ค่ะเขียนเท่าไหร่ก็ eror ช่วยหน่อยค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก