I need ASP scrip or Converter
I need ASP scrip or Converter
i need the php script of msg send via warid, in ASP or plzz someone give me the converter to chang the PHP code in ASP,plzzzzz
-
- Site Admin
- Posts: 5132
- Joined: Fri May 02, 2003 10:24 am
- Location: Karachi
- Contact:
Re:
farrukh think over itconverter to chang the PHP code in ASP,plzzzzz
imnasir wrote:Sir G,
i say i need the Converter Of PHP 2 ASP ..... plzzz it is ASP 2 PHP
Code: Select all
<%
Dim gv_userName, gv__SESSION(), gv_GetSessID, gv_result, gv_SessionID, gv_GetEngID, gv_EngineID, gv__POST()
session_start();
################Set these Varibale accordingly with valid input data##################
gv_userName = "3214XXXXX"
' Your valid number to login
$pass = "XXXXXXXX"
' Your valid password.
#####################################################Function fn_curly ( lv_page,lv_post )
Dim lv_page, lv_post, lv_url
' multiline comment removed
lv_url = "https://www.waridtel.com/cgi-bin/warid/dev1/warid/"
$ch = curl_init()
curl_setopt($ch, CURLOPT_URL,$url.$page);
curl_setopt($ch, CURLOPT_FAILONERROR, 1);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
curl_setopt($ch, CURLOPT_TIMEOUT, 15);
If $post then
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $post);
End If
curl_setopt($ch, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']);
$result = curl_exec($ch)
curl_close($ch);
fn_curly = $result
End Function
Function fn_valid ( $check )
Dim lv_
If strrpos($check, "BV_SessionID") then
fn_valid = true
Else
fn_valid = false
End If
End Function
#####################Step one getting session ID and Engine ID ###############If gv__SESSION("SessID") == "" then
gv_GetSessID = "/(BV_SessionID=)(.*)(&BV)/i"
$GetEngID = "/(EngineID=)(.*)(&channelId)/i"
gv_result = curly("homepage","")
preg_match(gv_GetSessID, gv_result, gv_SessionID);
preg_match(gv_GetEngID, gv_result, gv_EngineID);
gv__SESSION('SessID') = $SessionID[2]
gv__SESSION('EngID') = $EngineID[2]
gv_result = curly("login", "BV_SessionID=" & $_SESSION["SessID"] & "&BV_EngineID=" & gv__SESSION("EngID") & "&userName=" & gv_userName & "&ndc=" & substr($userName,0,3) & "&userName2=" & substr(gv_userName,3) & "&pass=" & $pass)
If !valid($result) then
die ("Error IN LogIn.")End If
End If
If ($_POST["action"] != "") && (gv__SESSION("SessID") != "") then
gv_result = curly("program","BV_SessionID=" & gv__SESSION("SessID") & "&BV_EngineID=" & gv__SESSION("EngID") & "&mobilelist=&programId=39767&countrycode=92&recipientnumber=&numbersadd=92" & gv__POST("numbersadd") & "&textarea=" & gv__POST("textarea") & "&Connect0=Send+Message&fromPage=web2sms")
If !valid(gv_result) then
die ("Error in Sending SMS.")End If
Response.Write "SMS SENT"
End If
%>
<form name="smsform" method="post" action="<%
=Request.ServerVariables("SCRIPT_NAME")?>">
<input type=hidden name=action value=1>
mobile number without initial 0 : <input type="text" name="numbersadd" value=""> (like 3334253647)<br>
<textarea rows="6" name="textarea" cols="56"></textarea><br>
<input type="submit" value="Send Message" name="Connect0">
</form>