⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 在浏览器里实现类似vb form的界面控制.txt

📁 用纯ＡＳＰ代码实现图片上传并存入数据库中
💻 TXT
字号:
🔍 
在浏览器里实现类似VB Form的界面控制    


--------------------------------------------------------------------------------

 【我心飞扬】 于 99-5-18 上午 01:34:56 加贴在 Joy ASP ↑：

在浏览器里很容易实现类似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>
操作员&nbsp; 密码:
<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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -