?? chang_user.asp
字號:
<!-- #include file="head.asp" -->
<script language="JavaScript">
function CheckForm1()
{
if (document.ADDUser.pass1.value.length == 0) {
alert("請輸入您的密碼.");
document.ADDUser.pass1.focus();
return false;
}
if (document.ADDUser.pass2.value.length == 0) {
alert("請確認您的密碼.");
document.ADDUser.pass2.focus();
return false;
}
if (document.ADDUser.pass1.value != document.ADDUser.pass2.value) {
alert("您兩次輸入的密碼不一樣！請重新輸入.");
document.ADDUser.pass1.focus();
return false;
}
if (document.ADDUser.email.value.length == 0) {
alert("請輸入您的Email.");
document.ADDUser.email.focus();
return false;
}
if (document.ADDUser.email.value.length > 0 && !document.ADDUser.email.value.match( /^.+@.+$/ ) ) {
alert("Email 錯誤！請重新輸入");
document.ADDUser.email.focus();
return false;
}
if (document.ADDUser.tel.value.length == 0) {
alert("請輸入您的聯系電話，以便我們可以為您更好服務.");
document.ADDUser.tel.focus();
return false;
}
return true;
}
</script>
<TABLE width=760 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF" class=bk>
<TR>
<TD vAlign=top>
<!-- #include file="lwconn.asp" -->
<%if request.QueryString("add")="p2" then
pass1=trim(request.Form("pass1"))
pass2=trim(request.Form("pass2"))
pass1=replace(pass1,"'","")
if pass1<>pass2 or pass1="" then
%>
<script language=javascript>
history.back()
alert("密碼輸入錯誤！")
</script>
<%
Response.End
end if
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if rs.eof then
%>
<script language=javascript>
history.back()
alert("該用戶不存在！")
</script>
<%
Response.End
else
rs("fa_ren")=trim(request.Form("fa_ren"))
rs("contact")=trim(request.Form("contact"))
rs("pass1")=trim(request.Form("pass1"))
rs("address")=trim(request.Form("address"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs("url")=trim(request.Form("url"))
rs.update
rs.close
set rs=nothing
response.Write("<center><h3><font color='red'> 恭喜，會員資料修改成功！</font></h3><a href='info_add.asp'>返回管理中心</a></center>")
end if
end if
%>
<%if request.QueryString("add")="geren" then
pass1=trim(request.Form("pass1"))
pass2=trim(request.Form("pass2"))
pass1=replace(pass1,"'","")
if pass1<>pass2 or pass1="" then
%>
<script language=javascript>
history.back()
alert("密碼輸入錯誤！")
</script>
<%
Response.End
end if
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if rs.eof then
%>
<script language=javascript>
history.back()
alert("該用戶不存在！")
</script>
<%
Response.End
else
rs("pass1")=trim(request.Form("pass1"))
rs("address")=trim(request.Form("address"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs.update
rs.close
set rs=nothing
response.Write("<center><h3><font color='red'> 恭喜，你的個人資料修改成功！</font></h3><a href='info_add.asp'>返回管理中心</a></center>")
end if
end if
%>
<%if request.Cookies("ttype")<>"4" then
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if not rs.eof then
%>
<form name="ADDUser" method="post" action="?add=p2" onSubmit="return CheckForm1();">
<table width="490" border="0" align="center">
<tr>
<td width="23%"> </td>
<td width="67%"><p><strong> 會員資料修改 </strong></p></td>
</tr>
<tr>
<td>公司名稱 * ：</td>
<td><p><%=rs("company")%>
</p>
</td>
</tr>
<tr>
<td>營業執照編號 * ：</td>
<td><p><%=rs("yinye")%>
</p>
</td>
</tr>
<tr>
<td>法人代表 * ：</td>
<td><p>
<input name="fa_ren" type="text" id="fa_ren" value="<%=rs("fa_ren")%>">
</p>
</td>
</tr>
<tr>
<td>聯系人 * ：</td>
<td><p>
<input name="contact" type="text" id="contact" value="<%=rs("contact")%>">
</p>
</td>
</tr>
<tr>
<td>登入密碼 * ：</td>
<td><input name="pass1" type="password" id="pass1" value="<%=rs("pass1")%>">
<br>
6-14 位并只能由字母和數字組成。 </td>
</tr>
<tr>
<td>確認密碼 * ：</td>
<td><input name="pass2" type="password" id="pass2" value="<%=rs("pass1")%>"> </td>
</tr>
<tr>
<td>住所 * ：</td>
<td><input name="address" type="text" id="address" value="<%=rs("address")%>"></td>
</tr>
<tr>
<td>E-mail* ：</td>
<td><input name="email" type="text" id="email" value="<%=rs("email")%>">
請正確填寫，以備忘記密碼時用。 </td>
</tr>
<tr>
<td>電 話 * ：</td>
<td><input name="tel" type="text" id="tel" value="<%=rs("tel")%>">
固話、小靈通、手機均可。 </td>
</tr>
<tr>
<td>傳 真 * ：</td>
<td><input name="fax" type="text" id="fax" value="<%=rs("fax")%>"></td>
</tr>
<tr>
<td>公司網址：</td>
<td><input name="url" type="text" id="url" value="<%=rs("url")%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重填"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
end if
else
set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from user where userid='"&request.Cookies("user_name")&"'"
rs.Open rs.Source,conn,1,3
if not rs.eof then
%>
<form method="post" action="?add=geren" >
<table width="590" border="0" align="center">
<tr>
<td width="33%"> </td>
<td width="67%"><p><strong>會員資料修改 </strong></p></td>
</tr>
<tr>
<td>身份證號 * ：</td>
<td><p>
<%=rs("yinye")%>
</p>
</td>
</tr>
<tr>
<td>真實姓名 * ：</td>
<td><p>
<%=rs("contact")%>
</p>
</td>
</tr>
<tr>
<td>登入密碼 * ：</td>
<td><input name="pass1" type="password" id="pass1" value="<%=rs("pass1")%>">
<br>
6-14 位并只能由字母和數字組成。 </td>
</tr>
<tr>
<td>確認密碼 * ：</td>
<td><input name="pass2" type="password" id="pass2" value="<%=rs("pass1")%>"> </td>
</tr>
<tr>
<td>住所 * ：</td>
<td><input name="address" type="text" id="address" value="<%=rs("address")%>"></td>
</tr>
<tr>
<td>E-mail* ：</td>
<td><input name="email" type="text" id="email" value="<%=rs("email")%>">
請正確填寫，以備忘記密碼時用。 </td>
</tr>
<tr>
<td>電 話 * ：</td>
<td><input name="tel" type="text" id="tel" value="<%=rs("tel")%>">
固話、小靈通、手機均可。 </td>
</tr>
<tr>
<td>傳 真 * ：</td>
<td><input name="fax" type="text" id="fax" value="<%=rs("fax")%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重填"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
end if
rs.close
set rs=nothing
end if%>
</TD>
</TR>
</TABLE>
<!-- #include file="footer.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -