📄 admin_st_edit1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
%>
<!--#include file="conn.asp" -->
<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>
<%
dim id
dim sqltxt
id=trim(request("keywords"))
if id<>"" then
sqltxt="select * from stinfor where st_name='"&id&"'"
set rs1 = conn.execute(sqltxt)
%>
<form action="st_modify.asp" method=post name="frmRegister">
<table width="100%" height=183 border=1 cellpadding="0" cellspacing=0 bordercolor="#009900" style='WORD-BREAK: break-all; border-collapse:collapse'>
<tbody>
<tr>
<td align=right height=25 width="21%">社团名称：</td>
<td height=25 width="79%"> <input name="txt_name" type="text" id="txt_name" value="<%=rs1("st_name")%>">
<input name="txt_id" type="hidden" id="txt_id" value="<%=rs1("st_id")%>">
<input name="txt_date" type="hidden" id="txt_date" value="<%=rs1("st_date")%>">
<input name=txt_state type="hidden" id="txt_state" value="<%=rs1("st_state")%>" size=15 maxLength=10>
<input name=txt_prename type="hidden" id="txt_prename" value="<%=rs1("st_name")%>" size=15 maxLength=10>
</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 height=18 width="79%"> <input name="cmdOK" type="button" value=确定修改>
<input name="cmddel" type="button" id="cmddel" value=重新来过> </td>
</tr>
</tbody>
</table>
</form>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if frmRegister.txt_name.value="" then
alert "提示: 请输入你要使用的社团名称!"
frmRegister.txt_name.focus
else
if frmRegister.txt_pwd.value="" then
alert "提示: 请输入你要使用的管理密码!"
frmRegister.txt_pwd.focus
else
if frmRegister.txt_state.value="" then
alert "提示: 社团状态不能为空!"
frmRegister.txt_state.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 if
end if
end sub
</SCRIPT>
<%
rs1.Close()
Set rs1 = Nothing
else
response.write("未知来源")
%>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -