First we see such a code:
A simple home page </ title> <script language = "vbscript"> <! - sub button1_onclick msgbox "Welcome" End Sub -> </ script> </ Head> <body> <h3> A simple home page </ h3> <hr> <form> <input name = "button1" type = "button" value = "Click here"> </ form> </ Body> </ html> This is implemented when the button is clicked, the message box is displayed, and the welcome visit is in which a process is defined. The process name contains two parts: button1 is the button name (Name attribute in <input> tag) OnClick is an event name, that is, the Button1's OnClick event is implemented with (_) connections, click the button, Internet Explorer to find and run the corresponding event process, ie Button1_onclick</p>
<p><Input Name = "Button1" Type = "Button" Value = "Click here" OnClick = 'msgbox "Welcome"'> Function call included in single quotes, the string of the MSGbox function is included in the double quotes. Just use a colon (:) to divide the statement, you can make</p>
<p>Use multiple statements.</p>
<p><Script language = "vbscript" Event = "onclick" for = "Button1"> <! - msgbox "Welcome" -> </ script> This method specifies events and controls in the <script> tag, so no Need to use Sub and End Sub statements</p>
<p>Further simple verification <HTML> <HEAD> <TITLE> simple authentication </ TITLE> <SCRIPT LANGUAGE = "VBScript"> <-! Sub button1_OnClickDim TheFormSet TheForm = Document.ValidFormIf IsNumeric (TheForm.Text1.Value) ThenIf TheForm. Text1.Value <1 or theform.text1.value> 10 TENMSGBOX "Please enter a number between 1 and 10." Elsemsgbox "Thank you." End ifelsemsgbox "Please enter a number." End ifend sub -> </ script > </ Head> <body> <h3> Simple Verification </ h3> <hr> <form name = "validform"> Please enter a number between 1 and 10: <input name = "text1" type = "Text "SIZE =" 2 "> <input name =" button1 "type =" button "value =" Submit "> </ form> </ body> </ html> This text box is a simple sample of the VBScript page. The Value property is used to check the input value. To use the Value property of the text box, the code must reference the name of the text box.</p>
<p>The full name should be written each time the text box is referenced, ie Document.validForm.Text1. However, when a form control is used multiple times,</p>
<p>Follow the steps below: First declare a variable, then use the set statement to use the SET statement to save the form document.validform (ID of Form)</p>
<p>To assign the variable Theform, you can use the Theform.Text1 to reference the text box. Conventional assignment statements (such as DIM) are here</p>
<p>Effect, you must use Set to maintain reference to the object.</p>
<p>Receive data back to the server after further implementation</p>
<p><HTML> <HEAD> <TITLE> simple authentication </ TITLE> << SCRIPT LANGUAGE = "VBScript"> <-! Sub button1_OnClickDim TheFormSet TheForm = Document.ValidFormIf IsNumeric (TheForm.Text1.Value) ThenIf TheForm.Text1.Value <1 or theform.text1.value> 10 ThenMsgbox "Please enter a number between 1 and 10." Elsemsgbox "Thank you." Theform.Submit End ifelsemsgbox "Please enter a number." End iFend Sub -> </ script > </ Head> <body> <h3> Simple Verification </ h3> <hr> <form name = "ValidForm" Action = "Page to Submit"> Please enter a number between 1 and 10: <input Name = "text1" type = "text" size = "2"> <input name = "Button1" type = "button" value = "Submit"> </ form> </ body> </ html> subsequent> </ html> SUB. Submit one pointing out that the content of forming Form is to note that if I am tested, if I am tested, if I will change Name = "Button1" to the name = "submit" program, the reason is because Submit is a reserved word. If Type = "Button" is changed to Type = "Submit" Then, regardless of the verification result, the data will be uploaded to the server side.</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-32990.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="32990" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.042</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = '9RqKx2Y_2BPQq5p2O0Fq13Fa0E79PHPGgbDYl7v9X37lzZtldT8mtXCIDDYg5wB9DweNFvVaxblIwoCrZF1wyXUw_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script>
