4gl调用web程序代码
#扫描 WHEN "scanning"IF cl_chk_act_auth() THENIF cl_null(g_oga.oga01) THENCALL cl_err('',-400,0) #请先选取欲处理的资料!ELSELET l_url = "http://IP地址:端口号/Scan/ajax.html?user=",g_user CLIPPED,"&prog=cxmt620&order=",g_oga.oga01IF NOT cl_open_url(l_url) THENCALL cl_err_msg(NULL,"lib-052",g_prog CLIPPED||"|"|| g_lang CLIPPED,10)END IFEND IFEND IF
作业特点说明:
1. 通过J2EE实现;
2. 不免费,需购买scanonweb扫描控件去水印;
java代码下载地址:/detail/wahaa591/8645973