admin_label.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

	<form action="?action=LoadLabel" method=post>
	<table border="0"  cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="Border">
	<tr><td colspan="2" class="title">导入自定义标签</td></tr>
	<tr>
	<td width="20%" class="tdbg">导入自定义标签数据库名：</td>
	<td width="80%" class="tdbg">
	<input type="text" name="Labelmdb" size="30" value="../Skins/Cl_Label.mdb">
	<input type="hidden" name="ReAct" value="ShowLabel">
	</td>
	</tr>
	<tr><td colspan="2" class="tdbg"><input type="submit" name="submit" value="下一步"></td></tr>
	</table></form>
<%
End Sub

Sub OutputLabel()
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select LabelID,LabelName,LabelIntro From Cl_Label Order by LabelID Desc"
OpenConn : rs.Open sql,Conn,1,1
%>
<script language="JavaScript" type="text/javascript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall'){
	e.checked = form.chkall.checked;
	}
   }
  }
//-->
</script>
	<form action="?action=CreateLabel" method="post">
  <table border="0" cellspacing="1" cellpadding="5" align="center" width="95%" class="Border">
	<tr><td width="100%" colspan="5" class="title">导出网站自定义标签列表</td></tr>
	<tr class="title2">
	<td width="10%"  align="center">序号</td>
	<td width="25%"  align="center">标签名称</td>
	<td width="45%"  align="center">标签说明</td>
	<td width="5%"  align="center">选择</td>
	</tr>
<%
 if rs.eof and rs.bof then
	response.write "<tr class='tdbg'><td align='center' colspan='5'><br />没有任何记录！<br /></td></tr>"
else
	do while not rs.EOF%>
	<tr class="tdbg">
		<td width="10%" align="center"><%=rs("LabelID")%></td>
		<td width="25%" align="center"><a href="Admin_Label.asp?Action=Modify&LabelID=<%=rs("LabelID")%>"><%=rs("LabelName")%></a></td>
		<td width="45%" align="center"><%=rs("LabelIntro")%></td>
		<td><input type="checkbox" name="Labelid" value="<%=rs("LabelID")%>" /></td>
	</tr>
	<%
		rs.MoveNext
	loop
%>
	<tr>
	<td colspan="5" align="right" class="tdbg">
	导出的数据库：<input type="text" name="Labelmdb" size="30" value="../Skins/Cl_Label.mdb" />
	<input type="submit" name="submit" value="导出" />
	<input type="checkbox" name="chkall" value="on" onclick="CheckAll(this.form)" />
	全选</td>
	</tr>
<%
rs.Close:Set rs=Nothing 
end if
%>
</table>
</form>
<%
End Sub

Sub CreateLabel()
	dim mdbname
	Labelid=Cl.checkstr(Request("Labelid"))
	mdbname=Cl.Checkstr(Trim(Request.form("Labelmdb")))
	If Labelid="" or isnull(Labelid) or Not Isnumeric(Replace(Replace(Labelid,",","")," ","")) Then
		Cl.ShowErr("<br /><li>您还未选取要导入的标签")
	End If
	If mdbname="" Then
		Cl.ShowErr("<br /><li>请填写导入标签数据库名")
	End If
	Call DataBaseConnection(mdbname)
	Dim Rs1,Rs2,Sql1,Sql2
	Set Rs1=Server.CreateObject("ADODB.Recordset")
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Sql1 = "Select * from Cl_Label where LabelID in ("&Labelid&")"
	openconn : rs1.open sql1,conn,1,1
	do while not rs1.EOF
		Sql2 = "Select * from Cl_Label where LabelName='"&rs1("LabelName")&"'"
		rs2.open sql2,LabelConn,3,3
		If rs2.eof and rs2.bof Then
			rs2.addnew
			rs2("LabelName")=rs1("LabelName")
			rs2("LabelIntro")=rs1("LabelIntro")
			rs2("LabelPriority")=rs1("LabelPriority")
			rs2("LabelContent")=rs1("LabelContent")
			rs2.update
		Else
			Cl.ShowErr("<br /><li>标签数据库中中存在标签"&rs2("LabelName")&",如果要导入请先删除标签数据库中的该标签。")
		End if
		rs1.MoveNext
		rs2.Close
	loop
	rs1.Close:Set rs1=Nothing:Set rs2=Nothing
	Call Cl.OutMsg(0,"标签导出成功。","Admin_Label.asp")
End Sub

Sub LoadLabel()
	dim mdbname
	mdbname=Cl.Checkstr(Trim(Request.form("Labelmdb")))
	Call DataBaseConnection(mdbname)
	Set rs=Server.CreateObject("Adodb.RecordSet")
	Sql="Select LabelID,LabelName,LabelIntro From Cl_Label Order by LabelID Desc"
	rs.Open sql,LabelConn,1,1
%>
	<script language="JavaScript" type="text/javascript">
	<!--
	function CheckAll(form)  {
	  for (var i=0;i<form.elements.length;i++)    {
	    var e = form.elements[i];
	    if (e.name != 'chkall'){
		e.checked = form.chkall.checked;
		}
 	  }
  	}
	//-->
	</script>
	<form action="?action=LoadInLabel" method=post>
	<table border="0" cellspacing="1" cellpadding="5" align=center width="95%" class="Border">
	<tr><td width="100%" colspan="5" class="title">导入网站自定义标签列表</td></tr>
	<tr class="title2">
	<td width="10%"  align="center">序号</td>
	<td width="25%"  align="center">标签名称</td>
	<td width="45%"  align="center">标签说明</td>
	<td width="5%"  align="center">选择</td>
	<td width="5%"  align="center">操作</td>
	</tr>
<%
	if rs.eof and rs.bof then
		response.write "<tr class='tdbg'><td align='center' colspan='5'><br />没有任何记录！<br /></td></tr>"
	else
		do while not rs.EOF%>
		<tr class="tdbg">
		<td width="10%" align="center"><%=rs("LabelID")%></td>
		<td width="25%" align="center"><%=rs("LabelName")%></td>
		<td width="45%" align="center"><%=rs("LabelIntro")%></td>
		<td><a href="?Action=Delout&LabelID=<%=rs("LabelID")%>&dbpath=<%=mdbname%>">删除</a></td>
		<td><input type="checkbox" name="Labelid" value="<%=rs("LabelID")%>"></td>
		</tr>
		<%
			rs.MoveNext
		loop
%>
	<tr>
	<td colspan="5" align="right" class="tdbg">
	<input type="hidden" name="mdbname" id="mdbname" value="<%=mdbname%>">
	<input type="submit" name="submit" value="导入">
	<input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
	</tr>
<%
	rs.Close:Set rs=Nothing 
	end if
	%>
	</table>
	</form>
<%
End Sub

Sub LoadInLabel()
	dim mdbname
	mdbname=Cl.Checkstr(Trim(Request.form("mdbname")))
	Call DataBaseConnection(mdbname)
	Labelid=Cl.checkstr(Request("Labelid"))
	If Labelid="" or isnull(Labelid) or Not Isnumeric(Replace(Replace(Labelid,",","")," ","")) Then
		Cl.ShowErr("<br /><li>您还未选取要导入的标签")
	End If
	If mdbname="" Then
		Cl.ShowErr("<br /><li>请填写导入标签数据库名")
	End If
	Dim Rs1,Rs2,Sql1,Sql2
	Set Rs1=Server.CreateObject("ADODB.Recordset")
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Sql1 = "Select * from Cl_Label where LabelID in ("&Labelid&")"
	OpenConn : rs1.open sql1,LabelConn,1,1
	do while not rs1.EOF
		Sql2 = "Select * from Cl_Label where LabelName='"&rs1("LabelName")&"'"
		rs2.open sql2,conn,3,3
		If rs2.eof and rs2.bof Then
			rs2.addnew
			rs2("LabelName")=rs1("LabelName")
			rs2("LabelIntro")=rs1("LabelIntro")
			rs2("LabelPriority")=rs1("LabelPriority")
			rs2("LabelContent")=rs1("LabelContent")
			rs2.update
		Else
			Cl.ShowErr("<br /><li>系统中存在标签"&rs2("LabelName")&",如果要导入请先删除系统中原标签。")
		End if
		rs1.MoveNext
		rs2.Close
	loop
	rs1.Close:Set rs1=Nothing:Set rs2=Nothing
	Call Cl.OutMsg(0,"标签导入成功。","Admin_Label.asp")
End Sub

Sub Delout()
	dim dbpath
	dbpath=Cl.Checkstr(Trim(Request("dbpath")))
	Call DatabaseConnection(dbpath)
	LabelID=Trim(Request("LabelID"))
	if Not IsNumeric(LabelID) then
		Call Cl.OutMsg(0,"请正确指定要删除标签的ID。","javascript:history.go(-1)")
	end if
	If dbpath="" Then
		Cl.ShowErr("<br /><li>请填写导入标签数据库名")
	End If
	Dim sql,rs
	Set Rs=Server.CreateObject("ADODB.Recordset")
	sql="Delete * from Cl_Label where LabelID="&Clng(LabelID)&""
	rs.open sql,LabelConn,1,3
	Call Cl.OutMsg(0,"标签删除成功。","javascript:history.go(-1)")
End Sub

Sub DataBaseConnection(mdbname)
	On Error Resume Next 
	Set LabelConn = Server.CreateObject("ADODB.Connection")
	LabelConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
	If Err.Number ="-2147467259"  Then 
		Cl.ShowErr("<li>"&Server.MapPath(mdbname)&"数据库不存在。")
		Response.end
	End If
End Sub

'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0									 │
'│　　　　　　　　				Powered by Aspoo.CN	 					 │
'│　		　　　　　　　　　　										 │
'│　	邮箱: [e-mail]		[e-mail]　　						 │
'│		ＱＱ: 3315263				596197794						 │
'│		网站: www.aspoo.cn			www.aspoo.com						 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com						 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.							│
'└───────────────────────────────────────────────────────┘
'-->
%>