admin_skin.asp

依蓝旅游网站管理系统Elan2008.SP2

   EL_Common.ShowErrorMsg("打开风格数据表错误，无法完成风格导入操作，请返回上一步检查数据表路径是否正确")
   SkinConn.Close()
   Set SkinConn = Nothing
   Exit Sub
End If

Set rsSkin = SkinConn.Execute("Select SkinID,SkinName,Content From EL_Skin")
If Err Then
   Err.Clear()
   EL_Common.ShowErrorMsg("数据表中的数据结构错误，无法导入风格")
   rsSkin.Close()
   Set rsSkin = Nothing
   SkinConn.Close()
   Set SkinConn = Nothing
   Exit Sub
End If

%>
<script language="javascript">
function Check(frm){
  if(frm.SkinID.value.trim()=="" || frm.SkinID.selectedIndex == -1){
     alert("请选择要导入的风格");
	 frm.SkinID.focus();
	 return false;
  }
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_Skin.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="SkinID" size="10" multiple id="SkinID" style="height:250px; width:250px;">
	<%
	  If rsSkin.EOF And rsSkin.BOF Then
	     Response.Write "<option value=''>数据表中没有要导入的风格</option>"
	  Else
	     Disabled = ""
	     Do While Not rsSkin.EOF
		    Response.Write "<option value='"& rsSkin(0) &"'>"& rsSkin(1) &"</option>"
			rsSkin.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="SkinData" type="hidden" id="SkinData" value="<%=SkinData%>"></td>
  </tr>
</table>
</form>
<%
rsSkin.Close()
Set rsSkin = Nothing
SkinConn.Close()
Set SkinConn = Nothing

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

SkinID = EL_Common.ELRequest("SkinID", 1)
SkinData = EL_Common.ELRequest("SkinData", 1)

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

Set rsSkin = SkinConn.Execute("Select SkinID,SkinName,Content From EL_Skin WHERE SkinID IN("& SkinID &")")
If Err Then
   Err.Clear()
   EL_Common.ShowErrorMsg("数据表中的数据结构错误，无法导入风格")
   rsSkin.Close()
   Set rsSkin = Nothing
   SkinConn.Close()
   Set SkinConn = Nothing
   Exit Sub
End If

Do While Not rsSkin.EOF
   Conn.Execute("INSERT INTO EL_Skin(SkinName,Content) VALUES('"& Replace(rsSkin("SkinName"), "'", "''") &"', '"& Replace(rsSkin("Content"), "'", "''") &"')")
   rsSkin.MoveNext
Loop
rsSkin.Close()
Set rsSkin = Nothing
SkinConn.Close()
Set SkinConn = Nothing


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

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

EL_Common.ShowSuccessMsg("风格导入成功")

End If
EL_Common.ShowScriptError()
End Sub

Sub ModifySkin()
On Error Resume Next
Dim SkinCmd, rsSkin, SkinID
SkinID = EL_Common.ELRequest("SkinID", 2)
Call EL_Common.InitCommonCmd(SkinCmd, rsSkin, "EL_Skin", "*", "SkinID="& SkinID)
rsSkin.Close()
If SkinCmd(0)<>1 Then
   Set rsSkin = Nothing
   Set SkinCmd = Nothing
   EL_Common.ShowErrorMsg("指定风格不存在")
   Exit Sub
End If
rsSkin.Open()
%>
<script language="javascript">
function Check(frm){
  if(frm.SkinName.value.trim()==""){
     alert("请输入风格名称");
	 frm.SkinName.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入风格内容");
	 frm.Content.focus();
	 return false;
  }
}
</script>
<form name="myform" action="Admin_Skin.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="16%" class="td_ItemName"><strong>风格名称</strong></td>
    <td width="84%" class="td_25"><input name="SkinName" type="text" id="SkinName" value="<%=EL_Common.ServerHTMLEncode(rsSkin("SkinName"))%>" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>风格内容</strong><br>
      CSS样式代码</td>
    <td class="td_25"><textarea name="Content" cols="100" rows="20" id="Content"><%=EL_Common.ServerHTMLEncode(rsSkin("Content"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否设为默认</strong></td>
    <td class="td_25"><input name="Defaulted" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsSkin("Defaulted").value)%>>
      是
        <input name="Defaulted" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsSkin("Defaulted").value)%>>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="SkinID" type="hidden" id="SkinID" value="<%=SkinID%>"></td>
  </tr>
</table>
</form>
<%
rsSkin.Close()
Set rsSkin = Nothing
Set SkinCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageSkin()
On Error Resume Next
Dim SkinCmd, rsSkin, RowCount, i
Call EL_Common.InitCommonCmd(SkinCmd, rsSkin, "EL_Skin", "SkinID, SkinName, Defaulted", "1=1")
rsSkin.Close()
RowCount = SkinCmd(0)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="13%" align="center" class="top_item"><strong>风格ID</strong></td>
    <td width="41%" align="center" class="top_item"><strong>风格名称</strong></td>
    <td width="18%" align="center" class="top_item"><strong>是否默认</strong></td>
    <td width="28%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class=td_25 colspan=4>没有任何风格数据，<a href='Admin_Skin.asp?ActionAdd' style='color:blue;'>点击添加风格</a></td></tr>"
	Else
	   rsSkin.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><%=rsSkin(0)%></td>
    <td align="center"><%=rsSkin(1)%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsSkin(2).value, "<span class=bluetext>是</span>", "<span class=graytext>否</span>")%></td>
    <td align="center">
	<%
	  Response.Write "<a href=""Admin_Skin.asp?Action=Modify&SkinID="& rsSkin(0) &""">修改</a> | "
	  If rsSkin(2).value = True Then
	     Response.Write "<span class=graytext>删除</span> | "
		 Response.Write "<span class=graytext>设为默认</span> | "
	  Else
	     Response.Write "<a href='Admin_Skin.asp?Action=Delete&SkinID="& rsSkin(0) &"' onClick=""return confirm('本次删除后将不能恢复，确认要删除此风格吗')"">删除</a> | "
		 Response.Write "<a href='Admin_Skin.asp?Action=SetDefaulted&SkinID="& rsSkin(0) &"'>设为默认</a> | "
	  End If
	  Response.Write "<a href=""Admin_Skin.asp?Action=Refresh&SkinID="& rsSkin(0) &""">刷新</a>"
	%>
	</td>
  </tr>
  <%
          If i<RowCount Then rsSkin.MoveNext
	   Next
	   rsSkin.Close()
    End If
  %>
</table>
<%
Set rsSkin = Nothing
Set SkinCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddSkin()
%>
<script language="javascript">
function Check(frm){
  if(frm.SkinName.value.trim()==""){
     alert("请输入风格名称");
	 frm.SkinName.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入风格内容");
	 frm.Content.focus();
	 return false;
  }
}
</script>
<form name="myform" action="Admin_Skin.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="16%" class="td_ItemName"><strong>风格名称</strong></td>
    <td width="84%" class="td_25"><input name="SkinName" type="text" id="SkinName" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>风格内容</strong><br>
      CSS样式代码</td>
    <td class="td_25"><textarea name="Content" cols="100" rows="20" id="Content"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否设为默认</strong></td>
    <td class="td_25"><input name="Defaulted" type="radio" class="nomargin" value="<%=EL_True%>">
      是
        <input name="Defaulted" type="radio" class="nomargin" value="<%=EL_False%>" checked>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加风格">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveNewSkin"></td>
  </tr>
</table>
</form>
<%
End Sub
%>
</body>
</html>