然后:用asp+iis进行开发
示例代码!
aa.asp
<%@ LANGUAGE = Jscript %>
<html>
<head>
</head>
<body>
<!-- #include file="initial.js" -->
<%
//自编函数,取得操作方式:(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.别忘了给分哦:)