📄 admin_edit.asp

📁 ASPkaifa 11111111111111111111111
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<%
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from admin"
	rsUser.open sqltext,conn,3,3
%>
<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>

<form name="form1" method="post" action="admin_editok.asp">

  <table width="100%" border="1" cellspacing="0" bordercolor="#009900">
    <tr> 
      <td align="right">帐号：</td>
    <td><input name="txtname" type="text" id="txtname" value="<%=rsUser("admin_name")%>" size="15" maxlength="15"></td>
  </tr>
  <tr> 
      <td align="right">密&nbsp; 码:</td>
    <td><input name="txtpwd" type="text" id="txtpwd2" value="<%=rsUser("admin_pwd")%>" size="15" maxlength="15"></td>
  </tr>
  <tr> 
      <td align="right">Email：</td>
    <td><input name="txtemail" type="text" id="txtemail3" value="<%=rsUser("admin_email")%>" size="20" maxlength="30"></td>
  </tr>
  <tr>
      <td align="right">&nbsp;</td>
    <td><input name="cmdOK" type="button" id="cmdOK2" value="修改">
      <input name="cmdNo" type="reset" id="cmdNo" value="重置"></td>
  </tr>
</table>

</form></body>
</html>
<%
		rsUser.close
		conn.close
%>
<SCRIPT language=VBScript>   
    sub cmdOK_OnClick   
		if form1.txtname.value="" then   
			alert "提示: 请输入管理帐号!"   
			form1.txtname.focus    
		else   
			if form1.txtpwd.value="" then   
				alert "提示: 请输入管理密码!"   
				form1.txtpwd.focus    
			else   
                  if form1.txtemail.value="" then   
										alert "提示: 请输入你的联系邮箱!"   
										form1.txtemail.focus    
									else   
										if instr(1,form1.txtemail.value,"@")<2 then   
											alert "提示; 你的联系邮箱不对!"   
											form1.txtemail.focus    
										else   
											if trim(mid(form1.txtemail.value,instr(1,form1.txtemail.value,"@")+1,1))="" or trim(mid(form1.txtemail.value,instr(1,form1.txtemail.value,"@")+1,1))="." then   
												alert "提示: 你的联系邮箱不对!"   
												form1.txtemail.focus    
		                                      	else   
														 if confirm("确定修改你的资料吗?") then   
																	call form1.submit()   
															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 + -