admin_class.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<!--#include file="head.asp"-->
<!--#include file="AdminSession.asp"-->
<br><br>
<%
Select case Request("method")
	Case 1
		Call AddClass()
	Case 2
		Call DelClass()
	Case 3
		Call EditClass()
End Select

sub AddClass()
	if Trim(Request.form("Classname")) = "" then
		Response.Write("<script>alert(""请输入的名称。"");location.href=""admin_Class.asp"";</script>")
		Response.End()
	end if

	Classname = checkStr(Request.form("Classname"))

	Conn.execute("insert into SiteType (TypeName) values('"& Classname &"')")
	Response.write "<script>alert(""添加成功"");location.href=""admin_Class.asp"";</script>"
	Response.end
end sub

Sub DelClass()
	if Trim(Request.form("classid")) = "" then
		Response.Write("<script>alert(""发生错误,编号为ERROR-1008.请联系合金网络科技。"");location.href=""admin_Class.asp"";</script>")
		Response.End()
	end if
	classid = Request.form("classid")
	Conn.execute("Delete from SiteType where Id in ("& classid &")")
	Conn.execute("update Users set SiteType=0 where SiteType in ("& classid &")")
	Response.write "<script>alert(""删除成功"");location.href=""admin_Class.asp"";</script>"
	Response.end
End Sub

Sub EditClass()
	if Trim(Request.form("Classname")) = "" then
		Response.Write("<script>alert(""请选择要修改的网站类别的名称。"");location.href=""admin_Class.asp"";</script>")
		Response.End()
	end if 

	if Request.form("classId") = "" then
		Response.Write("<script>alert(""发生错误,编号为ERROR-1007.请联系合金网络科技。"");location.href=""admin_Class.asp"";</script>")
		Response.End()
	end if

	Classname = checkStr(Request.form("Classname"))
	classId = Request.form("classId")
	
	Conn.execute("Update SiteType set TypeName='"& Classname &"' where Id = " & classId)
	Response.write "<script>alert(""修改成功"");location.href=""admin_Class.asp"";</script>"
	Response.end
End Sub

Id = Request("Id")
if Id<>"" then
sql="select * from SiteType where Id="&Id
	set rs=conn.execute (sql)
	if not rs.eof then
		TypeNameR=rs("TypeName")
		rs.close
	end if
end if
%>
<table width="95%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#0099CC">
    <tr> 
      <td height="30" colspan="2" align="center" bgcolor="e9effe">
	  <b><%if Id<>"" then response.write "修 改 " else response.write "添 加 " end if%> 网 站 类 别</b> </td>
    </tr>
	<form name="form1" method="post" action="">
    <tr> 
      <td width="15%" height="25" colspan="2" align="center" valign="middle" bgcolor="e9effe"><font color=0000ff></font>名称：
        <input name="Classname" type="text" value="<%=TypeNameR%>" size="30" maxlength="255" />
        &nbsp;
        <input type="submit" name="submit" value="提交" class="tbutton"></td>
      <input type="hidden" name="classId" value="<%=Id%>">
    </tr>
	<%
	if Id = "" then
		Response.write "<input type=hidden name=method value=1>"
	else
		Response.write "<input type=hidden name=method value=3>"
	end if
	%>
	</form>
  <tr> 
    <td width="15%" height="25" align="center" valign="middle" bgcolor="e9effe">ID</td>
      
    <td width="85%" height="25" align="center" valign="middle" bgcolor="e9effe">网站类别名称</td>
  </tr>
	<form name="form2" method="post" action="">
	<%
	Sql = "Select Id,TypeName from SiteType order by Id asc"
	set rs = conn.execute(sql)
	if not rs.eof then
		do while not rs.eof
	%>
	<tr> 
      <td width="15%" height="25" align="center" valign="middle" bgcolor="e9effe"><%=rs(0)%></td>
      <td width="85%" height="25" valign="middle" bgcolor="e9effe">
		<input name="classid" type="checkbox" id="classid" value='<%=rs(0)%>'>&nbsp;
		<a href="admin_Class.asp?Id=<%=rs(0)%>"><%=rs(1)%></a></td>
    </tr>
	<%
		rs.movenext
		loop
	else
		Response.write "<tr><td align=center colspan=2 height=25>还没有添加网站类别</td></tr>"
	end if
		rs.close
	%>
	<tr>
	  <td height=25 align=center bgcolor="e9effe">删除操作</td>
	  <td height=25 bgcolor="e9effe"> 全部选择 
        <input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)">
		<input onClick="{if(confirm('此操作同时将会把此分类下的网站类别设为空，请谨慎操作！\n\n确定要执行此项操作吗？')){this.document.form2.submit();return true;}return false;}" type=submit value=删除 name=action2 class="tbutton"> 
              <input type="Hidden" name="method" value="2"> 
              <font color="#FF0000">此操作同时将会把此分类下的网站类别设为空，请谨慎操作。</font>
	  </td>
	</tr>
	</form>
</table>
<SCRIPT language=javascript>
	var menu=new Array(["网站类别操作管理"]);
	drawMenu(menu);
	setFrameActive();
</SCRIPT>