- 博客(2)
- 资源 (6)
- 收藏
- 关注
RSS订阅转载 Web开发：设置复选框的只读效果
在Web开发中，有时候需要显示一些复选框（checkbox），表明这个地方是可以进行勾选操作的，但是有时候是只想告知用户"这个地方是可以进行勾选操作的"而不想让用户在此处勾选（比如在信息展示页面），这时候就需要将复选框设置成只读的效果。提到只读，很容易想到使用readonly属性，但是对于复选框来说，这个属性和期望得到的效果是有差别的。原因在于readonly属性关联的是页面元素的valu
2015-01-08 09:24:57
350
原创 HTML 表单textarea中换行(\n)回车(\r)空格( )的替换
function chg(){ str=document.getElementById("txt").value; str1=str.replace(/\r{0,}\n/g,"").replace(/\s/g," "); alert(str1); document.getElementById("txt1").innerHTML=str1; document.g
2015-01-07 10:55:08
10688
《GB 32100-2015法人和其他组织统一社会信用代码编码规则》.pdf
《GB 32100-2015法人和其他组织统一社会信用代码编码规则》.pdf 是在国家网下载的，需要安装fileopen客户端，才可以打开。
2017-06-06
《GB 32100-2015法人和其他组织统一社会信用代码编码规则》统一社会信用代码校验位生成及校验
根据《GB 32100-2015法人和其他组织统一社会信用代码编码规则》编写代码规则，进行了实测，并用于现实使用中。
2017-06-06
vb学生信息管理系统
Option Explicit
Public OK As Boolean
Dim miCount As Integer
Private Sub Form_Load()
OK = False
miCount = 0
End Sub
Rem 用户登录
Private Sub Command1_Click()
Dim n As String
If Text1.Text = "antengjiao" And Text2.Text = "654321" Then
Unload Form2
Form3.Show
Else
If (Len(RTrim(Text1.Text)) = 0) Then
n = MsgBox("请输入用户名!", , "提示")
Else
If Text1.Text <> "Qiaoyuanyuan" And Text1.Text <> "123456" Then
n = MsgBox("用户不存在或密码错误，请重新输入！", , "提示")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End If
Text1.Text = ""
Text2.Text = ""
miCount = miCount + 1
If miCount = 3 Then
n = MsgBox("错误三次，系统自动退出!", , "错误提示")
End
End If
End Sub
Rem 退出登录界面
Private Sub Command2_Click()
Unload Form2
Form1.Show
End Sub
2010-12-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人