LoadRunner Web应用样例程序订票过程脚本

#include "web_api.h"


Action()
{
lr_start_transaction("登录");


web_url("MercuryWebTours",
"URL=http://localhost/MercuryWebTours/",
"Resource=0",
"RecContentType=text/html",
"Referer=",
"Snapshot=t2.inf",
"Mode=HTML",
LAST);


web_submit_form("login.pl",
"Snapshot=t3.inf",
ITEMDATA,
"Name=username", "Value={username}", ENDITEM,
"Name=password", "Value=111111", ENDITEM,
"Name=login.x", "Value=58", ENDITEM,
"Name=login.y", "Value=14", ENDITEM,
LAST);


lr_end_transaction("登录", LR_AUTO);




lr_rendezvous("同时订票");


lr_start_transaction("业务处理");


web_url("welcome.pl",
"URL=http://localhost/MercuryWebTours/welcome.pl?page=search",
"Resource=0",
"RecContentType=text/html",
"Referer=http://localhost/MercuryWebTours/nav.pl?page=menu&in=home",
"Snapshot=t4.inf",
"Mode=HTML",
LAST);


web_submit_form("reservations.pl",
"Snapshot=t5.inf",
ITEMDATA,
"Name=depart", "Value=London", ENDITEM,
"Name=departDate", "Value=04/11/2007", ENDITEM,
"Name=arrive", "Value=Denver", ENDITEM,
"Name=returnDate", "Value=04/12/2007", ENDITEM,
"Name=numPassengers", "Value=1", ENDITEM,
"Name=roundtrip", "Value=<OFF>", ENDITEM,
"Name=seatPref", "Value=None", ENDITEM,
"Name=seatType", "Value=Coach", ENDITEM,
"Name=findFlights.x", "Value=84", ENDITEM,
"Name=findFlights.y", "Value=15", ENDITEM,
LAST);


web_submit_form("reservations.pl_2",
"Snapshot=t6.inf",
ITEMDATA,
"Name=outboundFlight", "Value=200;338;04/11/2007", ENDITEM,
"Name=reserveFlights.x", "Value=74", ENDITEM,
"Name=reserveFlights.y", "Value=10", ENDITEM,
LAST);


   //此部分您可以进行参数化工作?
web_submit_form("reservations.pl_3",
"Snapshot=t7.inf",
ITEMDATA,
"Name=firstName", "Value=John", ENDITEM,
"Name=lastName", "Value=Tomas", ENDITEM,
"Name=address1", "Value=Peking", ENDITEM,
"Name=address2", "Value=100084", ENDITEM,
"Name=pass1", "Value=John Tomas", ENDITEM,
"Name=creditCard", "Value=", ENDITEM,
"Name=expDate", "Value=", ENDITEM,
"Name=saveCC", "Value=<OFF>", ENDITEM,
"Name=buyFlights.x", "Value=57", ENDITEM,
"Name=buyFlights.y", "Value=12", ENDITEM,
LAST);


lr_end_transaction("业务处理", LR_AUTO);






lr_start_transaction("登出");


web_url("welcome.pl_2",
"URL=http://localhost/MercuryWebTours/welcome.pl?signOff=1",
"Resource=0",
"RecContentType=text/html",
"Referer=http://localhost/MercuryWebTours/nav.pl?page=menu&in=flights",
"Snapshot=t8.inf",
"Mode=HTML",
LAST);


lr_end_transaction("登出", LR_AUTO);


return 0;
}