山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

b/s开发

楼主luoyefeng（拒绝日货）2002-10-21 11:53:33 在 PowerBuilder / Pb Web 应用提问

系统以前是c/s结构，现在想做成b/s结构，目前有两个想法：pb+java或者纯java开发，但小弟对b/s开发不太熟，请各位不吝赐教，非常感谢问题点数：200、回复次数：14Top

1 楼tj_dns（愉快的登山者）回复于 2002-10-21 12:06:47 得分 20

既然要修改结构，建议采用三层的更好：浏览/应用/数据库。客户端和数据库之间用应用层分开，保证数据库的安全。Top

2 楼balloonman2002（）回复于 2002-10-21 12:37:56 得分 40

PB开发B/S也很方便，：）
同时可以将原有的C/S改成/移植到B/S，利用SYBASE的PBWF，或者CICTRIX系统；可参考http://www.appeon.net/网站；Top

3 楼wangxd（东东）回复于 2002-10-22 19:40:01 得分 0

pb还能开发b/s啊Top

4 楼bombshell（水中鱼）回复于 2002-11-01 08:21:25 得分 0

楼上的大惊小怪了Top

5 楼fuhualgd（北方人）回复于 2002-11-01 09:48:38 得分 120

首先：搭建com+环境

打开组件服务：在控制面板>>管理工具>>组件服务
增加com+服务
点击com+ 应用程序右键选择增加应用程序
创建一下空的应用程序
新建一个组件

选择安装新组件，将pb的pbdwr80.dll,pbdwe80.dll,pbodbc80.dll,pbodbc80.ini,libjcc.dll,pbvm80.dll复制

到一个准备放web datawindow程序的位置如c:\inetpub\wwwroot\webapplication
选择该目录的pbdwr80.dll注册完成

配置系统path在我的电脑环境变量中

将所在前面所放文件路径c:\inetpub\wwwroot\webapplication加入到path中，（以后所有pbl或PBD均放到该目

录）注销或重新启动即可.

然后：用asp+iis进行开发
示例代码！
aa.asp
<%@ LANGUAGE = Jscript %>
<html>
<head>
</head>
<body>

<%
//自编函数，取得操作方式：(insert,delete等)
var actiontest = GetParam("dw_1_action","");
var dw_1_context = GetParam("dw_1_context","");

%>
<%
//创建数据窗口网页
var dw_1 = Server.CreateObject("PowerBuilder.HTMLDataWindow.1.0");
//设置pbl和对应要操作的数据窗口
var retVal = dw_1.SetDWObject('dd_jxgl.pbl', 'd_dd_zjxjh');
//检测返回是否成功
if (retVal != 1)
Response.Write("SetDWObject failed " + retVal );
dw_1.sethtmlobjectname("dw_1");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
//可以显示在不同的浏览器里
dw_1.SetBrowser(browser);
//得到数据连接字符窜
var connStr =psDocument.getConnStr()
retVal = dw_1.settrans("ODBC",connStr, "","","","","") ;
//检索数据窗口
retVal = dw_1.retrieve(); // Retrieve with no parms. //
if (retVal < 0 )
Response.Write("Retrieve failed " + retVal )
else
{
if (actiontest !="")
{
retVal=dw_1.setAction(actiontest,dw_1_context)
//下面大家都能看懂了巴
if (actiontest =='InsertRow'||actiontest =='AppendRow'){
dw_1.SetItemString(retVal,'zt','1');
//dw_1.SetItemString(retVal,'week','20020911');
dw_1.SetItemString(retVal,'Jhlx','W');
}
if (actiontest=='Update') {
dw_1.UpdateEx(true,true);
}
}
dw_1.SetSelfLink('dd_jxjhlb.asp','');
Response.Write(dw_1.generate() );
//Response.Write(actiontest);
//Response.Write(dw_1_context);
}
//Displays DataWindow
%>
<SCRIPT LANGUAGE="JavaScript">
//function dw_1_ButtonClicked(row,buttonName)
//{
//if (buttonName='Send'){
//alert(row);
//alert(buttonName)
//evtResult = _evtDefault(dw_1.UpdateStart ());
//dw_1.restoreFocus();}
//}

function dw_1_RowFocusChanged(NewRow)
{
Row=NewRow - 1
if (dw_1.rows[Row][1] != null)
{
var jh_week=(dw_1.rows[Row][1]);
var jh_bzr=(dw_1.rows[Row][3]);
var jh_bzsj=(dw_1.rows[Row][4]);
var ls_url='dd_jxjhnr.asp?jh_week='+ jh_week+'&jh_bzr='+jh_bzr +'&jh_bzsj='+jh_bzsj;
parent.frDetail.location=ls_url
}
}
</SCRIPT>
</body>
</html>
//如果还不清楚可以互相交流,我还有一些资料，需要的话，发消息或e_mail fuhualgd@163.net.别忘了给分哦：）
Top

6 楼flyhot（阳光清晨）回复于 2002-11-02 16:35:20 得分 0

我也想要一份资料怎么样？
lixinp@vip.sina.com
本人将不肾感激！Top

7 楼balloonman2002（）回复于 2002-11-02 22:35:08 得分 10

据说现在SYBASE停止PBWF服务了；Top

8 楼sarvio（）回复于 2002-11-04 11:29:23 得分 0

why"停止PBWF服务"?Top

9 楼flyhot（阳光清晨）回复于 2002-11-11 17:09:50 得分 0

学习！Top

10 楼fenglaotou（星期天）回复于 2002-11-14 19:18:10 得分 0

gzTop

11 楼yuhe7919（煜荷）回复于 2002-11-14 20:14:49 得分 10

纯java开发好。我也准备将我得系统使用纯java开发。正在研究J2EE技术..............Top

12 楼yellowant（三叶虫）回复于 2002-11-15 20:59:47 得分 0

关注Top