📄 new_page_1.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!

💻 HTM

字号:

<html>
<head>
<title>New Page 1</title>
<script LANGUAGE="VBScript" >
<!--
   dim adjhtml,adjtext
   adjhtml="<I>现在测试《div》样式的insertAdjacentHTML方法</I>" 
   adjtext="<I>现在测试《div》样式的insertAdjacentText方法</I>" 
   sub img0_onclick
   		divshow.innerText="<b>现在测试《div》>样式的innertext属性</b>"
   end sub
    sub img1_onclick
   		divshow.innerHTML ="<b>现在测试《div》样式的innerHTML属性</b>"
   end sub
   sub img2_onclick
   		divshow.insertAdjacentHTML "beforebegin",adjhtml
   end sub
    sub img3_onclick
   		divshow.insertAdjacentText "afterbegin",adjtext
   end sub
   sub button_onclick
		if trim(thisform.adjtext.value)<>"" then
			adjtext="<I>"& trim(thisform.adjtext.value)&"</I>"
		end if
		if trim(thisform.adjhtml.value)<>"" then
			adjhtml="<I>"& trim(thisform.adjhtml.value)&"</I>"
		end if
   end sub
-->
</script>
</head>

<body  bgcolor=NavajoWhite>
<form id=thisform  action="new_page_1.htm">
<p><center>
	单击每个图片看看结果你就知道
</center></p>
<table border=2 width="100%">
<tr>
	<td width="20%" valign="center" align="middle">
	<img id=img0 src="1.gif"></td>
	<td width="20%"  valign="center" align="middle">
	<img id=img1 src="2.gif"></td>
	<td width="20%" valign="center" align="middle">
	<img id=img2 src="3.gif"></td>
	<td width="20%"  valign="center" align="middle">
	<img id=img3 src="4.gif"></td>
</tr>
</table>
<br><br>
<p><center><h3>
	请输入修改插入网页和文本的信息
</h3></center></p>
<table border=0 width="100%" height="54">
<tr>
	<td width=40% align=right>文本：</td>
	<td><input id=adjtext></td>
</tr>
<tr>
	<td width=40% align=right>网页：</td>
	<td><input id=adjhtml></td>
</tr>
</table>
<center>
	<input type=button id=button value="提交修改">
	<INPUT type="submit" value="刷新页面" id=submit1>
</center>
<br><br>
<div id=divshow size=30></div> 
</form>
</body> 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -