Shopproblem

4 svar · 294 visningar · startad av Robson 2 juni 2004

RobsonMedlem sedan dec. 2001200 inlägg

2 juni 2004 07:34#1

Hej,

Har köpt en webbshop som jag skall använda inom kort. Har gjort översättningen klar och allt funkar som det skall. MEN, jag vill ta bort kreditkortsfunktionen i scriptet. Har provat det mesta men det skiter sig...

Betalningsproceduren är som följer:

Man befinner sig på sidan checkout.asp där man fyller i alla sina uppgifter. Även kreditkortsinformationen. De indatafälten är ju enkla att ta bort. Men på nästa sida efterfrågas dessa. (validateorder.asp)

Har försökt att ta bort allt som rör kreditkort även där men missar något hela tiden!!!

Kan man på ett halvenkelt sätt förutbestämma de värden som skall skrivas in på sidan checkout.asp.

Validateorder.asp ser ut som följer, en del av den:

                strShipMethod = Request.Form("strShipMethod")
	strCcType = Request.Form("strCcType")
	cctype = Request.Form("strCcType")
	strNameOnCc = Request.Form("strNameOnCc")
	dtmCcExpire = Request.Form("dtmCcExpire")
	strCcNumber = Request.Form("strCcNumber")
	number = Request.Form("strCcNumber")
	strCcBillAddress = Request.Form("strCcBillAddress")

Hur gör man för att byta ut t ex: ("strCcType") mot Mastercard.
Och att låta värdet som efterfrågas i t ex ("strCcNumber") alltid vara ett som jag hittar på??

Någon som fattar vad jag menar????

@ndersMedlem sedan juni 200032 969 inlägg

2 juni 2004 07:39#2

strCcType = "Mastercard"
strCcNumber = "23480238402834"

Eller? ? ????

RobsonMedlem sedan dec. 2001200 inlägg

2 juni 2004 07:49#3

Har testat det utan framgång. Skickar med hela koden ner till där jag tror att man skall ändra.

<%@ Language=VBScript %>
<%

Sub WriteHTML(strInput)
	Response.Write(Server.HTMLEncode(strInput) & "<BR>")
End Sub
%>
<% pageTitle = "Validate Order" %>
<!--#include file="adovbs.inc"-->
<!--#include file="db.asp"-->
<!--#include file="checkcc.asp"-->         (DETTA ÄR EN FIL SOM KOLLAR UPPGIFTERNA)
<!--#include file="crypt/rc4.asp"-->       (DETTA ÄR EN KRYPTERINGFIL)
<%
'displays header on form field validation pages
function displayHeader()
	Response.Write "<html>"
	Response.Write "<head>"
	Response.Write "<body>"
	Response.Write "<table border='0'>"
	Response.Write "<tr>"
    Response.Write "<td valign='middle' nowrap>"
    Response.Write "<img border='0' height='64' src='images/eshopV8.gif' width='249'>" & "<br><br>"
    Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "<hr color='#cccccc' size='1' noshade>"
	Response.Write "<div align = 'center'>"
end function

'Validate user entries in form fields and generate error pages
For Each key in Request.Form
		strName = key
		strValue = Request.Form(key)
		Session(strName) = strValue
	Next

	strFirst = Request.Form("strFirst")
	strLast = Request.Form("strLast")
	strEmail = Request.Form("strEmail")
	strAddress1 = Request.Form("strAddress1")
	
	strCity = Request.Form("strCity")
	strState = Request.Form("strState")
	strPostalCode = Request.Form("strPostalCode")
	strCountry = Request.Form("strCountry")
	strPhone = Request.form("strDialCode") & "." & Request.form("strAreaCode")& "." & Request.form("strPhoneNumber")
	strAreaCode = Request.form("strAreaCode")
	strDialCode = Request.form("strDialCode")
	strPhoneNumber = Request.form("strPhoneNumber")
	strState = Request.Form("strState")
	
	strShipMethod = Request.Form("strShipMethod")
	strCcType = Request.Form("strCcType")
	cctype = Request.Form("strCcType")
	strNameOnCc = Request.Form("strNameOnCc")
	dtmCcExpire = Request.Form("dtmCcExpire")
	strCcNumber = Request.Form("strCcNumber")
	number = Request.Form("strCcNumber")
	strCcBillAddress = Request.Form("strCcBillAddress")

"checkcc.asp" och "crypt/rc4.asp" har jag testat att ta bort men det skiter sig även det...

Kanske kan man skriva din kod @nders sist i sidan innan, checkout.asp ????

RobsonMedlem sedan dec. 2001200 inlägg

2 juni 2004 08:07#4

Om man tar bort indatafälten i checkout.asp och skriver in de värden som eftersöks, borde det funka?

<%
                strCcType = Request.Form("strCcType")
	cctype = Request.Form("strCcType")
	strNameOnCc = Request.Form("strNameOnCc")
	dtmCcExpire = Request.Form("dtmCcExpire")
	strCcNumber = Request.Form("strCcNumber")
	number = Request.Form("strCcNumber")
	strCcBillAddress = Request.Form("strCcBillAddress")
%>

De värden som skall in (testvärden) är:

Korttyp: Mastercard
Kortnr: 5500 0000 0000 0004
Datum: 06/06
Namn: John Smith
Adress: Avenue + 54321

RobsonMedlem sedan dec. 2001200 inlägg

2 juni 2004 09:47#5

Om man tar bort indatafälten i checkout.asp och skriver in de värden som eftersöks, borde det funka?

<%
                strCcType = Request.Form("strCcType")
	cctype = Request.Form("strCcType")
	strNameOnCc = Request.Form("strNameOnCc")
	dtmCcExpire = Request.Form("dtmCcExpire")
	strCcNumber = Request.Form("strCcNumber")
	number = Request.Form("strCcNumber")
	strCcBillAddress = Request.Form("strCcBillAddress")
%>

De värden som skall in (testvärden) är:

Korttyp: Mastercard
Kortnr: 5500 0000 0000 0004
Datum: 06/06
Namn: John Smith
Adress: Avenue + 54321