⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_label.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
Sub ImportLabel()
On Error Resume Next
Dim ImportStep
Dim LabelData, LabelID
Dim rsLabel, LabelConn, Disabled
ImportStep = EL_Common.ELRequest("ImportStep", 2)

'第一步：数据表路径
If ImportStep = 0 Then
%>
<form name="myform" action="Admin_Label.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>导入标签：第一步</strong></td>
  </tr>
  <tr>
    <td width="19%" class="td_ItemName"><strong>标签数据表路径</strong></td>
    <td width="81%" class="td_25"><input name="LabelData" type="text" id="LabelData" value="<%=InstallDir%>EL_Label.mdb" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit3" value="下一步">
    <input name="ImportStep" type="hidden" id="ImportStep" value="1">
    <input name="Action" type="hidden" id="Action" value="Import"></td>
  </tr>
</table>
</form>
<%
'第二步：选择标签
ElseIf ImportStep = 1 Then

Disabled = "Disabled"
LabelData = EL_Common.ELRequest("LabelData", 1)

Set LabelConn = Server.CreateObject("ADODB.Connection")
LabelConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LabelData)
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("打开标签数据表错误，无法完成标签导入操作，请返回上一步检查数据表路径是否正确")
   LabelConn.Close()
   Set LabelConn = Nothing
   Exit Sub
End If

Set rsLabel = LabelConn.Execute("Select LabelID,LabelName,LabelType,LabelLevel,Intro,TSQL,Content From EL_Label")
If Err Then
   Err.Clear()
   EL_Common.ShowErrorMsg("数据表中的数据结构错误，无法导入标签")
   rsLabel.Close()
   Set rsLabel = Nothing
   LabelConn.Close()
   Set LabelConn = Nothing
   Exit Sub
End If

%>
<script language="javascript">
function Check(frm){
  if(frm.LabelID.value.trim()=="" || frm.LabelID.selectedIndex == -1){
     alert("请选择要导入的标签");
	 frm.LabelID.focus();
	 return false;
  }
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_Label.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>标签导入：第二步</strong></td>
  </tr>
  <tr>
    <td width="19%" class="td_ItemName"><strong>选择要导入的标签</strong></td>
    <td width="81%" class="td_25">
	<select name="LabelID" size="10" multiple id="LabelID" style="height:250px; width:250px;">
	<%
	  If rsLabel.EOF And rsLabel.BOF Then
	     Response.Write "<option value=''>数据表中没有要导入的标签</option>"
	  Else
	     Disabled = ""
	     Do While Not rsLabel.EOF
		    Response.Write "<option value='"& rsLabel(0) &"'>"& rsLabel(1) &"</option>"
			rsLabel.MoveNext
		 Loop		 
	  End If
	%>
    </select>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="button" name="Submit32" value=" 上一步 " onClick="history.back()">	 
      <input type="submit" name="Submit3" value=" 下一步 " <%=Disabled%>>
    <input name="ImportStep" type="hidden" id="ImportStep" value="2">
    <input name="Action" type="hidden" id="Action" value="Import">
    <input name="LabelData" type="hidden" id="LabelData" value="<%=LabelData%>"></td>
  </tr>
</table>
</form>
<%
rsLabel.Close()
Set rsLabel = Nothing
LabelConn.Close()
Set LabelConn = Nothing

'第三步：导入数据
ElseIf ImportStep = 2 Then

LabelID = EL_Common.ELRequest("LabelID", 1)
LabelData = EL_Common.ELRequest("LabelData", 1)

Set LabelConn = Server.CreateObject("ADODB.Connection")
LabelConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LabelData)
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("打开标签数据表错误，无法完成标签导入操作，请返回上一步检查数据表路径是否正确")
   LabelConn.Close()
   Set LabelConn = Nothing
   Exit Sub
End If

