admin_tagmanage.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="setup.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!--#include file="../WoLib/Function.asp"-->
<%
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")	
if UserRoleID <> 1 then Alert("您没有权限进入后台")
action 		= request("action")
	act 		= request("act")
	Tag_ID  	= Request("Tag_ID")
	
	Set Rs = Server.CreateObject("ADODB.Recordset")
	if action = "add" then
		sql = "Select * from Wo_Tags where 1>2"
		Rs.open Sql,conn,1,2
		Rs.AddNew
			Rs("Tag_TypeID")	= 1
			Rs("Tag_Name") 		= Request("Tag_Name")
			Rs("Tag_IsUse") 	= Request("Tag_IsUse")
			Rs("Tag_OrderBy") 	= Request("Tag_OrderBy")	
		Rs.Update
		if err.number = 0 then
			Response.Redirect("Admin_TagManage.asp")
			Response.end
		end if
	elseif action = "edit" then
		sql = "Select * from Wo_Tags where Tag_ID="&Request("Tag_ID")
		Rs.open Sql,conn,1,2
		if not Rs.eof then
			Rs("Tag_Name") 		= Request("Tag_Name")
			Rs("Tag_IsUse") 	= Request("Tag_IsUse")
			Rs("Tag_OrderBy") 	= UCase(Request("Tag_OrderBy"))			
			Rs.Update
		end if
		if err.number = 0 then
			Response.Redirect("Admin_TagManage.asp")
			Response.end
		end if	
	elseif action = "del" then
		Sql = "Delete From Wo_Tags Where Tag_ID="&Tag_ID
		Conn.execute(Sql)
		Response.Redirect("Admin_TagManage.asp")
		Response.end
	end if
	
	if act = "edit" then
		Sql = "Select * from Wo_Tags Where Tag_ID="&Tag_ID
		Rs.open Sql,conn,1,2
		if not Rs.eof then
			Tag_ID			= Rs("Tag_ID")
			Tag_Name 		= Rs("Tag_Name")
			Tag_IsUse 		= Rs("Tag_IsUse")
			Tag_OrderBy 	= Rs("Tag_OrderBy")			
		end if
		Rs.Close
		Set Rs = Nothing
	end if
	if act = "" then act = "add"
%>

<script language="javascript">
<!--
	function frm_onsubmit(frm){
		var frm = eval(frm);
		if(frm.Tag_Name.value==""){
			alert("标签名称不能为空！");
			frm.Tag_Name.focus();
			return false;
		}
		if(frm.Tag_OrderBy.value=="" || isNaN(frm.Tag_OrderBy.value)){
			alert("标签的排序不能为空，且只能为数字!");
			frm.Tag_OrderBy.focus();
			return false;
		}
		if(confirm("您确定要操作此标签吗？")){
			return true;
		}
		return false;
	}
	
	function isDel(id){
		if(confirm("您确定要删除此标签吗？")){
			location.href="Admin_TagManage.asp?Action=del&Tag_ID="+id;
		}
	}
-->
</script>
<link href="Img/Admin.css" rel="stylesheet" type="text/css">

<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
      <td>			  
			<table cellspacing=1 cellpadding=0 width=100% id=CommonListArea>
			  <tr id=CommonListTitle3> 
			  	<td align="center">编号</td>
				<td align="center">页面名称</td>
				<td align="center">是否使用</td>
				<td align="center">排序</td>
				<td align="center">操作</td>
			  </tr>
			  <%			  	
				sql="SELECT * From Wo_Tags order by Tag_IsUse,Tag_OrderBy"
				'response.Write(sql)
				'response.End()
				set RS=conn.execute(sql)
			  
			  	while not Rs.eof 
			  %>
			  <tr<%= Tr_MouseOver %> bgcolor="#FFFFFF"> 
			  	<td height="22" align="center">&nbsp;<%=Rs("Tag_ID")%></td>
				<td align="center">&nbsp;&nbsp;<%=rs("Tag_Name")%></td>
				<td align="center"><%
						if Rs("Tag_IsUse") = true then
							Response.write("使用")
						else
							Response.write("<font color='#ff0000'>不使用</font>")
						end if
					%></td>
				<td align="center">&nbsp;<%=rs("Tag_OrderBy")%></td>
				<td align="center"> 
					<a href="javascript:isDel(<%=Rs("Tag_ID")%>);">删除</a> 
					<a href="Admin_TagManage.asp?act=edit&Tag_ID=<%=Rs("Tag_ID")%>">编辑</a>
				</td>
			  </tr>
			  <%
					Rs.MoveNext 
				Wend
			  %>
			</table>			
		<form action="Admin_TagManage.asp" method="post" onSubmit="return frm_onsubmit(this);" name="frmdata">
			<table cellspacing=1 cellpadding=0 width=100% id=CommonListArea>
				<tr id=CommonListTitle3> 
					<td colspan="2">
					<strong>&nbsp;系统标签管理</strong></td>
				</tr>
				
				<tr bgcolor="#FFFFFF"> 
					<td width="17%" height="23">&nbsp;&nbsp;类别名称：</td>					
					<td width="83%" height="23"> 
					<input type="text" name="Tag_Name" size="40" maxlength="40" value="<%=Tag_Name%>"></td>
				</tr>
				
				<tr bgcolor="#FFFFFF"> 
					<td height="23">&nbsp;&nbsp;排列顺序：</td>					
				  <td height="23"> 
					<input type="text" name="Tag_OrderBy" size="40" maxlength="50" value="<%=Tag_OrderBy%>"></td>
		 	  </tr>
		　　　  <tr bgcolor="#FFFFFF"> 
					<td height="23">&nbsp;&nbsp;是否使用：</td>					
				  <td height="23">
				  <input type="radio" name="Tag_IsUse" value="1" <% if Tag_IsUse = true or Tag_IsUse = "" then Response.write(" Checked") %>> 
				  使用
			      <input type="radio" name="Tag_IsUse" value="0" <% if Tag_IsUse = false then Response.write(" Checked") %>> 
			      不使用</td>
		 	    </tr>
				
				<tr bgcolor="#ffffff"> 
					<td height="30" colspan="2" align="center">
						<input type="submit" name="Submit" value=" 提交 ">
						<input type="reset" name="Submit2" value=" 重置 ">
						
						<input type="button" name="button" value="重新添加" onClick="javascript:location.href='Admin_TagManage.asp';">
					  	<input type="hidden" name="Tag_ID" value="<%=Tag_ID%>">
						<input type="hidden" name="action" value="<%=act%>">
					</td>
				</tr>
			</table>
		</form>	
		
		
	</td>	
	</tr>
	<tr> 
	  <td height="22"><div align="right"></td>
	</tr>
</table>

<%  
Set Rs = Nothing 
Set Conn = Nothing 
%>