<!--#include file="../conn.asp"-->
<!--#include file="admin_check.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
<title>管理页面</title>
<link id="maincss" rel="stylesheet" href="images/css/admin_style_<%= AdminSkin %>.css" type="text/css" media="all" />
<style type="text/css">
<!--
.setskin{
	margin:5px;
	padding:6px;
	border:1px solid #4d3a22;
	background:#ffffce;
	height:100px;
	float: left;
	width: 48%;
}
.unsetskin{
	margin:5px;
	padding:6px;
	border:1px solid #fff;
	height:100px;
	float: left;
	width: 48%;
}
.skin{
	line-height:150%;
	margin-bottom:12px;
}
.skinimg{
	width:100px;
	height:100px;
	float:left;
	margin-right:6px;
	border:1px solid #ccc
}
  .oskin{position: absolute;margin-left:74px !important;margin-left:-34px;margin-top:-12px !important;margin-top:-14px}
-->
</style>
<script language="javascript">
  function setSkin(path,Name){ 
		  document.forms[0].SkinPath.value=path
		  document.forms[0].SkinName.value=Name
		  document.forms[0].submit()
  }
</script>
</head>
<body leftmargin="0" bottommargin="0" rightmargin="0" topmargin="5" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
   <form action="?" method="post" style="margin:0px">
       <input type="hidden" name="action" value="Skins"/>
       <input type="hidden" name="SkinName" value=""/>
       <input type="hidden" name="SkinPath" value=""/>
  </form>
<%
Call chkFlag(20)
opendb
Dim action,rs,template,SkinPath,SkinName
action=Trim(Request.Form("action"))
SkinPath=Trim(Request.Form("SkinPath"))
SkinName=Trim(Request.Form("SkinName"))
IF action="Skins" then
   conn.execute("update "&predb&"system set SkinPath='"&SkinPath&"',SkinName='"&SkinName&"' where id=1")
   application.Contents.RemoveAll()
End IF

set rs=conn.execute("select SkinPath from "&predb&"system where id=1")
template=rs(0)
set rs=nothing
closedb
%>
<table class="tableBorder" cellspacing="1" cellpadding="2" width="96%" align="center" border="0">
<tr>
		<th height="25" align="left">快问模板选择</th>
	</tr>
  <tr>
    <td class="TableRow1">
<%
Dim TemD
Set TemD = Server.CreateObject("KwAsk.TempModi")
TemD.MySkin=template
TemD.AdmTemp
Set TemD =Nothing
%>
</td>
  </tr>
</table>
<br>
</body>
</html>