📄 reg_modi.asp
字号:
<TD vAlign=top align=middle bgColor=#e3e3e3
height=1></TD>
</TR>
</TABLE></TD>
<TD width=1 bgColor=#e3e3e3></TD>
<TD width="710" align=middle vAlign=top> <TABLE width=705 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=8></TD>
</TR>
<TR>
<TD vAlign=center align=middle
height=40><div align="center"><font color="#666666">您好!<font color="#FF0000"><%=session("loginid")%></font>,欢迎您来到会员管理中心!您可以按左边的菜单进行管理.</font></div></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=710 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1 bgColor=#d7d7d7></TD>
<TD vAlign=top align=middle bgColor=#fafafa>
<table width="710" height="221" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<table width="504" border="0" cellpadding="0" cellspacing="0" height="295">
<tr>
<td height="295" align="center" valign="top">
<form action="reg_modi_save.asp" method="post" name="reg" id="reg">
<%
userid=session("loginid")
sql="select * from company where userid='"&userid&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="700" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="34" class="white">
<div align="center">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td height="30"> <div align="center"><font color="#FF6600">用户注册个人信息</font></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF">
<div align="center">
<table width="705" height="155" border="0" cellpadding="2" cellspacing="1" bgcolor="#dfdfdf" class="blackbox" hspace="12">
<tr bgcolor="#f6f6f6" class="black">
<td width="87" height="12" align="right" valign="middle" bgcolor="#f4f4f4"> 真实姓名：</td>
<td width="399" height="24" bgcolor="#FFFFFF">
<input name="name" type="text" class="inputb" value="<%=trim(rs("name"))%>" size="16" maxlength="24">
<font color="#FF0000">
*</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">联系电话：</td>
<td height="12" bgcolor="#FFFFFF">
<input name="phone" type="text" class="inputb" value="<%=trim(rs("phone"))%>">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">E-mail：</td>
<td height="12" bgcolor="#FFFFFF">
<input name="email" type="text" class="inputb" value="<%=trim(rs("email"))%>" size="30">
<font color="#FF0000">
*</font><font color="#FF6600">(此项非常重要，请认真填写！）</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td width="87" height="12" align="right" valign="middle" bgcolor="#f4f4f4">密码提示问题：</td>
<td width="399" height="12" bgcolor="#FFFFFF">
<input name="question" type="text" class="inputb" value="<%=trim(rs("question"))%>" size="20" maxlength="28">
<font color="#FF0000">*</font>用于找回密码，提示的问题“您叫什么名字？”</td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td width="87" height="17" align="right" valign="middle" bgcolor="#f4f4f4"> 问题回答：</td>
<td width="399" height="17" bgcolor="#FFFFFF">
<input name="answer" type="text" class="inputb" value="<%=trim(rs("answer"))%>" size="20" maxlength="28">
<font color="#FF0000">*</font>您自设问题的答案,如您的答案是“小黄”
<input name="reg_type" type="hidden" id="reg_type" value="0"></td>
</tr>
</table></div>
</td>
</tr>
</table>
<br>
<%
end if
rs.close
%>
<input type="submit" name="Submit2" value=" 修 改 " onClick="javascript:return checkfield();">
<SCRIPT language=VBScript>
function checkfield()
if trim(reg.name.value)="" then
msgbox "请填写您的真实姓名！"
reg.name.focus
checkfield=false
exit function
end if
if trim(reg.phone.value)="" then
msgbox "请填写电话！"
reg.phone.focus
checkfield=false
exit function
end if
if trim(reg.email.value)="" then
msgbox "邮件不能为空！"
reg.email.focus
checkfield=false
exit function
else
str1=trim(reg.email.value)
if instr(str1,"@")=0 then
msgbox "邮件地址错误！"
reg.email.focus
checkfield=false
exit function
end if
end if
if trim(reg.question.value)="" then
msgbox "请填写密码提示问题！"
reg.question.focus
checkfield=false
exit function
end if
if trim(reg.answer.value)="" then
msgbox "请填写问题回答！"
reg.answer.focus
checkfield=false
exit function
end if
checkfield=true
end function
</SCRIPT>
</form></td>
</tr>
</table></td>
</tr>
</table></TD>
<TD width=1 bgColor=#d7d7d7></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=705 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</div>
</td>
</tr>
<tr>
<td height="45"><div align="center">
<!--#include file="../end.asp" -->
</div></td>
</tr>
</table>
</body>
</html>
<%
Set Rs=Nothing
CloseDataConn
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -