📄 company_email.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="company_email.asp"%>
<!--#include file="checkcmember.asp" -->
<%step=trim(request("step"))
if step="Modify" then
email=Replace(request("email"),"'","")
if email="" then
response.write("<script language=JavaScript>{alert('请输入新Email地址！');location.href = 'javascript:history.back()';}</script>")
Response.end()
else
set rs=server.createobject("adodb.recordset")
sql="select member_login,member_email from JOB_member where member_email='"&email&"'"
rs.open sql,conn,1,1  
	if not rs.eof then
		if rs("member_login")=cmember_login then
		Response.Write("<script language=JavaScript>{alert('未做任何修改！');location.href = 'javascript:history.back()';}</script>")
		Response.end()
		else
		response.write("<script language=JavaScript>{alert('该邮箱已经有人使用了！');location.href = 'javascript:history.back()';}</script>")
		Response.end()
		end if
end if
rs.close
set rs=nothing
conn.execute("update job_member set member_email='"&email&"' where member_login='"&cmember_login&"'")
end if
end if%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改邮箱--<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css" />
<script src="../inc/main.js" language="javascript"></script></head>
<body>
<center>
<div id="head">
	<div id="logo"><img src="<%=SiteUrl&InstallDir&LogoUrl%>" alt="欢迎访问<%=SiteName%>" /></div>
	<div id="banner"><%Call Loginshow()%></div>
	<ul><%Call Membernav(2)%></ul>
</div>
<%Call Cmembermenu(1)%>
<div class="maintaba">
<span class="maintit">修改邮箱</span>
<ul>
<li></li>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select member_login,member_email from job_member where member_login='"&cmember_login&"'"
rs.open sql,conn,1,1
Response.Write("<li>旧的E-mail："&rs("member_email")&"</li>")
rs.close
set rs=nothing
%>
<form name="form1" action="company_email.asp?step=Modify" method="post" onSubmit="return sendreg()"><li>新的E-mail：<input name="email" type="text" class="inputr" id="email" onBlur="return checkEmails();" /><span id="emails"></span>
</li>
<li></li>
<li><input name="Submit" type="submit" class="inputa3" value="保　存">　
  <input name="Submit2" type="button" class="inputa3" value="返　回" onClick="window.history.back();"></li></form>
</ul>
</div>
<%call bottom()
conn.close:set conn=nothing%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -