adminskinout.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<style>
<%=skinCss%>
</style>
<%
	getConn()
	isIn()
	isAdmin()
	
	action=getPost("action")
	dataBase=getPost("database")
	url="adminSkinOut.asp"
	
	if dataBase="" then
		dataBase="DataBackup\skinBak.mdb"
	end if
	
	dbTwo=server.mapPath(dataBase)
   	set connTwo=server.createobject("adodb.connection")
	connTwo.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbTwo
	set rsTwo=server.createobject("adodb.recordSet")
	
	if action="" then
		action="show"
	end if
	
	select case action
		case "outStyle"
			for i=1 to request("skinId").count
				if request("out"&request("skinId")(i)) then
					str=str&request("skinId")(i)&","
				end if
			next
			if str="" then
				echo "<br><br><div align=center><a href=javascript:history.back();>对不起,你好像什么都没有选择哦?</a></div>"
			 else
				str=left(str,len(str)-1)
				sql="select * from Marcos_Skin where skinId in ("&str&")"
				rs.open sql,conn,1,1
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form1" method="post" action="" onSubmit="this.Submit3.disabled=true;">
    <tr class="tr"> 
      <td height="20" colspan="3" align="center">样式导出</td>
    </tr>
    <tr class="td"> 
      <td width="41" height="20" align="center">ID</td>
      <td width="134" height="20" align="center">样式名</td>
      <td width="208" height="20" align="center">当前日期</td>
    </tr>
    <%
  	do until rs.eof
  %>
    <tr align="center"> 
      <td height="20"> 
        <input name="skinId" type="hidden" value="<%=rs(0)%>">
        <%=rs(0)%> </td>
      <td height="20"> 
        <input name="skinName" type="text" id="skinName" value="<%=rs(1)%>"> 
      </td>
      <td height="20"><%=date%></td>
    </tr>
    <%
  		rs.movenext
	loop
  %>
    <tr> 
      <td height="20" colspan="3" align="center" class="td">导出到: 
        <input name="database" type="text" id="database" value="<%=dataBase%>" size="50"></td>
    </tr>
    <tr class="tr"> 
      <td height="20" colspan="3" align="center" class="td1"> 
        <input type="submit" name="Submit3" value="导 出" onclick="form1.action='?action=outIt'"> 
        <input type="button" name="Submit32" value="返 回" onclick="location.href='admin_main.asp'"> 
      </td>
    </tr>
  </form>
</table>
<%
				rs.close
			end if
		case "outIt"
			for i=1 to request("skinId").count
				str=str&request("skinId")(i)&","
			next
			str=left(str,len(str)-1)
			sql="select * from Marcos_Skin where skinId in("&str&")"
			set rs=conn.execute(sql)
			do until rs.eof
				sqlTwo="Marcos_Skin"
				rsTwo.open sqlTwo,connTwo,3,3
				rsTwo.addnew
				for i=1 to 17
					rsTwo(i)=rs(i)
				next
				rsTwo("dateTime")=now
				rsTwo.update
				rsTwo.close
				rs.movenext
			loop
			response.write "<div align=center>样式导出成功!</div>"
		case "show"
			sqlTwo="select skinId,skinName,dateTime from Marcos_Skin order by dateTime desc"
			rsTwo.open sqlTwo,connTwo,1,1
	
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form1" method="post" action="" onSubmit="form1.Submit2.disabled=true;form1.Submit3.disabled=true;">
    <tr class="tr"> 
      <td height="20" colspan="3" align="center">外部样式操作</td>
    </tr>
    <tr class="td"> 
      <td width="41" height="20" align="center">ID</td>
      <td width="134" height="20" align="center">样式名</td>
      <td width="208" height="20" align="center">建立日期</td>
    </tr>
    <%
  	do until rsTwo.eof
  %>
    <tr align="center"> 
      <td height="20"> 
        <input name="skinId" type="hidden" id="skinId" value="<%=rsTwo(0)%>">
        <%=rsTwo(0)%><input name="out<%=rsTwo(0)%>" type="checkbox" value="true">
	  </td>
      <td height="20"> 
        <input name="skinName2" type="text" id="skinName2" value="<%=rsTwo(1)%>"> 
      </td>
      <td height="20"><%=rsTwo("dateTime")%></td>
    </tr>
    <%
  		rsTwo.movenext
	loop
	rsTwo.close
  %>
    <tr> 
      <td height="20" colspan="3" align="center" class="td">来自文件: 
        <input name="dataBase" type="text" id="dataBase" value="<%=dataBase%>" size="50"></td>
    </tr>
    <tr class="tr"> 
      <td height="20" colspan="3" align="center" class="td1"> 
        <input type="submit" name="Submit2" value="察 看" onclick="form1.action=''"> 
        <input type="submit" name="Submit3" value="导 入" onclick="form1.action='?action=inIt'">
        <input type="button" name="Submit1" value="删 除" onclick="delIt(form1);"> </td>
    </tr>
  </form>
</table>
<%
		case "del"
			for i=1 to request("skinId").count
				if request("out"&request("skinId")(i)) then
					str=str&request("skinId")(i)&","
				end if
			next
			if trim(str)<>"" then
				str=left(str,len(str)-1)
				sqlTwo="delete from Marcos_Skin where skinId in ("&str&")"
				connTwo.execute(sqlTwo)
				echo sqlTwo
			end if
			locate url
		case "inIt"
			for i=1 to request("skinId").count
				if request("out"&request("skinId")(i)) then
					str=str&request("skinId")(i)&","
				end if
			next
			if str<>"" then
				str=left(str,len(str)-1)
				sqlTwo="select * from Marcos_Skin where skinId in("&str&")"
				set rs=connTwo.execute(sqlTwo)
				do until rs.eof
					sql="Marcos_Skin"
					rsTwo.open sql,conn,1,3
					rsTwo.addnew
					for i=1 to 17
						rsTwo(i)=rs(i)
					next
					rsTwo.update
					rsTwo.close
					rs.movenext
				loop
				updateAllSkin()
				echo "<div align=center>数据导入成功!</div>"
			 else
				echo "<br><br><div align=center><a href=javascript:history.back();>嘿嘿,你好像忘记选择了!</a></div>"
			end if
	end select
	closeConn()
%>
<br>
<script language="JavaScript">
function delIt(frm){
	if(confirm("确认要删除选定的记录吗?")){
		frm.action="adminSkinOut.asp?action=del";
		frm.submit();
	}
}
</script>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <tr> 
    <td height="25" align="center" class="tr"> </td>
  </tr>
  <tr> 
    <td height="60" align="center" bgcolor="#FFFFFF"><font face="Wingdings">v</font> 
      HigroupBBS <font face="Wingdings">v</font><br>
      Powered By <a href="javascript:;" title="QQ 26696782">Marcos</a> 2004.10</td>
  </tr>
</table>