📄 admin_class.asp

📁 盗号用的
💻 ASP
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../Include/Md6.asp"-->
<%
If Session("AdminUserName") = "" Then
    Response.Write "<script>window.open('Login.asp','_parent');</script>"
	Response.End
End If 

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if  mid(server_v1,8,len(server_v2))<>server_v2  then
    response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！');location.href='../index.htm';</script>"
    Response.End
end If

Dim action,Id,Rs,Sql,ClassNam
action = Request("action")
Id = Request("Id")
ClassName = SafeStr(Request.Form("ClassName"))
If Not IsNumeric(Id) Or Id = "" Then
    Id = 0
End If 
If action = "Add" Then
    Set Rs = Conn.ExeCute("Select * From Class where ClassName='" & ClassName & "'")
	If Not (Rs.Eof Or Rs.Bof) Then
        Response.Write "<script>alert('您要添加的区域名称已存在！');location.href='admin_class.asp';</script>"
	    Response.End
	End If
	Set Rs = Nothing
    Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "Select * From Class"
	Rs.Open Sql,Conn,1,3
	Rs.AddNew
	Rs("ClassName") = ClassName
	Rs.Update
	Rs.Close
	Set Rs = Nothing
    Response.Write "<script>alert('区域名称添加成功！');location.href='admin_class.asp';</script>"
	Response.End
End If 
If action = "Edit" Then
    Set Rs = Conn.ExeCute("Select * From Class where id=" & Id)
	If Not (Rs.Eof Or Rs.Bof) Then
	    ClassName = Rs("ClassName")
		Set Rs = Nothing
	Else
	    Set Rs = Nothing
        Response.Write "<script>alert('您要修改的区域名称不存在！');location.href='admin_class.asp';</script>"
	    Response.End	
	End If
End If 
If action = "Save" Then
    Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "Select * From Class where id=" & Id
	Rs.Open Sql,Conn,1,3
	If Not (Rs.Eof Or Rs.Bof) Then
	    Rs("ClassName") = ClassName
		Rs.Update
		Rs.Close
		Set Rs = Nothing
        Response.Write "<script>alert('区域名称修改成功！');location.href='admin_class.asp';</script>"
	    Response.End
	Else
	    Set Rs = Nothing
        Response.Write "<script>alert('您要修改的区域名称不存在！');location.href='admin_class.asp';</script>"
	    Response.End	
	End If
End If
If action = "Del" Then
    Conn.Execute("Delete From Class where id=" & Id)
    Response.Write "<script>alert('区域名称删除成功！');location.href='admin_class.asp';</script>"
	Response.End
End If 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Name%>—后台管理</title>
<link href="../images/text.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="32"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" background="../images/bj3.jpg">区域名称管理</td>
  </tr>
  <tr>
    <td></td>
  </tr>
</table>
<br>
                <form id="form1" name="form1" method="post" action="admin_class.asp">
                  <table width="400" border=0 align="center" cellPadding=3 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
                    <tr>
                      <td width="100" align="right" valign="middle"><span class="font_red">区域名称：</span></td>
                      <td><input name="ClassName" type="text" class="inp1" id="ClassName" style="width:200px;" value="<%=ClassName%>" /></td>
                    </tr>
  
<%
If action = "Edit" Then
    Response.Write "<input name=""Id"" type=""hidden"" value=""" & Id & """ />"
    Response.Write "<input name=""action"" type=""hidden"" value=""Save"" />"
	Response.Write "<tr><td colspan=""2"" align=""center"" valign=""middle""><input class=btn type=""submit"" name=""submit"" value=""　修 改 选 区　""></td></tr>"
Else
    Response.Write "<input name=""action"" type=""hidden"" value=""Add"" />"
	Response.Write "<tr><td colspan=""2"" align=""center"" valign=""middle""><input class=btn type=""submit"" name=""submit"" value=""　添 加 选 区　""></td></tr>"
End If
%>	                    
                  </table>
</form><br />
<table width="600" border=1 align="center" cellPadding=3 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
  <tr bgcolor="#F5FBFE" align="center">
                    <td width="20%" align="center" valign="middle" class="td2">区域名称</td>
                    <td width="12%" align="center" valign="middle" class="td2">修改</td>
                    <td width="13%" align="center" valign="middle" class="td2">删除</td>
  </tr>

<%
Set Rs = Conn.Execute("Select * From Class Order By Id Asc")
Do While Not Rs.Eof
%>
                  <tr bgcolor="#FFFFFF" align="center">
                    <td align="left" valign="middle" class="td">&nbsp;<%=Rs("ClassName")%></td>
                    <td align="center" valign="middle" class="td"><a href="admin_class.asp?action=Edit&Id=<%=Rs("Id")%>">修改</a></td>
                    <td align="center" valign="middle" class="td"><a href="admin_class.asp?action=Del&Id=<%=Rs("Id")%>">删除</a></td>
                  </tr>
<%
    Rs.MoveNext
Loop
Set Rs = Nothing
%>
</table>
<br>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -