📄 htmldw_asp.asp
字号:
<%@ LANGUAGE=JavaScript %>
<HTML>
<HEAD><TITLE>Sybase Web DataWindow</TITLE></HEAD>
<BODY>
Sample ASP script to invoke the Web DataWindow with support for data navigation and database updates
<%
var retVal
/* Create instance of the COM object */
dwMine = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/* set datawindow object */
retVal = dwMine.SetDWObject ("test_htmldw.pbl", "d_test_htmldw")
if (retVal == 1) {
/* set control name, browser */
retVal = dwMine.SetHTMLObjectName("dwMine");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dwMine.SetBrowser(browser);
/* allow page navigation, and support for methods that cause page reloads */
var selfLink = Request.ServerVariables("SCRIPT_NAME");
var selfLinkArgs = "name='\"" + dwMine.name + "\"'";
retVal = dwMine.SetSelfLink (selfLink, selfLinkArgs);
/* display 5 rows of data per page */
dwMine.SetPageSize(5);
/* set transaction properties */
connStr = "ConnectString='DSN=webserver;UID=sa;PWD=',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"
dwMine.setTrans("ODBC", connStr, "", "", "", "", "")
/* retrieve the data */
retVal = dwMine.retrieve()
if (retVal < 0 ) {
Response.Write("<H1>Retrieve Error: " + retVal + dwMine.GetLastErrorString()+ "</H1>")
}
/* Check if page parameters (passed from client) indicate that an action needs to be performed */
var dwMine_action = Request.Form("dwMine_action");
var dwMine_context = Request.Form("dwMine_context");
if (dwMine_action + "" != "undefined") {
/* perform the action on the server data */
retVal = dwMine.SetAction (dwMine_action, dwMine_context);
if (retVal < 0 ) {
Response.Write ("<H1>Error on SetAction(): " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
}
/* generate the HTML DataWindow with data */
Response.Write( dwMine.Generate() );
}
else {
Response.Write ("<H1>Error on SetDWObject() = " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -