resumesendoutchk.asp

人才招聘系统,用asp做的

<!--#include file="../conn.asp"-->
<!--#include file="cookies.asp"-->
<!--#include file="ResumeSendOutmail.asp"-->
<%
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
function HTMLEncode(fString)
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode = fString
end function
dim str1,username,msjl,rck,companyuser,oo,rs,sql,rck1,i,puttoshopbox,ctsr,selectedid,str2,rs1,sql1,letter1,letter2,letter3
dim companyName,confirmReply,rs2,sql2,zhiwei,sql3,rs4,sql4,email,mailBox,full_name,v,w,chklogin_email,Position,jobid,cmdexample
dim emailAddress,Dept,letteryn,homePage
dim Name,selfDescription,relationPhone,Mobile,bpNumber,c_Location,s_Location
jobid=request.cookies("ijob")("jobid")
username=request.cookies("ijob")("username")
emailAddress=request("keymail")
if IsValidEmail(emailAddress)=false then
response.write "<li>错误!邮件地址不合法."
response.write "<li><a href=""ResumeSendOut.asp"">返回</a>"
response.end
end if
zhiwei=request("zhiwei")
set cmdexample=server.createobject("adodb.command")
cmdexample.activeconnection=conn
cmdexample.commandtext="person4"
cmdexample.commandtype=4
cmdexample.parameters.append cmdexample.createparameter("@RETURN_VALUE",3,4,0)
cmdexample.parameters.append cmdexample.createparameter("@username",200,1,20)
cmdexample.parameters.append cmdexample.createparameter("@jobid",200,1,20)
cmdexample.parameters("@username").value=username
cmdexample.parameters("@jobid").value=jobid
set rs=cmdexample.execute
if rs.eof or rs.bof then
response.write "用户不存在!"
response.end
end if
if isnull(rs("name")) or isnull(rs("minzu")) or isnull(rs("xuexiao")) or isnull(rs("x_suozaidi")) or isnull(rs("selectedjob1")) then
response.write "<li>简历填写不完整！"
response.write "<li><A href=""JobLetter.asp"">分析我的简历</A>！"
response.end 
end if
call sendemail(chklogin_email)
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('外发简历成功！');" & "history.back()" & "</script>"
%>