vip_dd_1.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<!--#include file="../mail.asp"-->
<%
dim rs,sql,usermail,username
if not isnumeric(request("id")) then
	response.write "<br>"+"<li>参数错误！"
	response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select username,mailbox,vip,vipzt,vipdata,vipmemo from [company] where id="&cstr(request("id"))
rs.open sql,conn,1,3
If rs.eof or rs.bof Then
response.write "<br>没有找到企业！"
response.end
end if
usermail=rs("mailbox")
username=rs("username")
rs("vip")=1
rs("vipzt")=0
rs("vipdata")=now()
rs("vipmemo")=now()
rs.update
rs.close
set rs=nothing
closedb
response.write "<li>操作成功！"
call mail
sub mail()
dim mailbody,Jmail
mailbody="你的公司帐号已经通过IJOB管理员验证通过：帐号：["&username&"] 你的密码是：[*****] 你现在就可以登陆猎才社区了！地址：http://www.ijob.cn/"   '邮件内容
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform 
Jmail.FromName ="admin"
Jmail.Subject ="恭喜：您的VIP帐号已经通过管理员验证通过！！"
Jmail.AddRecipient ""&usermail&""
Jmail.Body = mailbody 
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>