📄 vqqqinfo_save.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head2.asp" -->
<!-- #include file="chksession.asp" -->
<%
newpass=rst("newp")
if newpass<>"" and len(newpass)<6 then
  	response.write"<script language=javascript>alert('新密码长度须大于6位');history.back(-1);</script>"
 	response.end
end if
%>
<html>
<head>
<TITLE><%=webname%>--会员管理中心---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%name=rst("name")
email=rst("email")
sex=rst("sex")
idcard=rst("idcard")
zip=rst("zip")
country=rst("country")
userqq=rst("userqq")
prov=rst("TPL_prov")
city=rst("TPL_city")
tel=rst("tel")
addr=rst("addr")
addr2=rst("addr2")

Set rs = Server.CreateObject("ADODB.recordset")
rs.open "select * from users where regUsername='"&session("user")&"'",conn,2,2
'----帐号是否锁定---------
'rs("regAdmin")="N"
'----身份认证是否通过-----
RS("regValidated")=IDstatus
'-------------------------
RS("regName")=name
rs("regEmail")=email
rs("regAddress1")=addr
rs("regAddress2")=addr2
rs("regCountry")=country
rs("regCity")=city
rs("regState")=prov
rs("regZip")=zip
rs("idcard")=cstr(idcard)
if userqq<>"" then rs("userqq")=userqq
rs("regsex")=sex
rs("regtel")=tel
if newpass<>"" then
if rs("regpassword")<>rst("oldp") then
	response.write"<script language=javascript>alert('你输入的密码验证失败，请重新输入！');history.back(-1);</script>"
 	response.end
else
   rs("regpassword")=newpass
end if
end if
rs.update
set rs=nothing
if IDstatus="Y" then
response.write"<script language=javascript>alert('测试阶段无须进行身份验证，你现在已经可以卖东西了！');</script>"
end if
%>

<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="150" align="left" valign="top"> 
      <!--#include file="vqqqleft.asp" -->
    </td>
    <td width="5">&nbsp;</td>
    <td align="left" valign="top">
      <table width='100%' border=0 cellPadding=4 cellSpacing=0 id='b1'><tr><td height='10' colspan='2'></td></tr><tr>
          <td height='25' >您的位置：用户设置 〉用户信息修改</td>
        </tr></table>
<% if IDstatus="Y" then %> 
      <table border=0 cellPadding=0 cellSpacing=0 width="100%">
        <tr> 
          <td align=center><br><font color=#ef00000 style="font-size: 14pt">恭喜您，您的资料已经修改成功!</font><br><br>本站现无需身份认证，你现在可以买卖东西了 ！希望你能在这里找到你喜欢的vqqq拍卖物品！<br><hr width=100% noshade color="#e0e0e0"></td>
        </tr>
      </table>
<%else%>
      <table border=0 cellPadding=0 cellSpacing=0 width="100%">
        <tr> 
          <td align=center><br><font color=#ef00000 style="font-size: 14pt">恭喜您，您的资料已经修改成功!</font><br><br>如果你还没有进行身份确认，请选择以下几种方式进行<font color=#ef00000><b>身份确认</b></font>，确认成功之后你就可以买卖东西了 ！<br><hr width=100% noshade color="#e0e0e0"></td>
        </tr>
      </table>
<!--#include file="idpath.asp"-->
<% end if %>
    </td>
  </tr>
</table>
<br>
<!-- #include file="bottom.asp" -->
</BODY></HTML>
⌨️ 快捷键说明

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