³o¼Æ¤é¤]¦b«ä¦Ò¤@VBScriptªº°ÝÃD¡B
µ²ªG©ú¤é2Óexam¤]¨S¬Ý���¡]¤£¦X®æ¤F���

¡^
¥i¬O¨ºVBSªº§@·~ÁÙ¬O¨S§¹¦¨���
¤p§Ì¤£©úªº¬O«ç昞¥i¦b¤@html¤¤¡B
Âà´«§Oªºpage«á¥iÄ~©Ópage¤¤ªºdata¡C
§Oªº°ÝÃD¬O·s§@ªºpage«ç昞¥i¨Ï¥Îbutton?
¨Ò¡G
¡ÕSCRIPT LANGUAGE="VBScript"¡Ö
Dim inName
Sub newPage
Document.write("Enter name¡ÕBR¡Ö¡Õinput type=""text"" name=""txtName""¡Ö¡ÕBR¡Ö"&_
"¡Õinput type=""button"" name=""btnSub"" value=""Submit"" onClick=""window.record""¡Ö")
End Sub
Sub record
inName = txtName.Value
End Sub
-----------------------------------
𪆒¨Ó·Q¤£¤Fªº°ÝÃD¦³2���
1:¡@inName = txtName.Value
³o¥yÁ`·P¤£¹ï¡B¦]·sªºpage¤£¶H©M³Ìªìªº¦³Ãö¡B
·P¦h¬O°O橺¤£¥i¯à
2:¡@¤£©ú¡@window.record¡@¦ó¬G¤£¹ï���
¤£ª¾¹D«ç昞¥i¨Ï¨ºbutton¥¿½T°Ê§@¡C
¦p½Öª¾¬O«ç§Ëªº¡B½Ð°Ý¥i¤£¥i§U¤p§Ì¨M©w³o°ÝÃD¡C
·PÁÂ