📄 modify3.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<html>
<!--#include file="head.asp"-->
<!--#include file="UserSession.asp"-->
<title><%=NetName%> - 修改用户资料</title>
<body>
<%
if trim(request("action"))="modify" then
	pass1=trim(request("pass1"))
	email=trim(request("email"))
	qq=trim(request("qq"))
	sitename=trim(request("sitename"))
	siteurl=trim(request("siteurl"))
	outtype=int(request("outtype"))
	intype=int(request("intype"))
	sitetype=int(request("sitetype"))
	sxid=(request("sxid"))
	CheckCode=trim(request("CheckCode"))
	
	if Session("usertype")="VIP用户" then
		Vip1=trim(request("Vip1"))
		Vip2=trim(request("Vip2"))
		Vip3=trim(request("Vip3"))
		Vip4=trim(request("Vip4"))
		Vip5=trim(request("Vip5"))
		
		if Vip1="" then
			response.write "<script>alert('请输入帐户姓名');window.history.back();</script>"	
			response.End()
		end if
		if Vip2="" then
			response.write "<script>alert('请输入银行帐号');window.history.back();</script>"	
			response.End()
		end if
		if Vip3="" then
			response.write "<script>alert('请输入开户地址');window.history.back();</script>"	
			response.End()
		end if
		if Vip4="" then
			response.write "<script>alert('请输入联系电话');window.history.back();</script>"	
			response.End()
		end if
		if Vip5="" then
			response.write "<script>alert('请输入通信地址');window.history.back();</script>"	
			response.End()
		end if
	end if
		
	if Trim(Request("CheckCode"))="" or isnull(Request("CheckCode")) then
		response.write "<script>alert('请输入附加码');window.history.back();</script>"	
		response.End()
	elseif session("Num")="" then
		response.write "<script>alert('请不要重复提交，如需重新登陆请返回登陆页面');window.history.back();</script>"	
		response.End()
	elseif Trim(Request("CheckCode"))<>session("Num") then
		response.write "<script>alert('你输入的附加码和系统产生的不符');window.history.back();</script>"	
		response.End()
	end if
		
	sql="select * from Users where UserName='"&session("UserName")&"'"
	rs.open sql,conn,1,3
	if not rs.eof then
		if pass1<>"" then
			rs("PassWord")=md5(pass1)
		end if
		rs("Email")=email
		rs("QQ")=qq
		rs("SiteName")=sitename
		rs("SiteUrl")=siteurl
		rs("OutType")=outtype
		rs("InType")=intype
		
		rs("SiteType")=sitetype
		rs("SxId")=int(sxid)
	
		if Session("usertype")="VIP用户" then
			rs("Vip1")=Vip1
			rs("Vip2")=Vip2
			rs("Vip3")=Vip3
			rs("Vip4")=Vip4
			rs("Vip5")=Vip5
		end if
	
		rs.update
	else
		response.write "<script>alert('系统错误,请重新尝试,正在返回登录页面');document.URL='login.asp';</script>"	
		response.End()
	end if
	
	'需要重写的登录标记	
	if intype=0 then
		Session("InType")="积分交换"
	elseif intype=1 then
		Session("InType")="积分累积"
	end if
	Response.Write("<script>alert(""恭喜您,资料修改成功"");location.href=""modify.asp"";</script>")
	Response.End()

end if

sql="select * from Users where Id="&cint(session("Id"))
set rs=conn.execute (sql)
if not rs.eof then
	email=rs("Email")
	qq=rs("QQ")
	sitename=rs("SiteName")
	siteurl=rs("SiteUrl")
	outtype=rs("OutType")
	intype=rs("InType")
	
	sitetype=rs("SiteType")
	sxid=rs("SxId")
	
	Vip1=(rs("Vip1"))
	Vip2=(rs("Vip2"))
	Vip3=(rs("Vip3"))
	Vip4=(rs("Vip4"))
	Vip5=(rs("Vip5"))
	
	rs.close
end if
%>
<!--#include file="toper.asp"-->
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><br>
        <%ShowMenu%>
        <BR></td>
  </tr>
</table>
<table cellspacing="0" cellpadding="0" width="500" align="center" border="0">
	<form name="f" onSubmit="return xxg_modify()" action="modify.asp?action=modify" method="post">
		<tr>
			<td style="line-height:200%">
			<%=ShowContent%><br>
			　 新 密 码: 
			<input type="password" size="16" name="pass1" />
			(不修改密码不要填写)<br />
			　 确认密码: 
			<input type="password" size="16" name="pass2" />
			 (不修改密码不要填写)<br />
			　 电子邮件: 
			<input size="30" name="email" value="<%=email%>" /> 
			<br />
			　 站 长Q Q: 
			<input size="30" name="qq" value="<%=qq%>" /> 
			<br />
			　 网站名称: 
			<input size="30" name="sitename" value="<%=sitename%>" /> 
			<br />
			　 网站地址: 
			<input size="30" name="siteurl" value="<%=siteurl%>" />
			<span class="red"> 注意：必须加http://</span><br />
			　 网站类型: <select size="1" name="sitetype">
			  <%OptionList(sitetype)%>
			  </select> 
			<br />
　                       交换方式: 
			<SELECT size=1 name=outtype>
			  <OPTION value=0 <%if outtype=0 then response.write "selected" %>>延迟弹出</OPTION>
			  <OPTION value=1 <%if outtype=1 then response.write "selected" %>>退出弹出</OPTION>
			  <OPTION value=2 <%if outtype=2 then response.write "selected" %>>暂停弹出</OPTION> 
			  </SELECT> 
			   积分模式: <SELECT size=1 name=intype> 
			     <OPTION value=0 <%if intype=0 then response.write "selected" %>>积分交换</OPTION>
			     <OPTION value=1 <%if intype=1 then response.write "selected" %>>积分累积</OPTION>
		      </SELECT> 
			   <br />
			　 推荐人ID: <input readonly name="sxid" size="6" value=<%=sxid%> > <br />
	<%if Session("usertype")="VIP用户" then%>
			<table width="100%" cellpadding="0" cellspacing="0">
              <TR>
                <TD width="72" height="24" align="right">帐户姓名:</TD>
                <TD height="24">&nbsp;<INPUT name="Vip1" id="Vip1" value="<%=Vip1%>" size="30" maxlength="255"></TD>
                <TD height="24">&nbsp;银行帐号的所有者姓名</TD>
              </TR>
              <TR>
                <TD width="72" height="24" align="right">银行帐号:</TD>
                <TD height="24">&nbsp;<INPUT name="Vip2" id="Vip2" value="<%=Vip2%>" size="30" maxlength="255"></TD>
                <TD height="24">&nbsp;<span class="red">工行</span>帐号，对于买入者您需开通网上支付功能</TD>
              </TR>
              <TR>
                <TD width="72" height="24" align="right">开户地址:</TD>
                <TD height="24">&nbsp;<INPUT name="Vip3" id="Vip3" value="<%=Vip3%>" size="30" maxlength="255"></TD>
                <TD height="24">&nbsp;如：辽宁省大连市，就是此帐号开户的省、市</TD>
              </TR>
              <TR>
                <TD width="72" height="24" align="right">联系电话:</TD>
                <TD height="24">&nbsp;<INPUT name="Vip4" id="Vip4" value="<%=Vip4%>" size="30" maxlength="255"></TD>
                <TD height="24">&nbsp;如有问题时，我们及时与您联系</TD>
              </TR>
              <TR>
                <TD width="72" height="24" align="right">通信地址:</TD>
                <TD height="24">&nbsp;<INPUT name="Vip5" id="Vip5" value="<%=Vip5%>" size="30" maxlength="255"></TD>
                <TD height="24">&nbsp;如有问题时，我们及时与您联系</TD>
              </TR>
            </table>
			<p><%end if%>
			  　 验 证 码:
			  <input size="6" name="CheckCode" />
			  请输入<img src="GetCode.asp" /></p>
			<p>　 <input type="checkbox" checked value="1" name="rule" /> 我同意并承诺遵守《<a href="rule.asp" target="_blank" style="COLOR: #000000">“<%=NetName%>”用户守则</a> 》的全部条款。</p>
			<p>　 
			  <input type="hidden" name="action" value=1>
			  <input type="submit" value="　确认修改　" name="submit1" /> 
			  <br />
			<br />
			</p></td>
		</tr>
	</form>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<!--#include file="foot.asp"-->

</body>

</html>
<%
Function ShowContent ()
	sql="select Modify from Notice"
	set rs=conn.execute (sql)
	if not rs.eof then
		response.write rs(0)
		rs.close
	end if
End Function
%>
⌨️ 快捷键说明

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