sendmailme.asp

人才招聘系统,用asp做的

<!--#include file="../conn.asp"-->
<!--#include file="cookies.asp"-->
<!--#include file="ResumeSendOutmail1.asp"-->
<%
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,jobid,mailBox,full_name,v,w,chklogin_email,Position,cmdexample,email
dim emailAddress,Dept,letteryn,homePage
dim Name,selfDescription,relationPhone,Mobile,bpNumber,c_Location,s_Location
username=request.cookies("ijob")("username")
jobid=request.cookies("ijob")("jobid")
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
email=rs("useremail")
call sendemail(chklogin_email)
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('简历已经发送到你的邮箱【"&email&"】里,请查收！');" & "history.back()" & "</script>"
%>