巫妖天下 - LichSky

关于作者:专注于微软平台项目架构、管理和企业解决方案。熟悉各类技术手段、架构设计、开发和项目管理。现主要从事项目开发、架构、管理工作。

document.frm.submit is not a function

[CODE_LITE]
在做表单提交时,遇到一个非常奇怪的问题,用js控制表单提交时,浏览器老提示document.genForm.submit is not a function。这个语句用了几十年都没问题,怎么现在就有问题了呢。查找了半天也发现有什么错误,后来在网上搜索了一番,结果找到了原因。

当表单…中含有name="submit" 或 id="submit" 时,提交时就会有冲突,

VB 检测组件是否已注册

[CODE_LITE]
Option Explicit
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
...

MSSQL2005 安装后 vb提示“首选合作伙伴”


复制其框内信息:
H:\软件集\SQL Server 2005\SQL Server x86\Tools\Setup\
去注册表里查找,凡是涉及到的,都删掉其键。

VB urlencode(UTF-8)

[CODE_LITE]
'=========================
'URLEncode Utf-8 版
'=========================
Function GBtoUTF8(szInput)

Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3

'如果输入参数为空,则退出函数
If szInput = "" Then
GBtoUTF8 = szInput
...

VB 35761 request time out 处理

[CODE_LITE]

'====================================
'放一个按钮、两个text、一个Inet
'====================================
Private Sub Command1_Click()
Command1.Enabled = False

Inet1.RequestTimeout = 5 '过期时间设置

On Error GoTo ErrProc:
Text2.Text = Inet1.OpenURL(Text1.Text)
...

VB 正则去除HTML标签

[CODE_LITE]
' ============================================
' 去除html格式的,过滤文章,只显示文字
' 引入 Microsoft VBScript Regular Expressions 5.5
' ============================================
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
...
分页:[«]1[»]

Powered By Z-Blog 1.8 Walle Build 100427

Copyright 巫妖天下(lichsky@163.com) All Rights Reserved.