📄 admin_topads.asp

📁 树形论坛
💻 ASP
字号:
<!-- #include file="function.asp" -->
<!-- #include file="admin_cookie.asp" -->
<%
myfilename="admin_topads.asp"
thisttime=Now()
dim etopads, outmsg
if action="topads" and Request.ServerVariables("request_method") = "POST" then
etopads=Request.form("etopads")
etopads=replace(etopads,";","")
etopads=replace(etopads,"'","")
sql="update topads set topads='"&etopads&"' where id=1"
conn.execute(sql)
outmsg=""
etopads=replace(etopads,vbCrlf,"")
outmsg="wmbbstopads.innerHTML ='';"&vbCrlf&"wmbbstopads.innerHTML +='"&etopads&"';"&vbCrlf&"wmbbstopads.innerHTML +='';"
set fileobject = Server.CreateObject("Scripting.FileSystemObject")
set addhtmlfile = fileobject.CreateTextFile(Server.MapPath(".")&"\images\topads.js")
addhtmlfile.writeline outmsg



message="<li>顶部广告修改成功<li><a href=admin_main.asp>返回管理首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=2;url="&myfilename&">")
Response.End
end if
Set Rs=Conn.Execute("topads")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>DATALL 知识库asp版</title>
<style type="text/css">
<!--
body {
	background: #FFFFFF;
	font-size: 12px;
	scrollbar-base-color: #0066CC;
	scrollbar-arrow-color: #FFFFFF;
	margin: 0px;
	padding: 0px;
	border: 0px;
}
td { font-size: 12px;}
.input1 {
	background: #EEEEEE;
}
-->
</style>
</head>

<body>

<form name="FORM" action="<%=myfilename%>" method="post"">
<input type="hidden" name="action" value="topads">
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
  <tr>
    <td height="20">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" bgcolor="#EEEEEE"><strong>页顶广告</strong></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#FFFFFF"><textarea name="etopads" cols="80" rows="20"><%=rs("topads")%></textarea></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#EEEEEE"><input type="submit" name="Submit" value="提交">&nbsp;&nbsp;<input type="reset" name="Submit" value="重置"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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