?? web.asp
字號:
<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 + -