<% dim rs dim sql,haveerr,star dim name,sex,xue,byear,bmonth,bday,province,home,education,job,company,postcalcode dim tel,fresume,netname,homepage,email,netcall,chatroom,tallroom,sport,book,music dim people,interest,adage,character,word dim i dim err(26)
'判断Session变量是否超时 if isempty(session("user_id")) then response.redirect "timeout.htm" sql="select user_id from larchives where user_id =" & session("user_id") Set rs = conn.execute(sql) if not(rs.eof and rs.bof) then set rs=nothing call closeDB() Response.Write("<script language='JavaScript'>alert('您已经建立了档案!');location.href='index.asp';</script>") response.end end if
name =request("name") sex =request("sex") xue =request("xue") byear =request("byear") bmonth =request("bmonth") bday =request("bday") province =request("province") home =request("home") education =request("education") job =request("job") company =request("company") postcalcode =request("postcalcode") tel =request("tel") fresume =request("fresume") netname =request("netname") homepage =request("homepage") email =request("email") netcall =request("ICQ")&","&request("OICQ")&","&request("MSN") chatroom =request("chatroom") sport =request("sport") book =request("book") music =request("music") people =request("people") interest =request("interest") adage =request("adage") character =request("character") word =request("word") '容错代码-------------------------------------------------------------------------------------------------------------- if len(name)>10 then err(1)="姓名不能超过10个字符!" if len(name)<2 then err(1)="姓名最少也要2个字符!" if len(home)>30 then err(2)="地/市不能超过30个字符!" if len(company)>50 then err(3)="单位不能超过50个字符!" if company="" then company="-没填-" if len(postcalcode)<>6 then err(4)="邮政编码是6位!" if not(isnumeric(postcalcode)) then err(5)="邮政编码必须是数字!" if len(tel)>20 then err(6)="电话号码不能超过20个字符!" if len(tel)<11 then err(6)="电话号码不能少于11个字符!" if not(isnumeric(tel)) then err(7)="电话号码码必须是数字!" if len(fresume)>100 then err(8)="简历不能超过100个字符!" if fresume="" then fresume="-没填-" if len(netname)>10 then err(9)="网名最多只能10个字符!" if len(netname)<2 then err(9)="网名最少也要2个字符!" if len(homepage)>50 then err(10)="主页最多只能有50个字符!" if homepage="" then homepage="-没填-" if len(email)>50 then err(11)="Email最多只能有50个字符!" if not isvalidemail(email) then err(12)="Email地址错误!" if len(request("ICQ"))>16 OR len(request("OICQ"))>12 then err(13)="网络寻呼机号码不能超过指定的字符数!" if len(request("OICQ"))<5 then err(13)="网络寻呼机号码不能少于5个字符!" 'if netcall<>"-没有-" and not isvalidemail(email) then err(14)="网络寻呼机号码只能为数字!" if len(chatroom)>50 then err(15)="聊天室地址不能超过50个字符!" if chatroom="" then chatroom="-没填-" if len(sport)>30 then err(16)="喜欢的运动不能超过30字符!" if sport="" then err(16)="喜欢的运动不能为空!" if len(book)>50 then err(17)="喜欢的书籍最多不能超过50个字符!" if book="" then err(17)="喜欢的书籍不能为空!" if len(music)>50 then err(18)="喜欢的音乐最多不能超过50个字符!" if music="" then err(18)="喜欢的音乐不能为空!" if len(people)>30 then err(19)="喜欢的名人多不能超过50个字符!" if people="" then err(19)="喜欢的名人不能为空!" if len(interest)>50 then err(20)="其它爱好最多不能超过50个字符!" if interest="" then interest="-没填-" if len(adage)>50 then err(21)="喜欢的格言不能超过50个字符!" if adage="" then err(21)="喜欢的格言不能为空!" if len(character)>50 then err(22)="性格自述不能超过50个字符!" if character="" then err(22)="性格自述不能不填!" if len(word)>100 then err(23)="给网友的留言不能超过100个字符!" if word="" then word="-没填-" if not(isdate(byear & "-" & bmonth & "-" & bday)) then err(24)="生日您没有选择或生日日期无效!" for i=1 to 25 if err(i)<>"" then haveerr="yes" next
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 '--------------------------------------------------------------------------------------------------------------------------
if (bmonth=12 and bday>=22) or (bmonth=1 and bday<=19) then star= "摩羯座" elseif (bmonth=1 and bday>=20) or (bmonth=2 and bday<=18) then star= "水瓶座" elseif (bmonth=2 and bday>=19) or (bmonth=3 and bday<=20) then star= "双鱼座" elseif (bmonth=3 and bday>=21) or (bmonth=4 and bday<=19) then star= "白羊座" elseif (bmonth=4 and bday>=20) or (bmonth=5 and bday<=20) then star= "金牛座" elseif (bmonth=5 and bday>=21) or (bmonth=6 and bday<=20) then star= "双子座" elseif (bmonth=6 and bday>=21) or (bmonth=7 and bday<=22) then star= "巨蟹座" elseif (bmonth=7 and bday>=23) or (bmonth=8 and bday<=22) then star= "狮子座" elseif (bmonth=8 and bday>=23) or (bmonth=9 and bday<=22) then star= "处女座" elseif (bmonth=9 and bday>=23) or (bmonth=10 and bday<=22) then star= "天秤座" elseif (bmonth=10 and bday>=23) or (bmonth=11 and bday<=21) then star= "天蝎座" elseif (bmonth=11 and bday>=22) or (bmonth=12 and bday<=21) then star= "射手座" end if
%> <%if haveerr="yes" then%> <html> <head> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body> <!-- #include file="top.asp" --> <table border="1" width="400" bordercolor="#336699" cellspacing="0" align="center"> <tr> <td width="100%" bgcolor="#336699" align="center"><font color="#FFFFFF"><b>错误提示！</b></font></td> </tr> <tr> <td width="100%"> <table border="0" width="100%" cellspacing="0"> <tr> <td width="100%" align="center">
<p align="left"><b>在您提交的个人档案必栏目中发现如下问题</b>
</td> </tr> <%for i=1 to 24%> <%if err(i)<>"" then %> <tr> <td width="100%"> <ul> <li> <font color="red"> <%=err(i)%> </font> </li> </ul> </td> </tr> <%end if%> <%next%> <tr> <td width="100%" align="center"> <a href="" onclick="history.go(-1);return false;">[返回]<a> </td> </tr> </table> </td> </tr> </table> <!-- #include file="bottom.asp" --> </body> </html> <%response.end%> <%end if%> <% Set rs = Server.CreateObject("ADODB.Recordset") '检查入会ID,判断是否已入档
rs.open "larchives",conn,3,2 rs.addnew rs("user_id") =session("user_id") rs("name") =name rs("sex") =sex rs("xue") =xue rs("britherday") =byear & "-" & bmonth & "-" & bday rs("age") =datediff("yyyy",byear & "-" & bmonth & "-" & bday,date) rs("home") =province & home rs("education") =education rs("job") =job rs("company") =company rs("postcalcode") =postcalcode rs("tel") =tel rs("fresume") =fresume rs("netname") =netname rs("homepage") =homepage rs("email") =email rs("netcall") =netcall rs("chatroom") =chatroom rs("sport") =sport rs("book") =book rs("music") =music rs("people") =people rs("interest") =interest rs("adage") =adage rs("character") =character rs("ip") =request.ServerVariables("REMOTE_ADDR") rs("date") =date rs("time") =time rs("click") =0 rs("renqi") =0 rs("photo") =0 rs("star") =star rs.update rs.close call closeDB() response.redirect "read.asp?user_id=" & session("user_id") %>
