📄 web.asp
字号:
<%@ LANGUAGE="JavaScript" %><% Response.Buffer=true %>
<!--#INCLUDE VIRTUAL="/WebApp6/ObjMod.js"--><HTML> <HEAD><TITLE>IIS中的HtmlDataWindow</TITLE></HEAD> <BODY bgcolor="White" >
<%
var retVal
/*建立COM对象实例*/
dw_1 = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/*设置datawindow对象*/
retVal = dw_1.SetDWObject ("app.pbl", "dw_1")
if (retVal == 1) {
/*设置控件名称和浏览器 */
retVal = dw_1.SetHTMLObjectName("dw_1");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dw_1.SetBrowser(browser);
/* 每页显示5条记录 */
dw_1.SetPageSize(5);
/* 设置连接字符串 */
connStr = "ConnectString='DSN=web;UID=dba;PWD=sql',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"
dw_1.setTrans("ODBC", connStr, "", "", "", "", "")
/*获取数据 */
retVal = dw_1.retrieve()
if (retVal < 0 ) {
Response.Write("<H1>Retrieve错误: " + retVal + dw_1.GetLastErrorString()+ "</H1>")
}
/* 生成HTML数据窗口 */
Response.Write( dw_1.Generate() );
}
else {
Response.Write ("<H1>SetDWObject() = " + retVal + dw_1.GetLastErrorString() + "时错误</H1>")
}
%>
</BODY> </HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -