作者 主題: vbscript syntax to HTML tag  (閱讀 5142 次)

0 會員 與 1 訪客 正在閱讀本文。

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
vbscript syntax to HTML tag
« 於: 2005-09-30 15:18 »
容小徒在這整理一下 vb script 設定 html tag attribute

http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/dhtml_reference_entry.asp


***frame 裡的hyperlink
<A href="../NewIssue.htm" target="_parent" class=navitem>




<SCRIPT language=JavaScript>
<!--
document._domino_target = "_self";
function _doClick(v, o, t) {
  var url="/custsupt/k%26ssuppt.nsf/IssueView2?OpenView&Click=" + v;
  if (o.href != null)
    o.href = url;
  else {
    if (t == null)
      t = document._domino_target;
    window.open(url, t);
  }

}
// -->
</SCRIPT>


***asp 使用者登入成功後,message box顯現, alert javascript

<%
確認pass
%>
<script>alert('you pass');
location.href ='vote.asp';
</script>
<%else %>
<script>alert('no pass')</script>
<%end if%>


------------
<script>alert('pass');
document.main.action='kk.asp';document.main.submit()




如果是fram裡面的,想要控制外面的window
代碼: [選擇]

javascript
<script LANGUAGE="JavaScript">
function Deletecookie(obj) //清除COOKIE
{
window.parent.location.href=window.parent.location.href;
}

<img src="images/link2.JPG" alt="MSDN" width="74" height="23" border="0" align="right" onclick="Deletecookie(this.form)" onMouseOver="document.body.style.cursor='hand';this.src='images/link3.JPG'" onMouseOut="this.src='images/link2.JPG'">



代碼: [選擇]

不斷行空白
&nbsp;
斷行空白
<br>

* document.all("img01").alt ="我是圖上的提示"
* document.all("radio1")(0).checked = true
* document.all("Text9").value ="<%=Session("Text9")%>"
* document.all("label3").innerHtml ="<%=Session("Text3")%>"
* document.all("div1").style.visibility="visible"  
* document.all("checkbox1").disabled="false"
* document.all("text5_b1").style.display="none"
* document.all("text6").readonly="true"

*<input type="hidden" name="txtMode" value="0">



*checkbox傳值
strValue = rstHR002("checkbox6").value & ""                      
  if ( strValue="0") then                                        
       document.all("checkbox6").checked = true                  
  else                                                            



***hmtl checkbox
 <input type="checkbox" name="checkbox1" id="checkbox1" value="0">

***checkbox 存值
if (document.all("checkbox1").checked) then
       strValue = document.all("checkbox1").value
     rstGVM005("checkbox1").value = trim(strValue)
End if

***checkbox 取值
strValue = rstGVM005("checkbox1").value & ""
   if (document.all("checkbox1").value = strValue) then
       document.all("checkbox1").checked = true
   else
       document.all("checkbox1").checked = false
   end if


靠右
代碼: [選擇]

<table>
<tr>
    <th scope="row">&nbsp;</th>
    <td 50%><div align="right">test</div></td>
    <td>&nbsp;</td>
  </tr>

</table>

抓出select MIS003006中被選取的text
*For Each objOption in document.all("MIS003006").Options
        If objOption.Selected Then
            selectedText = objOption.InnerText
        End If
Next

抓出select MIS003006中被選取的text
*document.all("MIS003006").value


一次把多個checkbox disabled
代碼: [選擇]


For I=1 To 17

dim tmpstr
tmpstr="checkbox" & i
document.all(tmpstr).disabled="true"

Next



代碼: [選擇]

<div id='div0' style='visibility=hidden'>
<div style='Position:absolute; top: 105px; left: 175px; width:  97px; height:  20px '><input style='visibility=visible' id='radio1' name='radio1' value='交易服務組1' type=radio  >交易服務組1</div>
<div style='Position:absolute; top: 125px; left: 175px; width:  97px; height:  20px '><input id='radio1' name='radio1' value='交易服務組2' type=radio  >交易服務組2</div>
<div style='Position:absolute; top: 145px; left: 175px; width:  97px; height:  20px '><input id='radio1' name='radio1' value='交易服務組3' type=radio  >交易服務組3</div>
</div>



代碼: [選擇]

<div style='Position:absolute; top: 161px; left:  56px; width:  52px; height:  20px '><input id='checkbox1' name='checkbox1' value='0' type=checkbox  ></div>



***text 要用 Readonly
<input type="text" id="efstc003" name="efstc003" class="T1" style="HEIGHT: 20px; LEFT:  98px; TOP: 63px; WIDTH: 130px" Readonly>

***checkbox 要用disable
 <input id='checkbox15' name='checkbox15' value='0' type=checkbox  Disabled>


<input class=FieldData2 id='employid' name='employid' style='Position:absolute; top:  50px; left: 140px; width:  70px; height:  17px ' Readonly>




代碼: [選擇]


sub checkbox1_onclick()
If (Checkbox1.checked = True) Then
document.all("div4").style.visibility="visible"  
else
document.all("div4").style.visibility="hidden"  
        document.all("divclosedate").style.visibility="hidden"  
        document.all("divpendingdate").style.visibility="hidden"  
        document.all("divpendingdate2").style.visibility="hidden"  

end if
end sub



function statement

代碼: [選擇]


Function  checkmonth(strDate)

     if strDate="" then
        checkmonth=true
        Exit Function
     end if


     if IsNumeric(strDate) and strDate>=1 and strDate<=12 then
      checkmonth=true
     else
      checkmonth=false
     end if
   

end Function



使用function statement
代碼: [選擇]

if checkmonth(document.all("text18").value) and checkmonth(document.all("text30").value) and checkmonth(document.all("text42").value) and checkmonth(document.all("text54").value) then

else
strErr = strErr & "請填入有效月份." & chr(13)
end if

if (strErr = "") then
document.all("sysCheckFieldData").value = "true"
else
document.all("sysCheckFieldData").value = "false"
msgbox strErr, vbExclamation, "錯誤"
exit sub
end if






存資料
代碼: [選擇]

For i=1 To 36
   
   dim tmpstr
   tmpstr="text" & i
   rstGVM004H(tmpstr).value = trim(document.all(tmpstr).value)
Next

For j=1 To 8
   dim strValue
   dim tmpstr2                
   tmpstr2="checkbox" & j
   
   if (document.all(tmpstr2).checked) then
   strValue = document.all(tmpstr2).value
   rstGVM004H(tmpstr2).value = trim(strValue)
   End if

Next



取資料
代碼: [選擇]

For I=1 To 36
   dim tmpstr
   tmpstr="text" & i
   document.all(tmpstr).value = rstGVM004H(tmpstr).value & ""
Next

dim strValue
For I=1 To 8
    dim tmpstr2                
    tmpstr2="checkbox" & i
    strValue = rstGVM004H(tmpstr2).value & ""
   if (document.all(tmpstr2).value = strValue) then
    document.all(tmpstr2).checked = true
       else
    document.all(tmpstr2).checked = false
       end if
Next


有新的會加上去  8)

學飛的小鳥

  • 活潑的大學生
  • ***
  • 文章數: 349
    • 檢視個人資料
vbscript syntax to HTML tag
« 回覆 #1 於: 2005-10-01 01:02 »
建議改用 document.getElementById("xxx")...
可以相容於其他的瀏覽器 :wink:

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
欄位驗證區
« 回覆 #2 於: 2005-10-03 10:36 »
代碼: [選擇]

<script LANGUAGE="JavaScript">
var nowfieldname;
document.onkeypress = keyhandler;

function keyhandler(e) {

Key = window.event.keyCode;
        if (Key == 13){
       
if (nowfieldname == "phone") {
       
        var r, re;                     //Declare variables.
    var s = document.all.phone.value;
    var data1= s.match(/^\d{2,5}-\d{1,4}-\d{4}$|^[0-9-]{6,9}$|^[0-9-]{12}$|^\d{1,4}-\d{4}$/);
    if (!data1) { alert("請輸入正確格式之電話號碼");
    document.all.phone.focus();  
    document.all.phone.select();
    }
    else
    {
     document.all.phoneExt.focus();        
    }
      }



if (nowfieldname == "mobil") {
       
        var r, re;                     //Declare variables.
    var s = document.all.mobil.value;
    var data1= s.match(/^\d{10}$/);
    if (!data1) { alert("請輸入正確格式之手機號碼");
    document.all.mobil.focus();  
    document.all.mobil.select();
    }
    else
    {
   
    }
      }      

if (nowfieldname == "efsty008") {
       
        var r, re;                     //Declare variables.
    var s = document.all.efsty008.value;
    var data1= s.match(/^\d{4}$/);
    if (!data1) { alert("請輸入正確格式之員工編號");
    document.all.efsty008.focus();  
    document.all.efsty008.select();
    }
    else
    {
    document.all.fax.focus();
    }
      }      

 }

function showFocus (field) {
   nowfieldname = field;
   //window.status = nowfieldname + field + " has focus";
   }
</script>


小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
asp 與 vb script 互動區
« 回覆 #3 於: 2005-10-03 10:39 »
<% If Session("FormStatus") = "Create"  Then %>
   Dim Subject
                Subject="test"

   If window.parent.frames("xxx").document.all("Subject").value ="" Then
      window.parent.frames("xxx").document.all("Subject").value = Subject
   End If    
<%End If%>