asp代码修改
想实现检验表单密码pass时要求输入的只能是字母+数字的组合.表单名:2008字段名:pass想要实现的是提交表单时检查表单,在表单处理页面用asp提示,当检查发现输入的...
想实现检验表单密码pass时要求输入的只能是字母+数字的组合.
表单名:2008
字段名:pass
想要实现的是提交表单时检查表单,在表单处理页面用asp提示,当检查发现输入的密码字段pass是纯数字或纯字母后提示:提交失败!密码必须为字母+数字的组合!如果检查是字母+数字的组合则成功提交表单. 展开
表单名:2008
字段名:pass
想要实现的是提交表单时检查表单,在表单处理页面用asp提示,当检查发现输入的密码字段pass是纯数字或纯字母后提示:提交失败!密码必须为字母+数字的组合!如果检查是字母+数字的组合则成功提交表单. 展开
3个回答
展开全部
<form method=get>
<input type="text" name="txt" id="txt"/>
<input type="submit"/>
</form>
<%
if request("txt")<>"" then
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[a-zA-Z][^\W_]*$"
if regEx.test(request("txt")) = true then
response.write "正确"
else
response.write "错,只允许字母开头的 字母或数字组合"
end if
Set regEx =nothing
end if
%>
<input type="text" name="txt" id="txt"/>
<input type="submit"/>
</form>
<%
if request("txt")<>"" then
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[a-zA-Z][^\W_]*$"
if regEx.test(request("txt")) = true then
response.write "正确"
else
response.write "错,只允许字母开头的 字母或数字组合"
end if
Set regEx =nothing
end if
%>
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
ASP中判断字符串中是否包含字母和数字的两个函数
function isnaw(str)
for i=1 to len(str)
str1=mid(str,i,1)
if isnumeric(str1) then isn=1
if (Asc(str1)> Asc( "a ") and Asc(str1) <Asc( "z ")) or (Asc(str1)> Asc( "A ") and Asc(str1) <Asc( "Z ")) then isw=1
next
if isn=1 and isw=1 then
isnaw=true
else
isnaw=false
end if
end function
function checks(c)
dim str,str1
str1=c
intlen=len(c)
for i=0 to intlen
str= Asc(str1)
if (str <48 or str> 57)and(str <65 or str> 90)and(str <97 or str> 122) then
checks=0
else
checks=1
end if
str1=right(c,intlen-i) '依次判断字符ASCII值
next
end function
function isnaw(str)
for i=1 to len(str)
str1=mid(str,i,1)
if isnumeric(str1) then isn=1
if (Asc(str1)> Asc( "a ") and Asc(str1) <Asc( "z ")) or (Asc(str1)> Asc( "A ") and Asc(str1) <Asc( "Z ")) then isw=1
next
if isn=1 and isw=1 then
isnaw=true
else
isnaw=false
end if
end function
function checks(c)
dim str,str1
str1=c
intlen=len(c)
for i=0 to intlen
str= Asc(str1)
if (str <48 or str> 57)and(str <65 or str> 90)and(str <97 or str> 122) then
checks=0
else
checks=1
end if
str1=right(c,intlen-i) '依次判断字符ASCII值
next
end function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
表单验证,最好还是用js 来验证,减少一些服务器的压力,让这些工作给客户端来执行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询