<%
Vxingming=trim(request.form("Txingming"))
Vemail=trim(request.form("Temail"))
Voicq=trim(request.form("Toicq"))
Vzishu=trim(request.form("Tzishu"))
Vneixian=trim(request.form("Tneixian"))
Vshouji=trim(request.form("Tshouji"))
Vksh=trim(request.form("Tksh"))
if Vxingming="" then '--------------判断名字
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('你忘记填入你的姓名啦~！~');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
'--------------------判断email函数----------
If Vemail="" or IsValidEmail(Vemail)=false then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('错误的email输入');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
'-------------------下次写个全的OICQ的判断(nami)--------------
if Isnumeric(Voicq) =false then
response.write "<script language='javascript'>" & vbcrlf
response.write "alert('哎呀！你要么没写qq！要么就是qq不全是数字！：（');"& vbcrlf
response.write "history.go(-1);" & vbcrlf
response.write "</script>" & VbCRLF
response.end
end if
'-------------------输入内容检测------------------------
if Vzishu="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('你想干什么？搞破坏啊~~~');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
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
