📄 adminskinedit.asp

📁 程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos
💻 ASP
字号:
<html>
<head>
<meta name="keywords" content="Marcos,程序网络,程序网络工作组,Higroup,Hididi,Hididi.net,孙华,老马">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统样式修改</title>
<!--#include file="MarcosCB.asp"-->
<style>
<%=skinCss%>
</style>
</head>
<%
	getConn()

	isIn()
	isAdmin()
	
	on error resume next
	
	pageName=getPost("pageName")
	action=getPost("action")
	skinId=getPost("skinId")
	select case pageName
		case "PageMain"
			sql="select PageMain,skinName from Marcos_Skin where skinId="&skinId
		case "PageIndex"
			sql="select PageIndex,skinName from Marcos_Skin where skinId="&skinId
		case "PageRegister"
			sql="select PageRegister,skinName from Marcos_Skin where skinId="&skinId
		case "PageProfile"
			sql="select PageProfile,skinName from Marcos_Skin where skinId="&skinId
		case "PageUserInfo"
			sql="select PageUserInfo,skinName from Marcos_Skin where skinId="&skinId
		case "PageLogin"
			sql="select PageLogin,skinName from Marcos_Skin where skinId="&skinId
		case "PageFormx"
			sql="select PageFormx,skinName from Marcos_Skin where skinId="&skinId
		case "PageShow"
			sql="select PageShow,skinName from Marcos_Skin where skinId="&skinId
		case "PageList"
			sql="select PageList,skinName from Marcos_Skin where skinId="&skinId
		case "PageOnline"
			sql="select PageOnline,skinName from Marcos_Skin where skinId="&skinId
		case "PageSearch"
			sql="select PageSearch,skinName from Marcos_Skin where skinId="&skinId
		case "PageStyle"
			sql="select PageStyle,skinName from Marcos_Skin where skinId="&skinId
		case "SkinCss"
			sql="select SkinCss,skinName from Marcos_Skin where skinId="&skinId
	end select
	if action="Modify" then
		rs.open sql,conn,1,3
		str=""
		for i=1 to request("html").count
			if str="" then 
				str=request("html")(i)
			 else
				if request("html")(i)<>"" then str=str&"$$$"&request("html")(i)
			end if
		next
		rs(0)=trim(str)
		rs.update
		rs.close
		updateAllSkin()
		response.redirect "adminSkinEdit.asp?skinId="&skinId&"&pageName="&pageName
	end if

	rs.open sql,conn,1,1
	htmlCode=rs(0)
	skinName=rs(1)
	rs.close
	closeConn()
	
	if htmlCode<>"" then html=split(htmlCode,"$$$")
%>
<body>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form2" method="post" action="?action=Modify&skinId=<%=skinId%>&pageName=<%=pageName%>" onSubmit="form2.Submit.disabled=true">
    <tr class="tr"> 
      <td height="25" align="center"><font class=warningColor><%=skinName&"</font> 中<font class=warningColor> "&pageName%>&nbsp;</font>页代码修改</td>
    </tr>
	<%
		for i=0 to ubound(html)
	%>
    <tr>
      <td height="20" align="center" id="main<%=i%>"><%=pageName&"("&i&")"%><br>
        <input type="button" name="Submit4" value="↑" onClick="if(this.form.html<%=i%>.rows>6){this.form.html<%=i%>.rows-=6;}"> 
        <textarea name="html" id="html<%=i%>" cols="75" rows="10"><%=encode(html(i))%></textarea>
        <input type="button" name="Submit42" value="↓" onClick="this.form.html<%=i%>.rows+=6;"></td>
    </tr>
	<%
		next
	%>
    <tr align="center" class="tr"> 
      <td height="25"> 
        <input type="submit" name="Submit" value="修 改" accesskey="0">
	  <input type="reset" name="Submit2" value="重 置">
      <input type="button" name="Submit3" value="增 加" onClick="setIt()">
	  </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>
var str;
function setIt(){
	str="<br><textarea name=html cols=80 rows=10></textarea>"
	window.main<%=(i-1)%>.innerHTML+=str;
}
</script>
⌨️ 快捷键说明

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