<%@ Language=VBScript %>

<%

DIM oLogonControl

DIM oBapiControl

DIM oConn

DIM oCompanyCode

Dim otabCompanyCodes

Dim oReturn

Dim oCol

Dim oRow

DIM ITAB

DIM ofun

DIM func

DIM icall

dim i

sub Main()

’set oBapiControl=CreateObject(”SAP.BAPI.1″)

set oLogonControl=CreateObject(”SAP.LogonControl.1″)

set oConn=oLogonControl.NewConnection

oConn.ApplicationServer=”ipaddress” ‘ip地址

oConn.System=”00″ ‘系统编号

oConn.Client=”600″ ‘系统

oConn.User=”USER” ‘用户名

oConn.Password=”PASSWORD” ‘密码

oConn.Language=”EN”

retcd=oConn.Logon(0,true)

Response.Write(retcd)

Response.Write(”
”)

if(retcdtrue)then

Response.Write(”no logon”)

stop

else