線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1186
推到 Plurk!
推到 Facebook!

請教showmessage

尚未結案
dream
一般會員


發表:11
回覆:11
積分:4
註冊:2002-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-24 20:37:59 IP:219.84.xxx.xxx 未訂閱
請教各位先進 delphi的web form是否有像delphi win32底下的showmessage
kartan_01
一般會員


發表:42
回覆:60
積分:20
註冊:2004-12-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-27 08:52:11 IP:61.221.xxx.xxx 未訂閱
就我知道是沒有 要利用javascript literal ='[script]' #13; =javascript 'alert(''NG'')'; =javascript '[/script]' #13; self.Literal1.Text:=javascript 請把[]換成<> 發表人 - kartan_01 於 2004/12/27 08:57:24
eric039
中階會員


發表:57
回覆:126
積分:51
註冊:2002-11-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-28 11:32:22 IP:211.75.xxx.xxx 未訂閱
那請問要如何將 Literal 裡面的 Script 啟動?? Eric Lin
------
Eric Lin
kartan_01
一般會員


發表:42
回覆:60
積分:20
註冊:2004-12-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-28 12:21:22 IP:61.221.xxx.xxx 未訂閱
我的方法是利用 visible來控制 visible=true 啟動 visible=false 關閉
eric039
中階會員


發表:57
回覆:126
積分:51
註冊:2002-11-30

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-28 14:30:28 IP:211.75.xxx.xxx 未訂閱
那可以請問 Literal 的運作方式 或是它的工作原理是怎樣 可以運用在哪邊 Eric Lin
------
Eric Lin
dream
一般會員


發表:11
回覆:11
積分:4
註冊:2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-12-29 16:33:36 IP:219.84.xxx.xxx 未訂閱
引言: 就我知道是沒有 要利用javascript literal ='[script]' #13; =javascript 'alert(''NG'')'; =javascript '[/script]' #13; self.Literal1.Text:=javascript 請把[]換成<> 發表人 - kartan_01 於 2004/12/27 08:57:24
感謝kartan_01兄的回答^^ 如果我是要在資料儲存時,要去檢查資料是否重覆, 重覆時,就出現錯誤訊息的對話框 之前是用一個label來顯示,但這個做法不像win32底下,出現對話框的好 所以想看各位有沒有較好的解決方式
kartan_01
一般會員


發表:42
回覆:60
積分:20
註冊:2004-12-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-12-30 09:07:27 IP:61.221.xxx.xxx 未訂閱
拋磚引玉...... 我的作法是 先寫好Javascript self.Literal1.Text:=javascript Literall.visible預設為False 判斷是否發生錯誤 是:Literall.visible:=True; 這樣就會啟動javascript
kartan_01
一般會員


發表:42
回覆:60
積分:20
註冊:2004-12-08

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-12-30 09:19:18 IP:61.221.xxx.xxx 未訂閱
引言: 那可以請問 Literal 的運作方式 或是它的工作原理是怎樣 可以運用在哪邊 Eric Lin
可以利用literal將純文字或HTML標註加入網頁
Literal1.Text:='
<"h1">HELLO<"/h1">
'
請將""去除 發表人 - kartan_01 於 2004/12/30 09:26:13
shieh2700
高階會員


發表:0
回覆:127
積分:100
註冊:2002-06-13

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-12-30 10:27:09 IP:211.76.xxx.xxx 未訂閱
參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47519    
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  msg : string;
begin
  msg := 'alert("#MSG#")';
  msg := msg.Replace('#MSG#',TextBox1.Text);
  Page.RegisterStartupScript('TEST',msg);
end;
系統時間:2024-07-02 14:38:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!