Set rsLabel = LabelConn.Execute("Select LabelID,LabelName,LabelType,LabelLevel,Intro,TSQL,Content From EL_Label Where LabelID IN("& LabelID &")")
If Err Then
   Err.Clear()
   EL_Common.ShowErrorMsg("数据表中的数据结构错误，无法导入标签")
   rsLabel.Close()
   Set rsLabel = Nothing
   LabelConn.Close()
   Set LabelConn = Nothing
   Exit Sub
End If

Do While Not rsLabel.EOF
   Conn.Execute("INSERT INTO EL_Label(LabelName,LabelType,LabelLevel,Intro,TSQL,Content) VALUES('"& Replace(rsLabel("LabelName"), "'", "''") &"',"& rsLabel("LabelType") &","& rsLabel("LabelLevel") &",'"& Replace(rsLabel("Intro"), "'", "''") &"','"& Replace(rsLabel("TSQL"), "'", "''") &"','"& Replace(rsLabel("Content"), "'", "''") &"')")
   rsLabel.MoveNext
Loop
rsLabel.Close()
Set rsLabel = Nothing
Set LabelConn = Nothing

EL_Common.ShowScriptError()
Response.Redirect "Admin_Label.asp?Action=Import&ImportStep=3"

'完成导入,为避免刷新增加第三步
ElseIf ImportStep = 3 Then

EL_Common.ShowSuccessMsg("标签导入成功")

End If
EL_Common.ShowScriptError()
End Sub

Sub ModifyDynamicLabel()
On Error Resume Next
Dim LabelID, LabelCmd, rsLabel, TSQL
Dim RecordNum, MainTable, SubTable, MainCheckField, SubCheckField, MainField, SubField, Where
LabelID = EL_Common.ELRequest("LabelID", 2)
Call EL_Common.InitCommonCmd(LabelCmd, rsLabel, "EL_Label", "*", "LabelID="& LabelID &" And LabelType="& LabelType)
rsLabel.Close()
If LabelCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定标签不存在")
   Set rsLabel = Nothing
   Set LabelCmd = Nothing
   Exit Sub
End If
rsLabel.Open()
TSQL = rsLabel("TSQL")
TSQL = Split(TSQL, "@")
RecordNum = TSQL(0)
MainTable = TSQL(1)
SubTable = TSQL(2)
MainCheckField = TSQL(3)
SubCheckField = TSQL(4)
MainField = TSQL(5)
SubField = TSQL(6)
Where = TSQL(7)
CurrentPath = CurrentPath &" >> 修改动态标签"
%>
<script language="javascript" src="../Js/Ajax.js"></script>
<script language="javascript">
function Check(frm){
  if(frm.LabelName.value.trim()=="" || frm.LabelName.value.trim().length<=3){
     alert("请输入标签名称");
	 frm.LabelName.focus();
	 return false;
  }else if(frm.LabelName.value.substring(0,3) != "MY_"){
     alert("标签名称必须以“MY_”开头");
	 frm.LabelName.focus();
	 return false;
  }  
  if(frm.LabelLevel.value.trim()==""){
     alert("请输入优先级");
	 frm.LabelLevel.focus();
	 return false;
  }
  if(frm.TSQL.value.trim()==""){
     alert("请输入查询语句");
	 frm.MainTable.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入标签内容");
	 frm.Content.focus();
	 return false;
  }
  SubmitOnce(frm);
  return;
   
}
function ChangeMainTable(TableName){
   ClearOpt("MainCheckField", "选择主表字段", "");
   ClearOpt("MainField", "", "");
   if(TableName==""){ 	  
	  getObject("SubTable").selectedIndex = 0;
	  ClearOpt("SubCheckField", "选择从表字段", "");
	  ClearOpt("SubField", "", "");
	  getObject('trCheck').style.display='none';
   }else{      	 
	  GetMainFieldName(TableName);
   }
   PushToSQL();   
}
function ChangeSubTable(TableName){
   if(getObject("MainTable").value==""){
      alert("请先选择主表");
	  getObject("SubTable").selectedIndex = 0;
	  getObject("MainTable").focus();
	  return;
   }
   ClearOpt("SubCheckField", "选择从表字段", "");
   ClearOpt("SubField", "", "");
   if(TableName==""){	  
	  getObject('trCheck').style.display='none';
   }else{
      GetSubFieldName(TableName);
	  getObject('trCheck').style.display='';
   }
   PushToSQL();
}
function GetMainFieldName(TableName){
   createXMLHttp();
   var url = "Admin_Label.asp?Action=GetFieldName&TableName="+ TableName;
   try{
     XMLHttp.open("GET",url,true);
	 XMLHttp.onreadystatechange = CheckGetMainFieldNameState;
	 XMLHttp.setRequestHeader("Content-Type","text/xml;charset=GB2312;");
	 XMLHttp.send(null);	
   }catch(e){
     alert("读取数据表字段错误")
   }
}
function CheckGetMainFieldNameState(){
   if(XMLHttp.readyState == 4){
      if(XMLHttp.status == 200){
		 if(XMLHttp.responseText!=""){
		    var arr = XMLHttp.responseText.split("$");			
			for(var i=0;i<arr.length-1;i++){
			   getObject("MainCheckField").options.add(new Option(arr[i], arr[i]));
			   getObject("MainField").options.add(new Option(arr[i], arr[i]));
			}
			PushToSQL();
		 }
	  }
   }
}
function GetSubFieldName(TableName){
   createXMLHttp();
   var url = "Admin_Label.asp?Action=GetFieldName&TableName="+ TableName;
   try{
     XMLHttp.open("GET",url,true);
	 XMLHttp.onreadystatechange = CheckGetSubFieldNameState;
	 XMLHttp.setRequestHeader("Content-Type","text/xml;charset=GB2312;");
	 XMLHttp.send(null);	
   }catch(e){
     alert("读取数据表字段错误")
   }
}
function CheckGetSubFieldNameState(){
   if(XMLHttp.readyState == 4){
      if(XMLHttp.status == 200){
		 if(XMLHttp.responseText!=""){
		    var arr = XMLHttp.responseText.split("$");			
			for(var i=0;i<arr.length-1;i++){
			   getObject("SubCheckField").options.add(new Option(arr[i], arr[i]));
			   getObject("SubField").options.add(new Option(arr[i], arr[i]));
			}
			PushToSQL();
		 }
	  }
   }
}
function ChangeRecordNum(Num){
   if(Num == ""){
      getObject("RecordNum").value = 0;
   }else if(!CheckNum(Num)){
      getObject("RecordNum").value = 0;
   }else if(parseInt(Num)<0){
      getObject("RecordNum").value = 0;
   }
   PushToSQL();
}
function ClearOpt(name, text, value){
   if(getObject(name).options){
      getObject(name).options.length = 0;
	  if(text != ""){
	     getObject(name).options.add(new Option(text, value));    
	  }
   }
}
function GetSelectField(ObjectName){
   var s = "";
   var e = getObject(ObjectName);
   for(var i=0;i<e.options.length;i++){
      if(e.options[i].selected){
	     s += s==""?e.options[i].value:(","+e.options[i].value)
	  }
   }
   return s;
}
function PushToSQL(){
   var MainTable = getObject("MainTable").value;
   var MainCheckField = getObject("MainCheckField").value;
   var MainField = GetSelectField("MainField");
   
   var SubTable = getObject("SubTable").value;
   var SubCheckField = getObject("SubCheckField").value;
   var SubField = GetSelectField("SubField");
   
   var RecordNum = parseInt(getObject("RecordNum").value);
   var SQL = "";
   SQL += "SELECT ";
   if(RecordNum>0) SQL += "TOP "+ RecordNum +" "
   if(MainTable == ""){
      getObject("TSQL").value = "";
	  getObject("LabelList").innerHTML = "";
	  return;
   }
   if(SubTable != ""){
12345

⌨️ 快捷键说明

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