ASP 确定是否应用样式的问题

有一个问题是表 b 类的字段有这些，否则就不可能满足相等。

dim class

class=trim(request("class"))set rs2="select * from b_class where order by c_order")

if not then

class="submenu"

elseclass=""

end if

函数名称：isvalidemail

功能：邮箱格式检测。

返回值：true 正确，false 不正确。

function isvalidemail(email)

isvalidemail=true

dim rep

set rep = new regexp

([a-za-z0-9_-]a-za-z0-9_-]a-za-z0-9]))"

pass=set rep=nothing

if not pass then isvalidemail=false

end function

正则表达式：函数 isvalidemail（email）isvalidemail=true

dim rep

set rep = new regexp

([a-za-z0-9_-]a-za-z0-9_-]a-za-z0-9]))"

pass=set rep=nothing

if not pass then isvalidemail=false

end function

只需调用此函数即可。

我通常使用这种方法来获取浏览器的类型。

dim browserstring

browserstring = "http_user_agent")

browserstring = lcase(browserstring)

dim brofirefox,bromsie,broopera,browap

brofirefox = "firefox"

bromsie = "msie"

broopera = "opera"

browap = "wap"

如果是 Firefox

if instr(browserstring, brofirefox) <0 then

end if

如果是MSIE

if instr(browserstring, bromsie) <0 then

end if

如果是歌剧

if instr(browserstring, broopera) <0 then

end if

如果是wap（没有用过，所以要看HTTP用户代理的结果）。

if instr(browserstring, browap) <0 then

end if

<% set bc = ""） % 建立对象 <%。

if ( then

URL 地址"

elseif ( then

elseif ……

只是一个提示，好像是这样的，我忘了。 对不起。

以原则还是以**？ 你想简单还是严格地判断？

您想通过客户端验证还是服务器验证？

ASP 没有分号";"

可以在一行中完成的句子可以在一行中完成，并且它很灵活，不需要结束 ifif 语句。

if ()then "asdasd"这是可行的，诸如此类的事情。

if ()then

依此类推。

但是，建议您分多行进行。 带 end if

这将使您的程序看起来更直观。

另外，如果之后，只要有回车符和换行符，那么一定有结尾if也可以写。

if ()then

asdasd"

end if

创建 ASP 页。

if request("aa")="" then "asd"%>

if request("aa")="" then"asd"

end if

输入以上两句话，结果是可行的。

exit for 用于跳出 for 循环，条件语句不回答条件 if 语句格式。

true then

end if

2. if true then

elseend if

3if true then

elseif xx then

elseend if

if get1="" and get2="" and get3="" then

中间内容。 end if

也可以这样写：

if get1&get2&get3&""="" then'中间内容。

end if

if get1="" and get2="" and get3="" then

中间内容。 elseif get1="" and get2="" and get3<>"" then

中间内容。 end if

if get1 and get2 and get3 then '如果 get1 和 get2 和 get3 为 true。

end if

在“处理数据”页上，添加以下**：

函数名称：isvalidemail

false -- 电子邮件地址无效。

function isvalidemail(email)

dim names, name, i, c

isvalidemail = true

names = split(email, "@")

if ubound(names) <1 then

isvalidemail = false

exit function

end if

for each name in names

if len(name) <= 0 then

isvalidemail = false

exit function

end if

for i = 1 to len(name)

c = lcase(mid(name, i, 1))

if instr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not isnumeric(c) then

isvalidemail = false

exit function

end if

nextif left(name, 1) = "." or right(name, 1) = "." then

isvalidemail = false

exit function

end if

nextif instr(names(1), ".") <= 0 then

isvalidemail = false

exit function

end if

i = len(names(1)) instrrev(names(1), ".")

if i <>2 and i <>3 then

isvalidemail = false

exit function

end if

if instr(email, "..") >0 then

isvalidemail = false

end if

end function

然后，当您验证电子邮件时，它会写成这样：

if email="" then

电子邮件不能为空！ "

elseif isvalidemail(email)=false then

您的电子邮件格式不正确"

end if

end if

用于电子邮件验证的正则表达式：

w+([']\w+)*w+([w+)*w+([w+)*

例如，请输入电子邮件：