?? 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);
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 + -