save.asp

俄罗斯方块另类.zip - 又一个俄罗斯方块的代码（转）用vc写的著名游戏俄罗斯方块的代码

<%@ language=vbscript %>
<!--#include file="conn.asp"-->
<%
'---------------读取数据----------------
lname=trim(request.form("lname"))
lsex=trim(request.form("lsex"))
laddr=trim(request.form("laddr"))
loicq=trim(request.form("loicq"))
lphone=trim(request.form("lphone"))
lemail=trim(request.form("lemail"))
lwaihao=trim(request.form("lwaihao"))
lwork=trim(request.form("lwork"))
lself=trim(request.form("lself"))
lusername=trim(request.form("nicname"))
lpassw1=trim(request.form("passw1"))
lpassw2=trim(request.form("passw2"))
lweb=trim(request.form("lweb"))

if lusername=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('呢称不能为空！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lusername)>15 then '--------------判断名字长度
		response.write"<script language='javascript'>" 
		 response.write"alert('呢称请不要超过15个字');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if lpassw1=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('密码不能为空！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lpassw1)>12 then '--------------判断名字长度
		response.write"<script language='javascript'>" 
		 response.write"alert('密码请不要超过12个字符！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lpassw1)<6 then '--------------判断名字长度
		response.write"<script language='javascript'>" 
		 response.write"alert('密码请不要少于6个字符！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if lpassw2<>lpassw1 then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('密码与确认密码不符！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

if lname=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('你为什么不留下你的姓名呢？');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lname)>4 then '--------------判断名字长度
		response.write"<script language='javascript'>" 
		 response.write"alert('姓名请不要超过4个字');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

if len(lwaihao)>10 then '--------------判断外号长度
		response.write"<script language='javascript'>" 
		 response.write"alert('外号请不要超过10个字');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

if loicq="" then '----oicq判断
loicq=0
end if 
if isnumeric(loicq)=false then '----oicq判断
response.write"<script language='javascript'>" 
		 response.write"alert('oicq不能为空且只能为数字！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(loicq)>10 then '--------------判断oicq长度
		response.write"<script language='javascript'>" 
		 response.write"alert('这么长oicq号？');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if loicq=0 then '----oicq判断
  loicq="没填"
 end if
If lemail="" or IsValidEmail(lemail)=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


if laddr="" then  '--------------判断地址是否为空
         response.write"<script language='javascript'>" 
		 response.write"alert('你为什么不留下你的地址呢？');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lwork)>25 then '--------------判断地址长度
		response.write"<script language='javascript'>" 
		 response.write"alert('公司名字请不要超过25个字符！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(laddr)>25 then '--------------判断地址长度
		response.write"<script language='javascript'>" 
		 response.write"alert('联系地址请不要超过25个字符！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if

if len(lself)>120 then '--------------判断自我介绍长度
		response.write"<script language='javascript'>" 
		 response.write"alert('自我介绍请不要超过120个字');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 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
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then '---------------------
      IsValidEmail = false
      exit function
   end if
 next
 if 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 
lemail=server.htmlencode(lemail)
lself=server.htmlencode(lself)
'------------------写入数据-----------
set rs=server.createobject("adodb.recordset") '建立recordset的对象，初始化rs
sql="select * from mis where name like '"&lname&"' or username like '"&lusername&"'"
rs.open sql,conn,3,2'--------------3.2 是什么意思？？
if not rs.eof or not rs.bof then
response.write"<script language='javascript'>" 
		 response.write"alert('此用户已存在,请改用其他名称！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
else
rs.addnew
  rs("name")=lname
  rs("sex")=lsex
  rs("addr")=laddr
  rs("oicq")=loicq
  rs("phone")=lphone
  rs("username")=lusername
  rs("passw1")=lpassw1
  rs("passw2")=lpassw2
  rs("time")=now()
  rs("ip")=Request.ServerVariables("REMOTE_HOST")
  rs("email")=lemail
  rs("work")=lwork
  rs("self")=lself
  rs("waihao")=lwaihao
  rs("web")=lweb
rs.update
rs.close
conn.close
response.redirect "succ.asp"
end if
%>