📄 hz_st_edit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.Cookies("user")<>"会长" then
response.Write("未知来源！请先登陆！")
response.End()
end if
%>
<!--#include file="conn.asp" -->
<%
shtname=request.cookies("stname")
sqltxt="select * from stinfor where st_name='"&shtname&"'"
set rs1 = conn.execute(sqltxt)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body>
<table width="100%" height=183 border=1 cellpadding="0" cellspacing=0 bordercolor="#009933" bgcolor="#E7FDE3" style='WORD-BREAK: break-all; border-collapse:collapse'>
<form action="hz_st_modify.asp" method=post name="frmRegister"> <tbody>
<tr>
<td align=right height=25 width="21%">社团名称：</td>
<td height=25 width="79%"> <%=rs1("st_name")%>
</td>
</tr>
<tr>
<td align=right height=18 width="21%">社团简介：</td>
<td height=18 width="79%"> <textarea name=txt_jj cols=49 rows=8 id="txt_jj"><%=rs1("st_jj")%></textarea></td>
</tr>
<tr>
<td align=right height=18 width="21%">管理帐号：</td>
<td height=18 width="79%"> <input name=txt_ren id="txt_ren" value="<%=rs1("st_ren")%>" size=15 maxLength=15>
</td>
</tr>
<tr>
<td align=right height=18 width="21%">管理密码：</td>
<td height=18 width="79%"> <input name=txt_pwd type="text" id="txt_pwd" value="<%=rs1("st_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=txt_phone id="txt_phone" value="<%=rs1("st_phone")%>" size=30 maxLength=20>
<font color=#ff0000> </font></td>
</tr>
<tr>
<td align=right height=18 width="21%">宿舍号：</td>
<td height=18 width="79%"> <input name=txt_address id="txt_address" value="<%=rs1("st_address")%>" size=30 maxLength=50>
</td>
</tr>
<tr>
<td align=right height=18 width="21%">所在院系专业：</td>
<td height=18 width="79%"> <input name=txt_zhy id="txt_zhy" value="<%=rs1("st_zhy")%>" size=30 maxLength=50>
</td>
</tr>
<tr>
<td align=right height=18 width="21%">电子邮箱：</td>
<td height=18 width="79%"> <input name=txt_email id="txt_email" value="<%=rs1("st_email")%>" size=30 maxLength=50>
</td>
</tr>
<tr>
<td align=right height=18 width="21%"></td>
<td width="79%" height=18 align="center">
<input name="cmdOK" type="button" value=确定修改> </td>
</tr>
</tbody> </form>
</table>
<%
rs1.Close()
Set rs1 = Nothing
%>
</body>
</html>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if frmRegister.txt_pwd.value="" then
alert "提示: 请输入你要使用的管理密码!"
frmRegister.txt_pwd.focus
else
if frmRegister.txt_jj.value="" then
alert "提示: 请填写社团简介!"
frmRegister.txt_jj.focus
else
if frmRegister.txt_ren.value="" then
alert "提示: 请填写你要使用的真实姓名!"
frmRegister.txt_ren.focus
else
if frmRegister.txt_zhy.value="" then
alert "提示: 请填写你要使用的专业!"
frmRegister.txt_zhy.focus
else
if frmRegister.txt_email.value="" then
alert "提示: 请输入你要使用的联系邮箱!"
frmRegister.txt_email.focus
else
if instr(1,frmRegister.txt_email.value,"@")<2 then
alert "提示; 你要使用的联系邮箱不对!"
frmRegister.txt_email.focus
else
if trim(mid(frmRegister.txt_email.value,instr(1,frmRegister.txt_email.value,"@")+1,1))="" or trim(mid(frmRegister.txt_email.value,instr(1,frmRegister.txt_email.value,"@")+1,1))="." then
alert "提示: 你要使用的联系邮箱不对!"
frmRegister.txt_email.focus
else
if frmRegister.txt_phone.value="" then
alert "请填写你要使用的联系电话！"
frmRegister.txt_phone.focus
else
if frmRegister.txt_address.value="" then
alert "提示: 请填写你要使用的宿舍号!"
frmRegister.txt_address.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 sub
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -