在浏览器里实现类似VB Form的界面控制
新客网 XKER.COM 2003-07-11 来源： 收藏本文
在浏览器里很容易实现类似VB Form的文本框,按钮等控制
主要用到 keydown,keyup,keypress 等事件
对按键的捕获使用 window 对象的子对象 event 的 keycode 属性
以下代码仅供参考:
<%@ Language=VBScript %>
<% ' By Chen Kang
' Any Problem please email to
' chenkang@chenkang.com
' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>
<HTML>
<HEAD>
<META name=VI60_DTCScriptingPlatform content="Client (IE 4.0 DHTML)">
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub btnOK_onclick()
dim rtnValue
set rtnValue = logon.execute.CheckPasswd(thisForm.txtUserID.value,thisForm.txtPasswd.value)
select case rtnValue.return_value
case 0
'密码正确,转其他程序
'Blahlah
case 1
msgbox("登录号错误，请重新输入！")
'set highlight
set highLight = thisForm.txtUserID.createTextRange
highLight.select
'set focus
thisForm.txtUserID.focus
case 2
msgbox("密码错误，请重新输入！")
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
case 3
msgbox("该用户已在别的工作站登录，请重新输入！")
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
end select
End Sub
Sub txtUserID_onKeyup()
'如果是回车键或下箭头
if window.event.keyCode=13 or window.event.keyCode=40 then
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
end if
End Sub
Sub txtPasswd_onKeyup()
if window.event.keyCode=13 or window.event.keyCode=40 then
thisForm.btnOK.focus
end if
'如果是上箭头
if window.event.keyCode=38 then
set highLight = thisForm.txtUserID.createTextRange
highLight.select
thisForm.txtUserID.focus
end if
End Sub
Sub window_onload
thisForm.txtUserID.focus
End Sub
-->
</SCRIPT>
<P align=center>操作员登录号:
<INPUT id=txtUserID name=txtUserID maxLength=2 style="HEIGHT: 21px; WIDTH: 142px">
<br>
操作员 密码:
<INPUT id=txtPasswd name=txtPasswd maxLength=4 style="HEIGHT: 21px; WIDTH: 142px" type=password>
<br>
</P>
<P align=center>
<INPUT id=btnOK name=btnOK align=center type=button value="确认" style="COLOR: darkslategray; FONT-SIZE: larger; FONT-STYLE: normal; FONT-WEIGHT: bold; HEIGHT: 35px; WIDTH: 86px">
</P>
</BODY>
<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</FORM>
</HTML>
主要用到 keydown,keyup,keypress 等事件
对按键的捕获使用 window 对象的子对象 event 的 keycode 属性
以下代码仅供参考:
<%@ Language=VBScript %>
<% ' By Chen Kang
' Any Problem please email to
' chenkang@chenkang.com
' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>
<HTML>
<HEAD>
<META name=VI60_DTCScriptingPlatform content="Client (IE 4.0 DHTML)">
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub btnOK_onclick()
dim rtnValue
set rtnValue = logon.execute.CheckPasswd(thisForm.txtUserID.value,thisForm.txtPasswd.value)
select case rtnValue.return_value
case 0
'密码正确,转其他程序
'Blahlah
case 1
msgbox("登录号错误，请重新输入！")
'set highlight
set highLight = thisForm.txtUserID.createTextRange
highLight.select
'set focus
thisForm.txtUserID.focus
case 2
msgbox("密码错误，请重新输入！")
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
case 3
msgbox("该用户已在别的工作站登录，请重新输入！")
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
end select
End Sub
Sub txtUserID_onKeyup()
'如果是回车键或下箭头
if window.event.keyCode=13 or window.event.keyCode=40 then
set highLight = thisForm.txtPasswd.createTextRange
highLight.select
thisForm.txtPasswd.focus
end if
End Sub
Sub txtPasswd_onKeyup()
if window.event.keyCode=13 or window.event.keyCode=40 then
thisForm.btnOK.focus
end if
'如果是上箭头
if window.event.keyCode=38 then
set highLight = thisForm.txtUserID.createTextRange
highLight.select
thisForm.txtUserID.focus
end if
End Sub
Sub window_onload
thisForm.txtUserID.focus
End Sub
-->
</SCRIPT>
<P align=center>操作员登录号:
<INPUT id=txtUserID name=txtUserID maxLength=2 style="HEIGHT: 21px; WIDTH: 142px">
<br>
操作员 密码:
<INPUT id=txtPasswd name=txtPasswd maxLength=4 style="HEIGHT: 21px; WIDTH: 142px" type=password>
<br>
</P>
<P align=center>
<INPUT id=btnOK name=btnOK align=center type=button value="确认" style="COLOR: darkslategray; FONT-SIZE: larger; FONT-STYLE: normal; FONT-WEIGHT: bold; HEIGHT: 35px; WIDTH: 86px">
</P>
</BODY>
<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</FORM>
</HTML>
最新相关文章- ·ASP+ACCESS数据库中文乱码问题解决
- ·编程实例 字母+数字验证码程序
- ·ASP连接数据库错误解决办法新法
- ·初学:ASP内建对象Response
- ·ASP网站Server object error的解决办法
- ·ASP技巧：让Len,Left,Right函数识别中文
- ·把网页中的电话号码生成图片的ASP程序
- ·ASP如何实现IE地址栏参数的判断
- ·细化解析：ASP连接11种数据库语法集锦
- ·ASP实现网页打开任何类型文件都保存
- ·ASP代码直接增加、删除ACCESS表和字段
- ·ASP：判断访问是否来自搜索引擎的函数
- ·ASP技巧：禁用页面缓存的五种方法
- ·学习ASP关于与变量子类型相关的函数
- ·ASP开发中的(VBScript)类基础学习
- ·ASP访问Excel文件
发表评论
评论内容：不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。
阅读排行
- 使用bcdedit 更改windows vista 的启动顺序
- Session丢失问题解决方案
- NTFS文件系统的安全属性
- 在DataGridView中获得DataGridViewCheckBoxColumn
- asp http 500 - 内部服务器错误 请求的资源在使用
- windows内核初窥(一)------体系结构
- WIN32下DELPHI中的多线程【线程的调度】(二)
- 一种Windows下线程同步的实现方法
- windows内核初窥（二）-----系统机制
- WIN32下DELPHI中的多线程【变量存储】(三)
- 【最新】IP 地址分配表(14)
- 关于DataGridView中如何接收处于编辑状态下的当前
- Microsoft Internet Transfer Control 使用简介（
- [小技巧]winfrom使用多线程
- 八大法则杜绝ASP网站漏洞入侵
随机推荐
实用信息推荐