📄 web.asp
字号:
<HTML> <HEAD><TITLE>在IIS中对HtmlDataWindow进行数据操作</TITLE></HEAD> <BODY bgcolor="White" >
<%
var retVal
/*建立COM对象实例*/
dwMine = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/*设置datawindow对象*/
retVal = dwMine.SetDWObject ("app.pbl", "dw_main")
if (retVal == 1) {
/*设置控件名称和浏览器 */
retVal = dwMine.SetHTMLObjectName("dwMine");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dwMine.SetBrowser(browser);
/* 允许自链接，从而进行Web页面上的窗口操作 */
var selfLink = Request.ServerVariables("SCRIPT_NAME");
var selfLinkArgs = "name='\"" + dwMine.name + "\"'";
retVal = dwMine.SetSelfLink (selfLink, selfLinkArgs);
/* 每页显示1条记录 */
dwMine.SetPageSize(1);
/* 设置连接字符串 */
connStr = "ConnectString='DSN=web;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 + -