?? web.asp
字號:
<HTML> <HEAD><TITLE>在IIS中對HtmlDataWindow進(jìn)行數(shù)據(jù)操作</TITLE></HEAD> <BODY bgcolor="White" >
<%
var retVal
/*建立COM對象實(shí)例*/
dwMine = Server.CreateObject("PowerBuilder.HTMLDataWindow");
/*設(shè)置datawindow對象*/
retVal = dwMine.SetDWObject ("app.pbl", "dw_main")
if (retVal == 1) {
/*設(shè)置控件名稱和瀏覽器 */
retVal = dwMine.SetHTMLObjectName("dwMine");
var browser = Request.ServerVariables("HTTP_USER_AGENT");
dwMine.SetBrowser(browser);
/* 允許自鏈接，從而進(jìn)行Web頁面上的窗口操作 */
var selfLink = Request.ServerVariables("SCRIPT_NAME");
var selfLinkArgs = "name='\"" + dwMine.name + "\"'";
retVal = dwMine.SetSelfLink (selfLink, selfLinkArgs);
/* 每頁顯示1條記錄 */
dwMine.SetPageSize(1);
/* 設(shè)置連接字符串 */
connStr = "ConnectString='DSN=web;UID=dba;PWD=sql',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_NOPROMPT'"
dwMine.setTrans("ODBC", connStr, "", "", "", "", "")
/*獲取數(shù)據(jù) */
retVal = dwMine.retrieve()
if (retVal < 0 ) {
Response.Write("<H1>讀取數(shù)據(jù)時(shí)出錯(cuò)： " + retVal + dwMine.GetLastErrorString()+ "</H1>")
}
/*監(jiān)察客戶端發(fā)出的Page參數(shù)，來決定是否采取相應(yīng)的動作*/
var dwMine_action = Request.Form("dwMine_action");
var dwMine_context = Request.Form("dwMine_context");
if (dwMine_action + "" != "undefined") {
/*在服務(wù)器端執(zhí)行動作*/
retVal = dwMine.SetAction (dwMine_action, dwMine_context);
if (retVal < 0 )
{
Response.Write ("<H1>Error on SetAction(): " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
}
/*生成帶有數(shù)據(jù)的HTML Datawindow*/
Response.Write( dwMine.Generate() );
}
else {
Response.Write ("<H1>在SetDWObject()時(shí)出錯(cuò)，錯(cuò)誤代碼： " + retVal + dwMine.GetLastErrorString() + "</H1>")
}
%>
</BODY> </HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -