manage.asp

漂亮的公司企业通用整站源码 希望大家能用的上

<!--#include file="Inc/Syscode.asp" -->
<!--#include file="head.asp" -->
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="30" valign="top" background="img/cont_left_bg01.gif"><img src="img/cont_left_img01.gif" width="30" height="431"></td>
        <td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="img/left_hyzx.gif" width="200" height="67"></td>
                  </tr>
                  <tr>
                    <td height="110" align="center" valign="top" background="img/left_bg01.gif"><table width="75%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="20"><div align="center"><a href="Manage.asp" class="top_m_txt01">修改会员资料</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                      <tr>
                        <td height="20"><div align="center"><a href="ManagePwd.asp" class="top_m_txt01">修改会员密码</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                      <tr>
                        <td height="20"><div align="center"><a href="E_shop.asp" class="top_m_txt01">购物订单查询</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                      <tr>
                        <td height="20"><div align="center"><a href="NetBook.asp" class="top_m_txt01">站内留言中心</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                      <tr>
                        <td height="20"><div align="center"><a href="UserLogout.asp" class="top_m_txt01">退出会员中心</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                    </table></td>
                  </tr>
                  <tr>
                    <td><img src="img/left_img01.gif" width="200" height="20"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="63" valign="bottom"><img src="img/left_tc_tit.gif" width="200" height="51"></td>
                  </tr>
                  <tr>
                    <td height="182" align="center" background="img/left_bg02.gif"><object type="text/x-scriptlet" width="190" height="178" data="ttpp/vote.asp?id=32">
                    </object></td>
                  </tr>
                  <tr>
                    <td><img src="img/left_img02.gif" width="200" height="8"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="img/xsrx_img.gif" width="185" height="51" border="0"></a></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
            <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="img/cont_img01.gif" width="580" height="17"></td>
              </tr>
              <tr>
                <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="9" background="img/cont_tbl01_bg01.gif"></td>
                    <td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="45" align="left" valign="top"><img src="img/hyzx.gif" width="298" height="36"></td>
                        </tr>
                      <tr>
                        <td valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td colspan="3"><img src="img/gsjs_img01.gif" width="540" height="19"></td>
                            </tr>
                          <tr>
                            <td width="22" valign="top" background="img/gsjs_left_bg01.gif"><img src="img/gsjs_img03.gif" width="22" height="149"></td>
                            <td width="498" height="410" rowspan="2" valign="top" class="top_m_txt01"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="top_m_txt01">
                              <tr>
                                <td height="179" valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td height="206" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                            <tr>
                                              <td><%
dim rsUser,sqlUser
Action=trim(request("Action"))
UserName=trim(request("UserName"))
if UserName="" then
	UserName=session("UserName")
end if
if  UserName="" then
	if Action="" then
		response.redirect "Server.asp"
	else
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
	end if
end if
if FoundErr=true then
	call WriteErrMsg()
else
	Set rsUser=Server.CreateObject("Adodb.RecordSet")
	sqlUser="select * from [User] where UserName='" & UserName & "'"
	rsUser.Open sqlUser,conn,1,3
	if rsUser.bof and rsUser.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
		call writeErrMsg()
	else
		if Action="Modify" then
			dim Sex,Email,Homepage,QQ,MSN
			Sex=trim(Request("Sex"))
			Email=trim(request("Email"))
			Homepage=trim(request("Homepage"))
			Comane=trim(request("Comane"))
			Add=trim(request("Add"))
			Somane=trim(request("Somane"))
			Zip=trim(request("Zip"))
			Phone=trim(request("Phone"))
			Fox=trim(request("Fox"))
			if Sex="" then
				founderr=true
				errmsg=errmsg & "<br><li>性别不能为空</li>"
			else
				sex=cint(sex)
				if Sex<>0 and Sex<>1 then
					Sex=1
				end if
			end if
			if Email="" then
				founderr=true
				errmsg=errmsg & "<br><li>Email不能为空</li>"