📄 user_edit.asp
字号:
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
<TBODY>
<TR> <td><!--#include file="top.asp"-->
<!--#include file="inc/UserChk.asp"-->
<!--#include file="inc/msgbox.asp"-->
<!--#include file="inc/formchk.asp"-->
<script language="javascript">
<!--
function check_null()
{
if (form1.user_qq.value=="")
{
alert("请输入qq号");
form1.user_qq.focus()
return false;
}
if (form1.user_qq.value.length < 5)
{
alert("请正确填写您的qq号码！您的虚拟形象就靠它啦！");
form1.user_qq.focus();
return (false);
}
if (form1.user_qq.value.length > 12)
{
alert("请正确填写您的qq号码！您的虚拟形象就靠它啦！");
form1.user_qq.focus();
return (false);
}
if (form1.user_email.value=="")
{
alert("请输入mail");
form1.user_email.focus()
return false;
}
if(form1.user_email.value.length!=0)
{
if (form1.user_email.value.charAt(0)=="." ||
form1.user_email.value.charAt(0)=="@"||
form1.user_email.value.indexOf('@', 0) == -1 ||
form1.user_email.value.indexOf('.', 0) == -1 ||
form1.user_email.value.lastIndexOf("@") ==form1.user_email.value.length-1 ||
form1.user_email.value.lastIndexOf(".") ==form1.user_email.value.length-1)
{
alert("只有正确的邮件地址才能获得本站相应服务");
form1.user_email.focus();
return false;
}
}
return true;
}
//-->
</script>
<%
IF Trim(Request("Submit"))<>Empty Then
Dim user_sex,user_qq,user_email,user_home,sign,user_realname,userface
user_sex=encodestr(request.Form("user_sex"))
user_qq=encodestr(request.Form("user_qq"))
user_email=encodestr(request.Form("user_email"))
user_home=encodestr(request.Form("user_home"))
userface=request.Form("userface")
user_realname=encodestr(request.Form("user_realname"))
sign=encodestr(request.Form("sign"))
set rs=server.CreateObject("adodb.recordset")
strsql="select * from [user_info] where user_id="&session("user_id")&""
rs.open strsql,conn,1,3
rs("user_sex")=user_sex
rs("user_qq")=user_qq
rs("user_email")=user_email
rs("user_home")=user_home
rs("sign")=sign
rs("userface")=userface
rs("user_realname")=user_realname
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
call msgbox("修改成功","GoUrl","user_Edit.asp")
response.End()
End IF
if len(sign)>200 then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('签名档不能多于200字！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
Response.End
end if
Dim StrSql,Rs
Set Rs=Server.CreateObject("adodb.recordset")
strsql="select * from [user_info] where user_id="&session("user_id")&""
rs.open strsql,conn,1,1
%>
<TABLE width=760 border=0 align=center cellSpacing=0 cellPadding=0>
<TBODY>
<TR> <td width=176 valign=top>
<!--#include file="center.asp"--></td>
<td bgcolor="#dfdfdf" width="1"></td>
<TD align="center" vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="550" border=0 class=page>
<TBODY>
<TR>
<TD><form name="form1" method="post" action="" onsubmit="javascript:return check_null();">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgColor=#C0C0C0>
<tr>
<td width="96%" bgcolor="#FFFFFF" colspan="2">
<img border="0" src="images/news.gif" width="15" height="15"> 资料修改</td>
</tr>
<tr>
<td width="11%" bgcolor="#FFFFFF" align="center">说明：</td>
<td width="85%" bgcolor="#FFFFFF">你所填写的信息越详细，那么你的[<font color=red>信用度</font>]就越高。</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">
帐号：</div></td>
<td bgcolor="#FFFFFF"><%=session("user_Name")%>
<font color="#FF0000">*最多5个字</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">姓名：</div></td>
<td bgcolor="#FFFFFF"><input name="user_realname" type="text" class="input2" id="user_realname" value="<%=rs("user_realname")%>" size="30" style="ime-mode:disabled"> <font color=red>*显示店铺掌柜</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">性别：</div></td>
<td bgcolor="#FFFFFF"><select name="user_sex" id="user_sex">
<option value="<%=rs("user_sex")%>" selected><%=rs("user_sex")%>生</option>
<option value="男">男生</option>
<option value="女">女生</option>
</select></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">头像：</div></td>
<td bgcolor="#FFFFFF"><img src="<%=rs("userface")%>" name="tus" width=32 height=32> <script>function showimage(){document.images.tus.src=""+document.form1.userface.options[document.form1.userface.selectedIndex].value+"";}</script><select name=userface size=1 id=userface onChange="showimage()">
<option value="<%=rs("userface")%>">默认</option>
<script>
for(i=1;i<=45;i++) {
document.write("<option value='img/face/"+i+".gif'>"+i+"</option>")
}
</script>
</select></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">QQ号：</div></td>
<td bgcolor="#FFFFFF"><input name="user_qq" type="text" class="input2" id="user_qq" value="<%=rs("user_qq")%>" size="30" style="ime-mode:disabled"> <font color=red>*网站上显示你是否在qq上</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">信箱：</div></td>
<td bgcolor="#FFFFFF"><input name="user_email" type="text" class="input2" id="user_email" value="<%=rs("user_email")%>" size="30" style="ime-mode:disabled" maxlength="20">
<font color="#FF0000">*最多20个字</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">主页：</div></td>
<td bgcolor="#FFFFFF"><input name="user_home" type="text" class="input2" id="user_home" value="<%=rs("user_home")%>" size="30" maxlength="60">
<font color="#FF0000">*最多60个字</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><div align="right">签名档：</div></td>
<td bgcolor="#FFFFFF"><textarea name=sign rows=5 cols=65><%=rs("sign")%></textarea>
<font color="#FF0000">*最多200个字</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" class=input value="修改"></td>
</tr>
</table>
</form></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
</TD>
</TR>
</TBODY>
</TABLE>
<%
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -