Forgot Password ??

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

	Registered : 109,028

HOME > ASP > ASP Forum > อยากได้ asp shopping ของไทย อยากได้มากเลยค่ะ แบบ ในส่วนย่อยๆtarad.com จะดีมากเลย ง่ายดีด้วย

อยากได้ asp shopping ของไทย อยากได้มากเลยค่ะ แบบ ในส่วนย่อยๆtarad.com จะดีมากเลย ง่ายดีด้วย

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

Guest

อยากได้มากเลยค่ะ แบบ ในส่วนย่อยๆtarad.com จะดีมากเลย ง่ายดีด้วย ใครก็ได้ช่วยบอกทีว่าที่ไหนมีให้โหลด

Tag : - - - -

Date : 10 Jan 2547 19:04:07

By : neungzone

View : 2858

Reply : 2

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (AjaxASPShoppingCart1.asp)

<%
'*** By Weerachai Nukitram ***'
'*** http://www.ThaiCreate.Com ***'
Option Explicit
%>
<html>
<head>
<title>ThaiCreate.Com Ajax Tutorial</title>
<script language="JavaScript">
var HttPRequest = false;

function doCallAjax(ProductID,Qty) {
HttPRequest = false;
if (window.XMLHttpRequest) { // Mozilla, Safari,...
HttPRequest = new XMLHttpRequest();
if (HttPRequest.overrideMimeType) {
HttPRequest.overrideMimeType('text/html');
}
} else if (window.ActiveXObject) { // IE
try {
HttPRequest = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
HttPRequest = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}

if (!HttPRequest) {
alert('Cannot create XMLHTTP instance');
return false;
}

var url = 'AjaxASPShoppingCart2.asp';
var pmeters = "tProductID=" + ProductID+
"&tQty=" + Qty;
HttPRequest.open('POST',url,true);

HttPRequest.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
HttPRequest.setRequestHeader("Content-length", pmeters.length);
HttPRequest.setRequestHeader("Connection", "close");
HttPRequest.send(pmeters);


HttPRequest.onreadystatechange = function()
{

if(HttPRequest.readyState == 3) // Loading Request
{
document.getElementById("mySpan").innerHTML = "Now is Loading...";
}

if(HttPRequest.readyState == 4) // Return Request
{
document.getElementById('mySpan').innerHTML = HttPRequest.responseText;
}
}

}

function CheckOut()
{
window.location = 'AjaxASPShoppingCart3.asp';
}
</script>
</head>
<body onLoad="JavaScript:doCallAjax('','')">
<h1>My Cart </h1>
<table width="680" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="234" valign="top">
<%
Dim Conn,strSQL,objRec,intRows
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

Response.Write("<table border='0' cellspacing='1' cellpadding='1'><tr>")

strSQL = "SELECT * FROM product ORDER BY ProductID ASC "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3

intRows = 0
While Not objRec.EOF
intRows = intRows + 1
Response.Write("<td>")
%>
<img src="product/<%=objRec.Fields("Picture").Value%>" width="70" height="61" border="0">
<center>
<%=objRec.Fields("ProductName").Value%>
<br>
<%=objRec.Fields("Price").Value&" Baht"%>
<br>
<input type="text" id="txt<%=intRows%>" value="" style="width:20px">
<input type="button" value="Add" onClick="JavaScript:doCallAjax('<%=objRec.Fields("ProductID").Value%>', document.getElementById('txt<%=intRows%>').value);">
</center>
<%
Response.Write("</td>")
If intRows Mod 2 = 0 Then
Response.Write("</tr>")
Else
Response.Write("<td>")
End IF
objRec.MoveNext
Wend

Response.Write("</tr></table>")
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</td>
<td width="446" valign="top"><span id="mySpan"></span></td>
</tr>
</table>
</body>
</html>

Code (AjaxASPShoppingCart2.asp)

<%
'*** By Weerachai Nukitram ***'
'*** http://www.ThaiCreate.Com ***'

Option Explicit

Dim strProductID,strQty

strProductID = Request.Form("tProductID")
strQty = Request.Form("tQty")

Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

If strProductID <> "" and strQty <> "" Then
strSQL = ""
strSQL = strSQL &"INSERT INTO cart "
strSQL = strSQL &"(SID,ProductID,Qty) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Session.SessionID&"','"&strProductID&"','"&strQty&"') "
Set objExec = Conn.Execute(strSQL)
End IF
%>
<center>
<h1>Your Cart</h1>
<table width="408" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="51"><div align="center">ID</div></td>
<td width="154" height="26"><div align="center">Product</div></td>
<td width="69"><div align="center">Price</div></td>
<td width="57"><div align="center">Qty</div></td>
<td width="65"><div align="center">Total</div></td>
</tr>
<%
Dim intTotal,intSumTotal,intRows,objRec,objRec2
intSumTotal = 0
intTotal = 0
intRows = 0
strSQL = "SELECT * FROM cart WHERE SID = '"&Session.SessionID&"' "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3

While Not objRec.EOF
intRows = intRows + 1

'*** Product ***'
strSQL = "SELECT * FROM product WHERE ProductID = "&objRec.Fields("ProductID").Value&" "
Set objRec2 = Conn.Execute(strSQL)

intTotal = objRec.Fields("Qty").Value * objRec2.Fields("Price").Value
intSumTotal = intSumTotal + intTotal
%>
<tr>
<td><div align="center"><%=intRows%></div></td>
<td><%=objRec2.Fields("ProductName")%></td>
<td><div align="right"><%=FormatNumber(objRec2.Fields("Price"),2)%></div></td>
<td><div align="center"><%=objRec.Fields("Qty")%></div></td>
<td><div align="right"><%=FormatNumber(intTotal,2)%></div></td>
</tr>
<%
objRec.MoveNext
Wend
%>
<tr>
<td colspan="4"><div align="right">Total Amount </div></td>
<td>
<div align="right"><%=FormatNumber(intSumTotal,2)%></div></td>
</tr>
</table>
<%
If intSumTotal > 0 Then
%>
<br><input name="btnCheckOut" type="submit" id="btnCheckOut" value="Check Out" onClick="JavaScript:CheckOut();">
<%
End IF
%>
</center>

Code (AjaxASPShoppingCart3.asp)

<%
'*** By Weerachai Nukitram ***'
'*** http://www.ThaiCreate.Com ***'

Dim Conn,strSQL,objRec1,objExec,intOrderID
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

If Request.QueryString("Action") = "Save" Then
'*** Insert Order Header ***'
strSQL = ""
strSQL = strSQL &"INSERT INTO cusorder "
strSQL = strSQL &"(Name,Email,Address,OrderDate) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"','"&Request.Form("txtAddress")&"','"&Now&"') "
Set objExec = Conn.Execute(strSQL)

'*** OrderID ***'
strSQL = "SELECT MAX(OrderID) As MaxOrderID FROM cusorder "
Set objRec1 = Conn.Execute(strSQL)
intOrderID = objRec1.Fields("MaxOrderID").Value

'*** Update Order Detail ***//
strSQL = "UPDATE cart SET OrderID = "&intOrderID&" ,SID = '' WHERE SID = '"&Session.SessionID&"' "
Set objExec = Conn.Execute(strSQL)

Response.Redirect("AjaxASPShoppingCart4.asp?OrderID="&intOrderID)
Response.End
End IF
%>
<html>
<head>
<title>ThaiCreate.Com Ajax Tutorial</title>
<center>
<h1>Your Cart</h1>
<table width="408" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="51"><div align="center">ID</div></td>
<td width="154" height="26"><div align="center">Product</div></td>
<td width="69"><div align="center">Price</div></td>
<td width="57"><div align="center">Qty</div></td>
<td width="65"><div align="center">Total</div></td>
</tr>
<%
Dim intTotal,intSumTotal,intRows,objRec2,objRec3
intSumTotal = 0
intTotal = 0
intRows = 0
strSQL = "SELECT * FROM cart WHERE SID = '"&Session.SessionID&"' "
Set objRec2 = Server.CreateObject("ADODB.Recordset")
objRec2.Open strSQL, Conn, 1,3

While Not objRec2.EOF
intRows = intRows + 1

'*** Product ***'
strSQL = "SELECT * FROM product WHERE ProductID = "&objRec2.Fields("ProductID").Value&" "
Set objRec3 = Conn.Execute(strSQL)

intTotal = objRec2.Fields("Qty").Value * objRec3.Fields("Price").Value
intSumTotal = intSumTotal + intTotal
%>
<tr>
<td><div align="center"><%=intRows%></div></td>
<td><%=objRec3.Fields("ProductName")%></td>
<td><div align="right"><%=FormatNumber(objRec3.Fields("Price"),2)%></div></td>
<td><div align="center"><%=objRec2.Fields("Qty")%></div></td>
<td><div align="right"><%=FormatNumber(intTotal,2)%></div></td>
</tr>
<%
objRec2.MoveNext
Wend
%>
<tr>
<td colspan="4"><div align="right">Total Amount </div></td>
<td>
<div align="right"><%=FormatNumber(intSumTotal,2)%></div></td>
</tr>
</table>
<br>
<br>
<br>
<form action="AjaxASPShoppingCart3.asp?Action=Save" method="post" name="frmMain" id="frmMain">
<table width="408" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="127">Name</td>
<td width="275"><input name="txtName" type="text" id="txtName"></td>
</tr>
<tr>
<td>Email</td>
<td><input name="txtEmail" type="text" id="txtEmail"></td>
</tr>
<tr>
<td>Address</td>
<td><textarea name="txtAddress" id="txtAddress"></textarea></td>
</tr>
</table>
<br>
<input name="btnSave" type="submit" id="btnSave" value="Save">
</form>
</center>
</body>
</html>

Code (AjaxASPShoppingCart4.asp)

<%
'*** By Weerachai Nukitram ***'
'*** http://www.ThaiCreate.Com ***'

Dim Conn,strSQL
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

%>
<html>
<head>
<title>ThaiCreate.Com Ajax Tutorial</title>
<center>
<h1>Your Cart [<%=Request.QueryString("OrderID")%>] </h1>
<table width="408" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="51"><div align="center">ID</div></td>
<td width="154" height="26"><div align="center">Product</div></td>
<td width="69"><div align="center">Price</div></td>
<td width="57"><div align="center">Qty</div></td>
<td width="65"><div align="center">Total</div></td>
</tr>
<%
Dim intTotal,intSumTotal,intRows,objRec,objRec2
intSumTotal = 0
intTotal = 0
intRows = 0
strSQL = "SELECT * FROM cart WHERE OrderID = "&Request.QueryString("OrderID")&" "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3

While Not objRec.EOF
intRows = intRows + 1

'*** Product ***'
strSQL = "SELECT * FROM product WHERE ProductID = "&objRec.Fields("ProductID").Value&" "
Set objRec2 = Conn.Execute(strSQL)

intTotal = objRec.Fields("Qty").Value * objRec2.Fields("Price").Value
intSumTotal = intSumTotal + intTotal
%>
<tr>
<td><div align="center"><%=intRows%></div></td>
<td><%=objRec2.Fields("ProductName")%></td>
<td><div align="right"><%=FormatNumber(objRec2.Fields("Price"),2)%></div></td>
<td><div align="center"><%=objRec.Fields("Qty")%></div></td>
<td><div align="right"><%=FormatNumber(intTotal,2)%></div></td>
</tr>
<%
objRec.MoveNext
Wend
%>
<tr>
<td colspan="4"><div align="right">Total Amount </div></td>
<td>
<div align="right"><%=FormatNumber(intSumTotal,2)%></div></td>
</tr>
</table>
</center>
</body>
</html>

Ref : Ajax Shopping Cart (PHP+MySQL & ASP+Access)

Date : 2009-04-25 07:12:07

By : webmaster

No. 2

aof

โพสกระทู้ ( 1 )
บทความ ( 0 )

มือใหม่ครับ

แล้วจะเอาไปรันที่server ยังไงครับ มันขึ้นอย่างนี้

My Cart

Warning: mysql_connect() [function.mysql-connect]: Access denied for user 'root'@'localhost' (using password: YES) in /home/amazing/public_html/thaicart/php/AjaxPHPShoppingCart1.php on line 72
Error Connect to Database

Date : 2009-10-07 17:20:34

By : aj2004

ค้นหาข้อมูล

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

Re : อยากได้ asp shopping ของไทย อยากได้มากเลยค่ะ แบบ ในส่วนย่อยๆtarad.com จะดีมากเลย ง่ายดีด้วย

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02