📄 hy_modify.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.Cookies("user")="" then
response.Write("未知来源！请先登陆！")
response.End()
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
hynch=request.Cookies("user")
set rs=server.createobject("adodb.recordset")
sqltext="select * from hydsh where hy_nch='"&hynch&"'"
rs.open sqltext,conn,3,3
%>
<html>
<head>
<title>资料修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="10" vlink="#003399" alink="#CCCCCC">
<div align="right"> </div>
<table width="606" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#009900" bgcolor="#00CC00">
<tr valign="top" bgcolor="#FFFCEC">
<td width="604" bgcolor="#E7FDE3">
<form action=hy_modify_ok.asp method=post name="frmRegister">
<table border=0 cellspacing=1 height=183 width="100%" cellpadding="0">
<tbody>
<tr>
<td align=right height=18 width="21%">会员呢称：</td>
<td height=18 width="79%"> <input type="hidden" name=txtnch id="txtnch" value="<%=rs("hy_nch")%>" size=15 maxLength=15>
<%=rs("hy_nch")%> <font color=#ff0000>*</font><font color="#009999"> </font></td>
</tr>
<tr>
<td align=right height=18 width="21%">密码：</td>
<td height=18 width="79%"> <input name=txtPass type="text" value="<%=rs("hy_pwd")%>" size=15 maxLength=10>
<font color=#ff0000>*</font><font color="#009999"><span class=tips_reg style="FONT-SIZE: 9pt">1--10
字符，只允许数字和英文字母</span>.</font></td>
</tr>
<tr>
<td align=right height=18 width="21%">确认密码：</td>
<td height=18 width="79%"> <input name=txtRepass type="text" value="<%=rs("hy_pwd")%>" size=15 maxLength=10>
<font color=#ff0000>*</font></td>
</tr>
<tr>
<td align=right height=18 width="21%">真实姓名：</td>
<td height=18 width="79%"> <input type="hidden" name=txtname id="txtname" value="<%=rs("hy_name")%>" size=10 maxlength=10>
<%=rs("hy_name")%> <font color=#ff0000>*</font><font color="#000000"> </font></td>
</tr>
<tr>
<td align=right height=18 width="21%">学号：</td>
<td height=18 width="79%"> <input name=txtnumber id="txtnumber" value="<%=rs("hy_number")%>" size=10 maxLength=10>
<font color=#ff0000>*<span class=tips_reg style="FONT-SIZE: 9pt"></span></font></td>
</tr>
<tr>
<td align=right height=18 width="21%">院系专业班级：</td>
<td height=18 width="79%"> <input name=txtzy id="txtzy" value="<%=rs("hy_zy")%>" size=30 maxLength=50>
<font color=#ff0000>*</font></td>
</tr>
<tr>
<td align=right height=18 width="21%">宿舍：</td>
<td height=18 width="79%"> <input name=txtaddress id="txtaddress" value="<%=rs("hy_address")%>" size=30 maxLength=50>
<font color=#ff0000>*</font> </td>
</tr>
<tr>
<td align=right height=18 width="21%">性别：</td>
<td height=18 width="79%"> <input type="hidden" name="txtsex" value="<%=rs("hy_sex")%>">
<%=rs("hy_sex")%></td>
</tr>
<tr>
<td align=right height=18 width="21%">联系电话：</td>
<td height=18 width="79%"> <input name=txtphone id="txtphone" value="<%=rs("hy_phone")%>" size=15 maxLength=15>
<font color=#ff0000>*</font> </td>
</tr>
<tr>
<td align=right height=18 width="21%">出生年月日：</td>
<td height=18 width="79%"> <input name=txtbirthday id="txtbirthday" value="<%=rs("hy_birthday")%>" size=11 maxLength=11>
<font color=#ff0000>*</font> <font color=#ff0000><span class=tips_reg style="FONT-SIZE: 9pt"><font color="#009999">格式：1983-08-17</font></span></font></td>
</tr>
<tr>
<td align=right height=18 width="21%">电子邮箱：</td>
<td height=18 width="79%"> <input name=txtEmail id="txtEmail" value="<%=rs("hy_email")%>" size=30 maxLength=50>
<font color=#ff0000>*</font></td>
</tr>
<tr>
<td align=right height=18 width="21%">备注：<br>
（<font color="#009999">如：特长、爱好等</font>） <br> </td>
<td height=18 width="79%"> <textarea name=txtjl cols=49 rows=8 id="txtjl" ><%=rs("hy_jl")%></textarea>
</td>
</tr>
<tr>
<td align=right height=18 width="21%"></td>
<td height=18 width="79%"> <input name="cmdOK" type="button" value=提交资料>
<input name="cmdReset" type="reset" value=重置资料>
</td>
</tr>
</tbody>
</table>
</form></td>
</tr>
</table>
<%
rs.close
conn.close
%>
</body>
</html>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if frmRegister.txtnch.value="" then
alert "提示: 请输入会员呢称!"
frmRegister.txtnch.focus
else
if frmRegister.txtnch.value= "管理员" or frmRegister.txtnch.value= "会长" then
alert "提示: 非法呢称!"
frmRegister.txtnch.focus
else
if frmRegister.txtPass.value="" then
alert "提示: 请输入密码!"
frmRegister.txtPass.focus
else
if frmRegister.txtRepass.value<>frmRegister.txtPass.value then
alert "提示: 两次密码不相符,请重新确认密码!"
frmRegister.txtRepass.focus
else
if frmRegister.txtname.value="" then
alert "提示: 请输入你的真实姓名!"
frmRegister.txtname.focus
else
if frmRegister.txtnumber.value="" then
alert "提示: 请输入你的学号!"
frmRegister.txtnumber.focus
else
if frmRegister.txtzy.value="" then
alert "提示: 请输入你的专业!"
frmRegister.txtzy.focus
else
if frmRegister.txtaddress.value="" then
alert "提示: 请输入你的宿舍地址!"
frmRegister.txtaddress.focus
else
if frmRegister.txtEmail.value="" then
alert "提示: 请输入你的联系邮箱!"
frmRegister.txtEmail.focus
else
if instr(1,frmRegister.txtEmail.value,"@")<2 then
alert "提示; 你的联系邮箱不对!"
frmRegister.txtEmail.focus
else
if trim(mid(frmRegister.txtEmail.value,instr(1,frmRegister.txtEmail.value,"@")+1,1))="" or trim(mid(frmRegister.txtEmail.value,instr(1,frmRegister.txtEmail.value,"@")+1,1))="." then
alert "提示: 你的联系邮箱不对!"
frmRegister.txtEmail.focus
else
if frmRegister.txtphone.value="" then
alert "请输入你的联系电话！"
frmRegister.txtphone.focus
else
if frmRegister.txtbirthday.value="" then
alert "提示:请输入你的生日!"
frmRegister.txtbirthday.focus
else
if confirm("确定提交你的资料吗?") then
call frmRegister.submit()
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end sub
</SCRIPT> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -