?? web.asp
字號(hào):
<%@ LANGUAGE="JavaScript" %><% Response.Buffer=true %>
<!--#INCLUDE VIRTUAL="/WebApp6/ObjMod.js"--><HTML> <HEAD><TITLE>IIS中的HtmlDataWindow</TITLE></HEAD> <BODY bgcolor="White" >
<%
var retVal
/*建立COM對(duì)象實(shí)例*/
dw_1 = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/*設(shè)置datawindow對(duì)象*/
retVal = dw_1.SetDWObject ("app.pbl", "dw_1")
if (retVal == 1) {
/*設(shè)置控件名稱和瀏覽器 */
retVal = dw_1.SetHTMLObjectName("dw_1");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dw_1.SetBrowser(browser);
/* 每頁顯示5條記錄 */
dw_1.SetPageSize(5);
/* 設(shè)置連接字符串 */
connStr = "ConnectString='DSN=web;UID=dba;PWD=sql',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"
dw_1.setTrans("ODBC", connStr, "", "", "", "", "")
/*獲取數(shù)據(jù) */
retVal = dw_1.retrieve()
if (retVal < 0 ) {
Response.Write("<H1>Retrieve錯(cuò)誤: " + retVal + dw_1.GetLastErrorString()+ "</H1>")
}
/* 生成HTML數(shù)據(jù)窗口 */
Response.Write( dw_1.Generate() );
}
else {
Response.Write ("<H1>SetDWObject() = " + retVal + dw_1.GetLastErrorString() + "時(shí)錯(cuò)誤</H1>")
}
%>
</BODY> </HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -