📄 htmldw2.asp
字号:
<%@ LANGUAGE=JavaScript %>
<HTML>
<HEAD><TITLE>使用ASP与MTS实现的 Web DataWindow</TITLE></HEAD>
<BODY>
使用ASP与MTS实现的 Web DataWindow
<%
var retVal
/*创建COM实例*/
dwMine = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/*设置Datawindow对象*/
retVal = dwMine.SetDWObject ("test_htmldw.pbl", "d_customer")
if (retVal == 1) {
/*设置控件名字与浏览器*/
retVal = dwMine.SetHTMLObjectName("dwMine");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dwMine.SetBrowser(browser);
/*允许数据的导航*/
var selfLink = Request.ServerVariables("SCRIPT_NAME");
var selfLinkArgs = "name='\"" + dwMine.name + "\"'";
retVal = dwMine.SetSelfLink (selfLink, selfLinkArgs);
/*设置每页显示5行数据*/
dwMine.SetPageSize(10);
/*设置事务对象属性*/
connStr = "ConnectString='DSN=webserver;UID=sa;PWD=',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"
/*connStr = "ConnectString='DSN=EAS Demo DB V3;UID=dba;PWD=sql',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"*/
dwMine.setTrans("ODBC", connStr, "", "", "", "", "")
/*读取数据*/
retVal = dwMine.retrieve()
if (retVal < 0 ) {
Response.Write("<H1>读取数据时出错： " + retVal + dwMine.GetLastErrorString()+ "</H1>")
}
/*监察客户端发出的Page参数，已决定是否采取相应的动作*/
var dwMine_action = Request.Form("dwMine_action");
var dwMine_context = Request.Form("dwMine_context");
if (dwMine_action + "" != "undefined") {
/*在服务器端执行动作*/
retVal = dwMine.SetAction (dwMine_action, dwMine_context);
if (retVal < 0 )
{
Response.Write ("<H1>Error on SetAction(): " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
}
/*生成带有数据的HTML Datawindow*/
Response.Write( dwMine.Generate() );
}
else {
Response.Write ("<H1>在SetDWObject()时出错，错误代码： " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -