E-commerce How To...

SilviuB · Mai 15, 2005

Buna,

Am o idee despre o afacere, am facut un site, iar acuma m-am cam impotmolit. Ideea este sa iasa si niste bani. Stiu ca tre sa pun niste sopping carts, sa caut un serviciu de credit card processing si... toate astea sa le unesc cumva sa mearga bine.

Hai impreuna sa facem asta sa mearga. Ce ziceti? Ajutati?!?

suspect · Iulie 19, 2005

Incearca un asp.net script daca vrei pot sa pun un code 8)

face procesare , incearca sa faci chestia sa mearga fara carduri :) adicaa ceva gen postal :) omu` iti trimite datele si chestiile ... si banii :) si tu ii trimiti marfa ... e cel mai avantajos. Parerea mea. dar poti incerca si un card processing. e destul de simplut :De

suspect · Iulie 19, 2005

cu aproximatie asta ar fi

<%@LANGUAGE="VBSCRIPT"%>

<% set rsObj = Server.CreateObject("ADODB.Connection")

rsObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=de:\\Site\baza de date\comenzi.mdb"

%>

<html>

<head>

<title>Cumparaturi</title>

</head>

<% ' daca este apasat butonul de recalculare se apeleaza functia de recalculare

if Request.form("re")="Recalc" then

update Request.form("recalc"),request.form("Cant")

end if

%>

<% ' Daca clientul mai vrea sa comande atunci il redirectam spre pagina de produse

if Request.Form("Inapoi")= "Mai vreau sa cumpar!!" then

response.redirect("default.asp")

end if

%>

<% ' Daca clientul doreste sa stearga o inregistrare atunci se apeleaza functia de stergere

if Request.form("Sterge")="Sterge" then

sterge Request.Form("stg")

end if

%>

<pe style="margin-top: 0; margin-bottom: 0"><b><font size="4" face="Arial Blacca">Cosul de

cumparaturi</font></b></pe>

<% AfiseazaTabel() %>

<% if session("norec")>0 then %>

</font>

<pe> <font size="4" face="Arial Blacca">Total Comanda: <% TotalCom() %> </font> </pe>

<% end if%>

</font>

</form>

<pe><font size="4" face="Arial Blacca">Adresa <input type="text" name="adresa" size="20"></font></pe>

<pe><font size="4" face="Arial Blacca">Telefon <input type="text" name="telefon" size="20"></font></pe>

<pe>

</pe>

</form>

<%

if Request.form("Comanda")="Comanda" then

vnume = request.form("nume")

vadresa = request.form("adresa")

vtelefon = request.form("telefon")

vemail = request.form("email")

response.write(vnume & vadresa & vtelefon & vemail)

dim cmd

set cmd = server.createobject("ADODB.Command")

cmd.commandtype = 1

cmd.activeconnection = rsObj

cmd.commandtext = "INSERT INTO Comclienti VALUES('"&CStr(session.sessionID)&"','"&vnume&" "&vadresa&" "&vtelefon&" "&vemail&"',"& session("total")&",1)"

cmd.execute

rsObj.close()

response.redirect("comanda.asp")

end if %>

<% function HandleOnClose()

session.abandon

end function %>

<% function AfiseazaTabel()

set rsCos = Server.CreateObject("ADODB.Recordset")

rsCos.ActiveConnection = rsObj

rsCos.Source = "SELECT * FROM DetaliiCom WHERE idSesiune="&CStr(session.sessionID)

rsCos.Open() %>

</font>

<tr>

<th><font size="4" face="Arial Blacca">Cod Produs</font></th>

<th><font size="4" face="Arial Blacca">Cantitate</font></th>

<th><font size="4" face="Arial Blacca">Pret vanzare</font></th>

<th><font size="4" face="Arial Blacca">total</font></th>

<th><font size="4" face="Arial Blacca">Optiuni</font></th>

</tr>

<% if rsCos.EOF and rsCos.BOF then %>

<pe><font size="4" face="Arial Blacca">NU SUNT PRODUSE COMANDATE</font></pe>

<%session("norec")=0%>

<%else%>

<%session("norec")=0 %>

<% while (not rsCos.EOF) %>

</font>

<tr>

<input type="hidden" value="<%=(rsCos.Fields.Item("Codprod").Value)%>" name="recalc">

</font>

</form>

</td>

</font><font face="Arial Blacca" size="4">

</font>

</form>

</td>

<%session("norec")=session("norec")+1 %>

</tr>

<% rsCos.MoveNext() %>

<%wend %>

<%end if%>

</table>

<% rsCos.close()

end function %>

<% function totalCom

set rsCos = Server.CreateObject("ADODB.Recordset")

rsCos.ActiveConnection = rsObj

rsCos.Source = "SELECT Sum([cant]*[pretv]) AS total, DetaliiCom.idSesiune FROM DetaliiCom GROUP BY DetaliiCom.idSesiune HAVING DetaliiCom.idSesiune="&CStr(session.sessionID)

rsCos.Open()

response.write(rsCos.Fields.Item("total").Value)

session("total")= rsCos.Fields.Item("total").Value

end function

%>

<% sub Update(codp, canti)

dim cmd2

set cmd2 = server.createobject("ADODB.Command")

cmd2.commandtype = 1

cmd2.activeconnection = rsObj

cmd2.commandtext = "UPDATE DetaliiCom SET cant = "&cstr(canti)& " WHERE idsesiune= "&CStr(session.sessionID)& " AND codprod=" & cstr(codp)

cmd2.execute

end sub %>

<% sub sterge(codp)

dim cmd2

set cmd2 = server.createobject("ADODB.Command")

cmd2.commandtype = 1

cmd2.activeconnection = rsObj

cmd2.commandtext = "DELETE FROM DetaliiCom WHERE idsesiune= "&CStr(session.sessionID)& " AND codprod=" & cstr(codp)

cmd2.execute

end sub %>

</font>

</body>

</html>

asta ar fi ceva mai simplu si e doar cosul de cumparaturi , codul asp de la fiecare produs e cam asa :

<html>

<head>

<title>Panoul de comanda</title>

</head>

<pe align="center"><b><font size="5">COMANDA PRODUSE</font></b></pe>

<pe align="left"><b>NOcaIA 6310 CANTITATE <input type="text" name="C1" size="20"><input type="submit" value="Comanda" name="Comanda1"><input type="reset" value="Anuleaza" name="Anuleaza"></b></pe>

<pe align="left"><b>NOcaIA 6610i CANTITATE

<pe align="left"><b>NOcaIA 6800 CANTITATE

<pe align="left"><b>NOcaIA 6810 CANTITATE

<pe align="left"><b>NOcaIA 7250 CANTITATE

<pe align="left"><b>NOcaIA 7250I CANTITATE

<pe align="left"><b>NOcaIA 7260 CANTITATE

<pe align="left"><b>NOcaIA 7270 CANTITATE

<pe align="left"><b>NOcaIA 7280 CANTITATE

<pe align="left"><b>NOcaIA 7600 CANTITATE

<pe align="left"><b>NOcaIA 7610 CANTITATE

<pe align="left"><b>NOcaIA 7650 CANTITATE

</form>

</pe>

</b></pe>

</b></pe>

</form>

<% vsess = Session.sessionID %>

<% if Request.Form("Comanda1")="Comanda" then

vcant = Request.Form("C1")

vpret = 2240000

vcodp = 1

end if

if Request.Form ("Comanda2")="Comanda" then

vcant = Request.Form ("C2")

vpret = 3200000

vcodp = 2

end if

if request.form ("Comanda3")="Comanda" then

vcant = request.form ("C3")

vpret = 6400000

vcodp = 3

end if

if request.form ("Comanda4")="Comanda" then

vcant = request.form ("C4")

vpret = 7350000

vcodp = 4

end if

if request.form ("Comanda5")="Comanda" then

vcant = request.form ("C5")

vpret = 6650000

vcodp = 5

end if

if request.form ("Comanda6")="Comanda" then

vcant = request.form ("C6")

vpret = 8000000

vcodp = 6

end if

if request.form ("Comanda7")="Comanda" then

vcant = request.form ("C7")

vpret = 9600000

vcodp = 7

end if

if request.form ("Comanda8")="Comanda" then

vcant = request.form ("C8")

vpret = 9600000

vcodp = 8

end if

if request.form ("Comanda9")="Comanda" then

vcant = request.form ("C9")

vpret = 17500000

vcodp = 9

end if

if request.form ("Comanda10")="Comanda" then

vcant = request.form ("C10")

vpret = 11200000

vcodp = 10

end if

if request.form ("Comanda11")="Comanda" then

vcant = request.form ("C11")

vpret = 6300000

vcodp = 11

end if

if request.form ("Comanda12")="Comanda" then

vcant = request.form ("C12")

vpret = 8250000

vcodp = 12

end if

%>

<%

if vcant>=1 then

set rsObj = Server.CreateObject("ADODB.Connection")

rsObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=de:\\Site\baza de date\comenzi.mdb"

set rsCos = Server.CreateObject("ADODB.Recordset")

rsCos.ActiveConnection = rsObj

rsCos.Source = "SELECT * FROM DetaliiCom WHERE idSesiune="&CStr(session.sessionID)&" AND codprod="&cstr(vcodp)

rsCos.Open()

%>

<%

if (not rsCos.EOF) then

' Produsul se afla deja in cosul de cumparaturi

response.redirect "cumparaturi.asp"

else

dim cmd

set cmd = server.createobject("ADODB.Command")

cmd.commandtype = 1

cmd.activeconnection = rsObj

cmd.commandtext = "INSERT INTO DetaliiCom VALUES ("&cstr(vsess)&","&cstr(vcodp)&","&cstr(vcant)&","&cstr(vpret)&")"

cmd.execute

response.redirect "cumparaturi.asp"

End If

End if

%>

</body>

</html>

si totul incerci cu o baza de date in access

marius_alcatraz@yahoo.com si iti trimit un exemplu , lam avut ca proiect. ceva simplu doar cod html.

webwriter · Noiembrie 8, 2005

daca mai sunt valabile nelamuririle tale as putea sa te ajut

http://oscommerce.z1.ro

Editat Noiembrie 8, 2005 de roportal

Caramida · Noiembrie 8, 2005

e-facturi.ro

Eu lucrez acum cu ei sa integrez plati online, si pana acum sunt super multumit. Tehnologia seamana izbitor cu cea de la PayPal, dar asta nu ma deranjeaza, chiar imi place, pentru ca am lucrat si cu aia si acum avansez foarte rapid.

Sistemul lor de suport e de nota 10, raspund la orice tichet in maxim o ora. Daca vrei sa te ajut cu alte informatii inainte sa ii contactezi, spune.

bebe123 · Decembrie 26, 2005

Tot ce e romanesc e de kkt... Incearca sa contactezi provideri de plati din afara gen 2chekout.com ...

Autentificare

E-commerce How To...

Postări Recomandate

SilviuB 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

suspect 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

suspect 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

webwriter 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

Caramida 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

bebe123 0

Partajează acest post

Link spre post

Distribuie pe alte site-uri

Creează un cont sau autentifică-te pentru a adăuga comentariu

Creează un cont

Autentificare

Navigare

Activitate