reg.asp

诚信商店系统源代码

<!--#include file="title.asp"--><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,[e-mail],jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<%
wxl=request("wxl")
if wxl="Add" then
  str_mbrName=trim(request("str_mbrName"))
  str_mbrLoginName=trim(request("str_mbrLoginName"))
  str_mbrLoginPwd=trim(request("str_mbrLoginPwd"))
  str_mbrPwdQuestion=trim(request("str_mbrPwdQuestion"))
  str_mbrPwdAnswer=trim(request("str_mbrPwdAnswer"))
  str_mbrPhone=trim(request("str_mbrPhone"))
  str_mbrOICQ=trim(request("str_mbrOICQ"))
  str_mbrAddress=trim(request("str_mbrAddress"))
  str_mbrZIP=trim(request("str_mbrZIP"))
  str_mbrEmail=trim(request("str_mbrEmail"))
  Str_mbrCity=trim(request("Str_mbrCity"))
  Str_mbrSex=request("str_mbrSex")
  
  if MyID<>"" then
     Query="select * from web_Member where int_mbrID<>"&MyID&" and  str_mbrLoginName='"&str_mbrLoginName&"'"
  else
     Query="select * from web_Member where str_mbrLoginName='"&str_mbrLoginName&"'"
  end if
  sql.open Query,conn,1,1
  if not sql.eof and MyId="" then Back "登录名["&str_mbrLoginName&"]已经存在!请重新选择"
  sql.close

  if MyID<>"" then
   sql.open "select * from web_Member where int_mbrID="&MyID,conn,3,2
  else
   MyID=GetID("select Max(int_mbrID)+1 from web_Member")
   sql.open "select * from web_Member where int_mbrID="&MyID,conn,3,2
   sql.AddNew
   sql("int_mbrID")=MyID
   sql("int_mberType")=1
   sql("dtm_IssueTime")=now
   sql("dtm_mberLast")=now
   sql("int_mberLoginNum")=0
   sql("int_mbrMoney")=0
  end if
  sql("str_mbrName")=str_mbrName
  sql("str_mbrLoginName")=str_mbrLoginName
  sql("str_mbrLoginPwd")=Encrypt(str_mbrLoginPwd)
  sql("str_mbrPwdQuestion")=str_mbrPwdQuestion
  sql("str_mbrPwdAnswer")=str_mbrPwdAnswer
  sql("Str_mbrCity")=Str_mbrCity
  sql("str_mbrPhone")=str_mbrPhone
  sql("str_mbrOICQ")=str_mbrOICQ
  sql("str_mbrAddress")=str_mbrAddress
  sql("str_mbrEmail")=str_mbrEmail
  sql("str_mbrZIP")=str_mbrZIP
  sql("str_mbrSex")=str_mbrSex
  sql.update
  sql.close
%>
<script language='javascript'>
  alert('会员成功增加!');
  window.location.href = "index.asp";
</script>
<%

else
	dim sql2(18)
	if MyID<>"" then
		sql.open "select * from web_Member where int_mbrID="&MyId,conn,1,1
		if not sql.eof then
			ShowHtml(sql)
		else
			ShowHtml(sql2)
		end if
	else
		ShowHtml(sql2)
	end if
end if

sub ShowHtml(sql1)
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.str_mbrName.value=="") {
        window.alert ("请输入名称!"); aa.str_mbrName.focus();return false}
    if (aa.str_mbrLoginName.value=="") {
        window.alert ("请输入登录名!"); aa.str_mbrLoginName.focus();return false}
    if (aa.str_mbrLoginPwd.value=="") {
        window.alert ("请输入登录密码!"); aa.str_mbrLoginPwd.focus();return false}
    if (aa.str_mbrLoginPwd.value!=aa.str_mbrLoginPwd1.value) {
        window.alert ("确认密码不相同!"); aa.str_mbrLoginPwd1.focus();return false}
    if (aa.str_mbrPwdQuestion.value=="") {
        window.alert ("请输入密码提示!"); aa.str_mbrPwdQuestion.focus();return false}
    if (aa.str_mbrPwdAnswer.value == "" ) {
        window.alert ("请输入密码回答!"); aa.str_mbrPwdAnswer.focus();return false}    
    if (aa.str_mbrEmail.value == "" ) {
        window.alert ("请输入电子邮件!"); aa.str_mbrEmail.focus();return false}    
		
     }
