delchangeemail.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<!--#include file="../manager/function/conn.asp"-->
<!--#include file="../function.asp"-->
<%
Mem_LoginName=testdb(request("signup_uid"))
MMem_LoginPasd=testdb(request("pwd"))
Mem_Email=testdb(request("email"))
mem_loginpasd=rand()
set rs=server.CreateObject("adodb.recordset")
 sql="select top 1 * from tmember order by MEM_ID desc"
 rs.open sql,conn,3,2
 dim ZXLMem_id
'ZXLMem_id=Cint(rs("mem_id"))
 if rs.eof or rs.bof then
     ZXLMem_id=1
 else
     ZXLMem_id=Cint(rs("mem_id"))+1
 end if
 rs.close
sql="select * from tmember"
rs.open sql,conn,3,2
rs.addnew
rs("mem_id")=ZXLMem_id
rs("Mem_LoginName")=Mem_LoginName
rs("Mem_LoginPasd")=mem_loginpasd
rs("Mem_Email")=Mem_Email
rs.update
memo="<p align=left>尊敬的"&mem_name&"：<br>您好，欢迎您注册成为本公司的会员，您的用户名为"&mem_loginname&"您的密码为"&mem_loginpasd&"，请您妥善保管好您的密码！<br>同时您已免费获得1000币！"
'response.Write memo
'response.write mem_email
%>
<FORM name="form1" action="http://demo.ue.net.cn/sendmail/sendhtml.asp"  method="post">
<input name="tHtml" type="hidden" id="tHtml" value="<%=memo%>">
<input name="title" type="hidden" id="title" value="欢迎您成为<%=ZXLCompanyStr%>公司会员，您的用户密码！">
<input name="from" type="hidden" id="from" value="[e-mail]">
<input name="fromname" type="hidden" id="fromname" value="">
<input name="sendmail" type="hidden" id="sendmail" value="<%=mem_email%>">
<script language="javascript">
form1.submit(); 
</script>
<%
'msg_success("修改成功！")

%><%

rs.close
set rs=nothing
call conn_close()
%>