📄 adminskinin.asp

📁 程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos
💻 ASP
字号:
<!--#include file="MarcosCB.asp"-->
<style>
<%=skinCss%>
</style>
<%
	getConn()
	isIn()
	isAdmin()

	action=getPost("action")
	skinName=getPost("skinName")
	url="adminSkinIn.asp"
	
	select case action
		case "smartUpdate"
			'on error resume next
			for i=1 to request("skinId").count
				sql="select * from Marcos_Skin where skinId="&request("skinId")(i)
				rs.open sql,conn,1,3
					rs("skinName")=request("skinName")(i)
					rs("dirRoot")=request("dirRoot")(i)
					rs("borderColor")=request("borderColor")(i)
					rs("theOrder")=request("theOrder")(i)
					rs("tableWidth")=request("tableWidth")(i)
				rs.update
				rs.close
			next
			updateAllSkin()
			locate url
		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)
				sql="delete from Marcos_Skin where skinId in ("&str&")"
				conn.execute(sql)
			end if
			updateAllSkin()
			locate url
	end select
	sql="select skinName,skinId,dirRoot,borderColor,theOrder,tableWidth from Marcos_Skin order by theOrder"
	rs.open sql,conn,1,1
%>
<body>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form1" method="post" action="?action=smartUpdate" onSubmit="form1.Submit3.disabled=true;form1.Submit5.disabled=true;">
    <tr class="tr"> 
      <td height="22" colspan="6" align="center">内部样式操作</td>
    </tr>
    <tr class="td"> 
      <td height="20" align="center">ID</td>
      <td height="20" align="center">样式名</td>
      <td align="center">文件夹</td>
      <td align="center">宽度</td>
      <td align="center">顺序号</td>
      <td align="center">边框色</td>
    </tr>
    <%
  	do until rs.eof
  %>
    <tr> 
      <td width="45" height="20" align="center"> <input name="skinId" type="hidden" value="<%=rs(1)%>"> 
        <%=rs(1)%> <input name="out<%=rs(1)%>" type="checkbox" value="true"> </td>
      <td width="40" height="20" align="center"> <input name="skinName" type="text" id="skinName" value="<%=rs(0)%>"></td>
      <td width="40" height="20" align="center"> <input name="dirRoot" type="text" value="<%=rs(2)%>" size="10"></td>
      <td width="40" align="center"><input name="tableWidth" type="text" id="tableWidth" value="<%=rs(5)%>" size="10"></td>
      <td width="40" align="center"><input name="theOrder" type="text" id="theOrder" value="<%=rs(4)%>" size="3"></td>
      <td width="40" align="center" bgcolor="<%=rs(3)%>"><input name="borderColor" type="text" id="borderColor" value="<%=rs(3)%>"></td>
    </tr>
    <%
  		rs.movenext
	loop
	rs.close
	closeConn()
  %>
    <tr class="tr"> 
      <td height="20" colspan="6" align="center"> <input type="submit" name="Submit3" value="更 新"> 
        <input type="reset" name="Submit32" value="重 置"> <input type="submit" name="Submit5" value="导 出" onclick="form1.action='adminSkinOut.asp?action=outStyle'"> 
        <input name="Submit6" type="button" id="Submit6" onclick="delIt(form1);" value="删 除"> 
      </td>
    </tr>
  </form>
</table>
<br>
<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>
</body>
<script language="JavaScript">
function delIt(frm){
	if(confirm("确认要删除选定的记录吗?")){
		frm.action="adminSkinIn.asp?action=del";
		frm.submit();
	}
}
</script>
⌨️ 快捷键说明

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