paip.asp vbs通过CLI命令行调用PHP代码

paip.asp vbs通过CLI命令行调用PHP代码

前几天ASP调用PHP参数传递用的是自定义加密算法，还是想用DES标准加密算法来处理参数。。

与是，想用ASP通过CLI接口来调用本地PHP的DES算法，然后加密后发送往远程的PHP模块。。

然后抓取控制台输出。。

1.主要是以下三行代码调用命令行

  Set  WshShell  =  server.CreateObject("Wscript.Shell")
    commandLine="cmd /c C:\Users\Administrator\Desktop\phprun.bat "&msg&" 

"&key 
    Set oExec = WshShell.Exec(commandLine)
   
2. 先调用BAT文件，phprun.bat。。这个文件主要动作是切换至desApi.php所在目录下，然后

调用PHP。EXE
@d:
@cd "D:\UCenter_1.6.0_SC_UTF8\upload\m_dx\"
@"C:\wamp\bin\php\php5.2.6\php.exe"  -c C:\wamp\bin\apache\apache2.2.8\bin

\php.ini  -f "D:\UCenter_1.6.0_SC_UTF8\upload\m_dx\desApi.php"  %1  %2

3.然后在desApi.php中，代码如下
 $param=$argv[1]; 
 $key=$argv[2]; // "iluvnjyn";
 $val =DES::Encrypt($key,$param);
  echo($val);

----------------在运行ASP Wscript.Shell的时候提示权限不足的解决-------------------
我的是WIN7 ，IIS7.5
先查看进程W3WP的用户，一般是应用程序池的名字一样。。然后把"IIS AppPool\用户名“加入

到ADMIN组里中..这个用户名在用户管理那里隐藏看不到。。不过可以填加进去就OK了。。
然后重启IIS，以应用此账户权限..

参考：IIS7.5中神秘的ApplicationPoolIdentity

 

-------------------------------ASP源码如下---------------------
<%

'for test
desFromPhpResult=""    '返回PHP的DES结果
errMsg=""  '错误控制台输出
stdMsg=""  '标准控制台输出
msg_L715="admin"
key_L715="iluvnjyn"

temp=desFromPhp(msg_L715,key_L715)
if(desFromPhpResult="") then
    Response.Write("err:"&errmsg&"<p>stdout::::"&stdMsg)
else
    Response.Write("sucess::: "&desFromPhpResult)
end if
 %>

<%
'ati 2012.7.18
'SLEEP 单位毫秒
Sub MySleep(mySleepTime)
 Dim myTime
 myTime = Timer()*1000
 
 While Timer()*1000- myTime<mySleepTime
 ' WScript.Echo(Timer()*1000- myTime)
 ' WScript.Echo(vbCrLf)
 Wend 
End Sub

'Call MySleep(200)
'ati 2012.7.18
'返回PHP的DES结果
desFromPhpResult="" 
errMsg=""  '错误控制台输出
stdMsg=""  '标准控制台输出

Function desFromPhp(msg,key)
    'dim key
   ' key="iluvnjyn"
    Set  WshShell  =  server.CreateObject("Wscript.Shell")
    commandLine="cmd /c C:\Users\Administrator\Desktop\phprun.bat "&msg&" 

"&key 
    Set oExec = WshShell.Exec(commandLine)
   
    '等待执行完毕  0为执行中，1为完毕
    Do While oExec.Status = 0    
        Call MySleep(200)
    Loop
   
    errMsg = oExec.StdErr.ReadAll()
    stdMsg = oExec.StdOut.ReadAll()
    If(oExec.exitcode=0) Then 'cmderr:1,phperr:255,ok:0
        desFromPhpResult=stdMsg   
    End If
End Function 
%>