save.asp

全站生成htm静态页面

<%PageName="UserSave"%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="functionuser.asp"-->
<!--#include file="const.asp"-->
<!--#include file="Star.INC"-->
<script language="jscript.encode" src=../js/top.txt></script>
<%
        
	password=trim(request.form("password"))
	email=trim(request.form("email"))
	set rs=server.createobject("adodb.recordset")
	sql="select * from [user] where username='"&membername&"' and password='"&memberword&"'"
	rs.open sql,conn,1,3
	if rs.eof then
		errmsg="<br>"+"对不起，你不是本站用户，请重新注册。"
		founderr=true
	else
		rs("password")=md5(password)
		rs("email")=email

		if trim(request.form("Sex"))="" then
			rs("Sex")=null
		else
			rs("Sex")=trim(request.form("Sex"))
		end if

		if trim(request.form("Tel"))="" then
			rs("Tel")=null
		else
			rs("Tel")=trim(request.form("Tel"))
		end if

		if trim(request.form("Name"))="" then
			rs("Name")=null
		else
			rs("Name")=trim(request.form("Name"))
		end if

		if trim(request.form("Address"))="" then
			rs("Address")=null
		else
			rs("Address")=trim(request.form("Address"))
		end if

		if trim(request.form("Youbian"))="" then
			rs("Youbian")=null
		else
			rs("Youbian")=trim(request.form("Youbian"))
		end if

		if trim(request.form("Shenfenzheng"))="" then
			rs("Shenfenzheng")=null
		else
			rs("Shenfenzheng")=trim(request.form("Shenfenzheng"))
		end if
		if trim(request.form("oicq"))="" then
			rs("oicq")=null
		else
			rs("oicq")=trim(request.form("oicq"))
		end if

		rs.update
		Response.Cookies("wwwy98cnmtv")("password") = PassWord
	end if
	rs.close

	if founderr=true then
		call error()
	else
%>

<div align="center"> 
        <div align="center">       
          
  <table width="770" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
    <tr> 
      <td colspan="2"  align="center"><font color="#FFFFFF"><b>资料修改成功</b></font></td>
    </tr>
    <tr> 
      <td width="180"  align="right">登录帐号：</td>
      <td width="320" >&nbsp;<%=membername%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">电子信箱：</td>
      <td width="320" >&nbsp;<%=Email%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">您的称呼：</td>
      <td width="320" >&nbsp;<%=request("Sex")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">真实姓名：</td>
      <td width="320" >&nbsp;<%=request("Name")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">身份证号：</td>
      <td width="320" >&nbsp;<%=request("Shenfenzheng")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">联系电话：</td>
      <td width="320" >&nbsp;<%=request("Tel")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">详细地址：</td>
      <td width="320" >&nbsp;<%=request("Address")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">邮政编码：</td>
      <td width="320" >&nbsp;<%=request("Youbian")%></td>
    </tr>
    <tr> 
      <td width="180"  align="right">OCIQ号码：</td>
      <td width="320" >&nbsp;<%=request("OICQ")%></td>
    </tr>
    <tr> 
      <td width="500"  align="center" colspan="2"> 
        <INPUT type=button name=back value="返 回" onclick="javascript:window.open('index.asp','_self','')">
      </td>
    </tr>
  </table>     
        </div>     
<script language="jscript.encode" src=../js/end.txt></script>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>