//-->
</SCRIPT>
<table border="1" width="550" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<form name=form1 action="<%=UrlFile%>" method="POST" onSubmit='return checkvalue();'>
<tr align=center><td colspan=4>新会员注册资料信息</td></tr>
<tr>                                                                                                      
    <td width="80" align="right">会员名称：</td>
    <td  align="left"><input type='text' name='str_mbrName' value='<%=sql1(1)%>' maxlength=100><font color=red>*</font></td>
    <td width="80" align="right">登&nbsp;录&nbsp;名：</td>
    <td  align="left"><input name="str_mbrLoginName" size="20" value='<%=sql1(2)%>' maxlength=50><font color=red>*</font></td>
</tr> 
<tr>                                                                                                      
    <td width="80"  align="right">登录密码：</td>
    <td   align="left"><input type="password" name="str_mbrLoginPwd" size="20" value='<%=Encrypt(sql1(3))%>' maxlength=50><font color=red>*</font></td>
    <td width="80"  align="right">确认密码：</td>
    <td   align="left"><input type="password" name="str_mbrLoginPwd1" size="20" value='<%=Encrypt(sql1(3))%>' maxlength=50><font color=red>*</font></td>                                                                                        
</tr>
<tr>                                                                                                      
    <td width="80"  align="right">密码提示：</td>
    <td   align="left"><input type='text' name='str_mbrPwdQuestion' value='<%=sql1(4)%>' maxlength=50><font color=red>*</font></td>
    <td width="80"  align="right">密码回答：</td>
    <td   align="left"><input name="str_mbrPwdAnswer" size="20" value='<%=sql1(5)%>' maxlength=50><font color=red>*</font></td>
</tr> 
<tr>                                                                                                      
    <td width="80"  align="right">性&nbsp;&nbsp;&nbsp;&nbsp;别：</td>
    <td   align="left"><INPUT type=radio value="男" name=str_mbrSex checked>男<INPUT type=radio value='女' name=str_mbrSex <%if sql1(6)="女" then response.write " checked"%>>女</td>
    <td width="80"  align="right">居住城市：</td>
    <td   align="left"><input name="str_mbrCity" size="20" value='<%=sql1(7)%>' maxlength=50></td>
</tr> 
<tr>                                                                                                      
    <td width="80"  align="right">联系电话：</td>
    <td   align="left"><input type='text' name='str_mbrPhone' value='<%=sql1(8)%>' maxlength=50></td>
    <td width="80"  align="right">OICQ：</td>
    <td align="left"><input name="str_mbrOICQ" size="20" value='<%=sql1(9)%>' maxlength=50></td>
</tr> 
<tr>                                                                                                      
    <td width="80"  align="right">通讯地址：</td>
    <td   align="left" colspan=3><input type='text' name='str_mbrAddress' value='<%=sql1(10)%>' size=60 maxlength=200></td>
</tr> 
<tr>                                                                                                      
    <td width="80"  align="right">邮政编码：</td>
    <td   align="left"><input type='text' name='str_mbrZIP' value='<%=sql1(11)%>' maxlength=10></td>
    <td width="80"  align="right">电子邮件：</td>
    <td   align="left"><input name="str_mbrEmail" size="20" value='<%=sql1(12)%>' maxlength=100><font color=red>*</font></td>
</tr> 
<tr>
  <td height="2" align="center" colspan=4>
  <input type="submit" value="  确 认" name="B1" class="submit" style="width:60; height:25;">&nbsp;&nbsp;  
	&nbsp; <input type="reset" value="  返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td> 
</tr>
          </table>
		<input type=hidden name="wxl" value="Add">
	</form>

<%
end sub
%>