ASP Charge 组件的例程

ASP Charge为一组件（又是外国人的），你可以在本网页的组件搜索中找到它。下面是它的一个使用例子。

< html >

< head >

< title >ASPCharge Test Form< /title >

< /head >

< center >

< h1 >ASPCharge Test Form< /h1 >

< /center >

< %if request.servervariables("content_length") >0 Then

Set charger = Server.CreateObject( "ASPCharge.CC" )

charger.ICVerifyCommand = "c:\inetpub\icverify\icverify.cmd"

charger.Logging = "c:\inetpub\icverify"

charger.DataDir = "c:\inetpub\icverify\datadir"

charger.Timeout = 45

charger.Name = Trim(Request("First")) + " " + Trim(Request("Last"))

charger.ProductCode = Trim(Request("Product"))

charger.Address = Trim(Request("Address1"))

charger.City = Trim(Request("City"))

charger.State = Trim(Request("State"))

charger.Zip = Trim(Request("Zip"))

charger.Country = Trim(Request("Country"))

charger.Amount = Trim(Request("Cost"))

charger.CCType = Trim(Request("CCType"))

charger.CCNum = Trim(Request("CCNum"))

charger.CCMonth = Trim(Request("CCMon"))

charger.CCYear = Trim(Request("CCYear"))

charger.TestMode=0

charger.Go()

CCError=charger.LastError

if charger.Cleared = "Y" Then

Response.Write("Thank you," & Request("First") & " for purchasing a " & Request("Product") & ". We appreciate your business.< p >")