?? edit_user.asp
字號:
<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─ 風(fēng)云ASP在線 ────────────────────────┐
'│ │
'│ 作者：趙振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系統(tǒng)開發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)！│
'│ │
'│【版權(quán)聲明】 │
'│ │
'│ 本程序版權(quán)歸坐看風(fēng)云所有，未經(jīng)授權(quán)擅自修改、復(fù)制或散布本程序│
'│ │
'│的部分或全部，將承受嚴(yán)厲的民事和刑事處罰，對已知的違反者將給予法 │
'│ │
'│律范圍內(nèi)的全面制裁。對非法使用此程序所造成的一切后果本人概不負(fù)責(zé)!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<html>
<head>
<title><% = strSiteName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="交友, 征友, 速配, 約會, 聊天, 征婚, 婚介, 愛情, 友情, 友誼, 朋友, 伙伴, 情人, 伴侶, 同性, 異性, 女人, 男士, 女士, 男孩, 女孩, 帥哥, 美女, 單身, 獨(dú)身, 性感, 浪漫, 激情, 手機(jī)交友, 手機(jī), 短信, 彩信, 鈴聲, 圖片, 照片, 靚照, 貼圖, 語音, 視頻, 搜索, 文章, 商城" name="KEYWORDS">
<link href="Common/Style.css" type="text/css" rel="stylesheet">
</head>
<meta http-equiv="Content-Language" content="zh-cn">
<script language="javascript">
//檢查email的合法性
function checkemail(inputstr){
if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
return true;
else
return false;
}
//檢驗(yàn)表單的合法性
function FeedBack() {
if (document.edituser.RealName.value == "") {
alert("\請正確填寫您的真實(shí)姓名！");
document.edituser.RealName.focus();
}
else if (document.edituser.Password.value == "") {
alert("\密碼不能為空！");
document.edituser.Password.focus();
}
else if ((document.edituser.Password.value).length<4) {
alert("\密碼至少4位！");
document.edituser.Password.focus();
}
else if (document.edituser.PasswordTwo.value != document.edituser.Password.value ) {
alert("\兩次輸入密碼不相同！");
document.edituser.PasswordTwo.focus();
}
else if (document.edituser.Email.value == "") {
alert("\E-Mail 不能為空！");
document.edituser.Email.focus();
}
else if (document.edituser.Email.value == "" || !checkemail(document.edituser.Email.value)) {
alert("\請正確填寫您的E-Mail！");
document.edituser.Email.focus();
}
else if (document.edituser.Add.value == "") {
alert("\請正確填寫您的聯(lián)系地址！");
document.edituser.Add.focus();
}
else {
return true;
}
return false;
}
</script><body topmargin="3" leftmargin="0">
<%
Dim inff
Dim rsd
Dim sql
inff=changechr(Request("id"))
set rsd = Server.CreateObject("ADODB.Recordset")
sql = "Select * From Dat_Member Where MemberKey = "&inff
rsd.Open sql,Conn,1,1
if not rsd.EOF then%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="379" height="64">
<form action="save_user.asp" name="edituser" method="POST" OnSubmit="return FeedBack()">
<input type="hidden" name="id" size="15" value="<%=inff%>" maxlength="40">
<tr>
<td width="80" height="25" align="right">
帳
號：</td>
<td width="290" height="25" align="left">
<input type="text" name="Member" size="20" maxlength="20" value="<% = rsd("Member")%>" readonly="ture"></td>
</tr><%if rsd("MemberType")=1 then%>
<tr>
<td width="80" height="25" align="right">
會員類型：</td>
<td width="290" height="25" align="left"> <font color="#FF0000">個(gè)人會員</font>
</td><tr>
<td width="80" height="25" align="right">
真實(shí)姓名：</td>
<td width="290" height="25" align="left">
<input type="text" name="RealName" size="20" maxlength="20" value="<% = rsd("RealName")%>"></td>
</tr><%else%><tr>
<td width="80" height="25" align="right">
會員類型：</td>
<td width="290" height="25" align="left"> <font color="#FF0000">企業(yè)會員</font>
</td><tr>
<td width="80" height="25" align="right">
公司名稱：</td>
<td width="290" height="25" align="left">
<input type="text" name="CompanyName" size="20" maxlength="20" value="<% = rsd("CompanyName")%>"></td>
</tr><%end if%>
</tr>
<tr>
<td width="80" height="25" align="right">
密
碼：</td>
<td width="290" height="25" align="left">
<input type="text" name="Password" value="<% = rsd("Password")%>"> <font color="#FF0000">**</font> [至少4位]</td>
</tr>
<tr>
<td width="80" height="25" align="right" valign="middle">
密碼確認(rèn)：</td>
<td width="290" height="25" align="left">
<input type="text" name="PasswordTwo" value="<% = rsd("Password")%>"> <font color="#FF0000">**</font></td>
</tr>
<tr>
<td width="80" height="25" align="right">
電
話：</td>
<td width="290" height="25" align="left">
<input name="Tel" type="text" size="20" maxlength="15" value="<% = rsd("Tel")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
傳
真：</td>
<td width="290" height="25" align="left">
<input name="Fax" type="text" size="40" maxlength="15" value="<% = rsd("Fax")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
網(wǎng)
址：</td>
<td width="290" height="25" align="left">
<input type="text" name="Homepage" size="40" maxlength="200" value="<% = rsd("Homepage")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
電子郵件：</td>
<td width="290" height="25" align="left">
<input type="text" name="Email" size="20" maxlength="6" value="<% = rsd("Email")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
聯(lián)系地址：</td>
<td width="290" height="25" align="left">
<input type="text" name="Add" size="20" maxlength="20" value="<% = rsd("Add")%>"></td>
</tr>
<tr>
<td width="80" height="25" align="right">
郵政編碼：</td>
<td width="290" height="25" align="left">
<input type="text" name="Postalcode" size="20" maxlength="20" value="<% = rsd("Postalcode")%>"></td>
</tr>
<tr>
<td width="377" height="35" colspan="2">
<p align="center"><input type="submit" value="提交修改" name="Submit" class="button"> <input type="reset" value="重新填寫" name="Reset" class="Button"> </td>
</tr>
</form>
</table>
</center>
</div><%else%><div align="center">
<table border="1" width="379" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td>
<p align="center"><font color="#FF0000">
對不起，您沒有登錄或超時(shí)或您的帳號被管理員鎖定，請重新登錄。</font></td>
</tr>
</table>
</div><%end if
rsd.Close
set rsd = nothing%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -