E-commerce How To... | Roportal.ro

SilviuB6 mesajeDum 15 mai 2005 22:16#1

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?!?

suspect13 mesajeMie 20 iul 2005 02:46#2

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

suspect13 mesajeMie 20 iul 2005 02:53#3

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

[email protected] si iti trimit un exemplu , lam avut ca proiect. ceva simplu doar cod html.

webwriter1 mesajeMar 8 nov 2005 18:18#4

daca mai sunt valabile nelamuririle tale as putea sa te ajut

http://oscommerce.z1.ro

Editat Mar 8 nov 2005 20:30

Caramida1 mesajeMie 9 nov 2005 00:07#5

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.

bebe1234 mesajeLun 26 dec 2005 14:13#6

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