📄 class_new_edit2fly.asp
字号:
<!--#include file="conn.asp"-->
<%
if Session("adminopen")<>True then
Response.Write("您无权访问此页面")
Response.End()
end if
%>
<!--#include file="config.asp" -->
<%
dim action,username
action=Request("action")
IF Request("del")<>"" Then
Sql = "Delete From [class] Where class2flynumber='"&Request("del")&"'"
Conn.Execute(Sql)
Response.Redirect "class_new_edit2fly.asp"
End IF
if action="add2" then
class2flyadd=Request("class2flyadd")
class2flynumberadd=Request("class2flynumberadd")
set rs=server.CreateObject("adodb.recordset")
sql="select * from [class] where class2flynumber='"&class2flynumberadd&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<script language=javascript>"
response.write "alert('填写的编号已经存在，请重新填写。');"
response.write "</script>"
response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
Response.End
end if
rs.close
set rs=server.CreateObject("adodb.recordset")
sql="select * from [class]"
rs.open sql,conn,3,2
rs.addnew
rs("class2fly")=trim(request("class2flyadd"))
rs("class2flynumber")=trim(request("class2flynumberadd"))
rs.update
rs.close
response.write "<script language=javascript>"
response.write "alert('添加成功。');"
response.write "</script>"
response.write "<script language=javascript>location='class_new_edit2fly.asp'</script>"
Response.End
end if
if action="add" then action="add2"
if action="edit" then
class2fly=Request("class2fly")
class2flynumber=Request("class2flynumber")
class2flynumber2=Request("class2flynumber2")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from [class] where class2flynumber='"&class2flynumber2&"'"
rs.open sql,conn,1,3
rs("class2fly")=trim(request("class2fly"))
rs("class2flynumber")=trim(request("class2flynumber"))
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>"
response.write "alert('修改成功。');"
response.write "</script>"
response.write "<script language=javascript>location='class_new_edit2fly.asp'</script>"
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>2Fly通讯录 用户 管理程式</title>
<link href="site.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body>
<!--#include file="top2fly.asp" -->
<br>
<table width="720" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor=7285CF>
<td bgcolor="7285CF"> <div align="left"><font color="#FFFFFF"> </font></div></td>
<td bgcolor="7285CF"> </td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> </font></td>
<td bgcolor="7285CF"> <div align="left"><font color="#FFFFFF"> </font></div></td>
<td bgcolor="7285CF"> </td>
</tr>
<%
' if action="open" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [class] ORDER BY class2fly"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<br><div align=center><font color=ff0000>目前还没有任何用户!</font></div><br>"
else
do while not rs.eof
class2fly=rs("class2fly")
class2flynumber=rs("class2flynumber")
%>
<form action="class_new_edit2fly.asp" method="post" name="form" >
<tr>
<td bgcolor="#E7E7E7"><div align="right"><font color="#000000">名称</font></div></td>
<td bgcolor="F2F2F2">
<input name="class2fly" type="text" class="editbox2" id="class2fly" value="<%=class2fly%>" size="25" title="<%=Name2fly%>">
</td>
<td bgcolor="#E7E7E7"><div align="right">编码</div></td>
<td bgcolor="F2F2F2"> <input name="class2flynumber" type="text" class="editbox2" id="class2flynumber" value="<%=class2flynumber%>" size="25" title="<%=Name2fly%>">
<input name="class2flynumber2" type="hidden" id="class2flynumber2" value="<%=class2flynumber%>"></td>
<td colspan="2" bgcolor="#E7E7E7"><div align="center">
<input name="action" type="hidden" id="action" value="edit">
<input name="Submit" type="submit" value="修改">
<input name="Submit1" type="reset" value="重填">
<a href='?del=<%=class2flynumber%>' onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">删除</a> </div>
</td>
</tr>
</form>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
<form action="class_new_edit2fly.asp" method="post" name="form" >
<tr>
<td bgcolor="F2F2F2"><div align="right"><font color="#000000">名称</font></div></td>
<td bgcolor="F2F2F2">
<input name="class2flyadd" type="text" class="editbox2" id="class2flyadd" size="25" title="<%=Name2fly%>">
</td>
<td bgcolor="#F2F2F2"><div align="right">编码</div></td>
<td bgcolor="F2F2F2">
<input name="class2flynumberadd" type="text" class="editbox2" id="class2flynumber3" size="25" title="<%=Name2fly%>"></td>
<td colspan="2" bgcolor="#F2F2F2"><div align="center">
<input name="action" type="hidden" id="action" value="add2">
<input type="submit" name="Submit3" value="添加 新 数据">
</div></td>
</tr>
</form>
</table>
<div align="center">
<table width="720" height="29" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="22">
<!--#include file="food_2fly.asp" -->
</td>
</tr>
</table>
<br>
<a href="http://2fly.cn" target="_blank"><img src="img/power.gif" alt="2Fly工作室 官方网站" width="108" height="24" border="0"></a>
</div>
</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -