📄 admin_guanggao.asp
字号:
<!-- #include file="../conn.asp" --><!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b>
<a href="admin_guanggao.asp?info=info"><font color="#FFFFFF">系统广告修改</font></a><font color="#FFFFFF">
| </font><a href="admin_guanggao.asp?info=add"><font color="#FFFFFF">添加文字广告</font></a><font color="#FFFFFF">
| </font><a href="admin_guanggao.asp?info=list"><font color="#FFFFFF">文字广告列表</font></a><font color="#FFFFFF">
</font></b></td>
</tr>
</table>
<br>
<%Select Case request.querystring("info")
Case "add"
Call add()
Case "edit"
Call edit()
Case "list"
Call list()
Case "info"
Call info()
end select
Sub info()
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select Bannerurl,Bannerads,Adshead,Adsfoot from ADmain"
rs.open sql,conn,1,1
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form action="admin_Save.asp?info=guanggao_info" method="post" name="myform">
<tr align="center" valign="middle" bgcolor="#1C3566">
<td height="30" colspan="4"><b><font color="#FFFFFF">当 前 广 告 配 置</font></b></td>
</tr>
<tr>
<td width="25%" height="34" align="right" valign="middle">Banner广告（网站顶部居中）：<BR>（支持HTML标记）</td>
<td width="74%" colSpan="3">
<textarea name="Bannerurl" cols="80" rows="10" class='form'><%=htmllists(rs("Bannerurl"))%></textarea>
</td>
</tr>
<tr>
<td width="25%" height="34" align="right" valign="middle">Banner广告（网站顶部居右）：<BR>（支持HTML标记）</td>
<td width="74%" colSpan="3">
<textarea name="Bannerads" cols="80" rows="10" class='form'><%=htmllists(rs("Bannerads"))%></textarea>
</td>
</tr>
<tr>
<td width="25%" height="34" align="right" valign="middle">章节阅读页面顶部广告：<BR>（支持HTML标记）</td>
<td width="74%" colSpan="3">
<textarea name="Adshead" cols="80" rows="10" class='form'><%=htmllists(rs("Adshead"))%></textarea>
</td>
</tr>
<tr>
<td width="25%" height="34" align="right" valign="middle">章节阅读页面尾部广告：<BR>（支持HTML标记）</td>
<td width="74%" colSpan="3">
<textarea name="Adsfoot" cols="80" rows="10" class='form'><%=htmllists(rs("Adsfoot"))%></textarea>
</td>
</tr>
<tr align="center" valign="bottom">
<td height="34" colspan="4">
<input type="submit" class="button" value="提 交">
<input type="reset" class="button" value="重 置"></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub%>
<%Sub add()%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr height="34">
<td bgcolor="#1C3566" align="center" colspan="7"><b>
<font color="#FFFFFF">增加文字广告</font></b></td>
</tr>
<form action="Admin_save.asp?info=guanggao_add" method="post" name="adform">
<tr>
<td width="20%" height="34" align="right" valign="middle">显示文字：<br>
</td>
<td width="80%" colspan="3">
<input name="TXTadname" type="text" size="30" class="form"> ***</td>
</tr>
<tr>
<td width="20%" height="34" align="right" valign="middle">跳转网址：<br>
</td>
<td width="80%" colspan="3">
<input name="TXTadurl" type="text" size="50" class="form"> ***</td>
</tr>
<tr align="center" valign="bottom">
<td height="34" colspan="4">
<input type="submit" class="button" value="添 加">
<input type="reset" class="button" value="重 置"></td>
</tr>
</form>
</table>
<%end sub
Sub list()%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_save.asp?info=guanggao_listdel">
<tr align="center" bgcolor="#1C3566">
<td valign="middle" width="8%" height="30"></td>
<td width="9%" valign="middle"><font color="#FFFFFF"><b>显示文字</b></font></td>
<td width="30%" valign="middle"><font color="#FFFFFF"><b>跳转网址</b></font></td>
<td width="9%" valign="middle"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
sql="select id,TXTadname,TXTadurl from TXTadlist order by id desc"
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then%>
<tr align="center">
<td height="34" colspan="9" valign="middle"><span class="style1">暂时没有任何文字广告，请添加！</span></td>
</tr>
<%else
Rs.PageSize=MaxPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof%>
<tr align="center">
<td align="center" valign="middle"><input type="checkbox" name="checked" value="<%=rs("id")%>"></td>
<td valign="middle"><a title="修改" href="admin_guanggao.asp?info=edit&id=<%=rs("id")%>"><%=rs("TXTadname")%></a></td>
<td valign="middle"><%=rs("TXTadurl")%></td>
<td valign="middle">
<a title="修改" href="admin_guanggao.asp?info=edit&id=<%=rs("id")%>">修改</a>
<a title="删除" href="admin_Save.asp?info=guanggao_del&id=<%=rs("id")%>&page=<%=Page1%>" onclick="return(del('<%=rs("TXTadname")%>'))">
<img src="images/delete.gif" width="18" height="18" border="0"></a></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs.MoveNext
Loop
%><td height="24" align="center" colspan="8">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing%> <tr align="center">
<td height="24" align="center" colspan="8"><%Response.Write ShowPage("admin_guanggao.asp?info=list",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr></table>
<%end sub
Sub edit
id=request.QueryString("id")
set rs=server.CreateObject("ADODB.recordset")
sql="select TXTadname,TXTadurl,TXTadurl from TXTadlist where id="&id&""
rs.open sql,conn,1,1
%><table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr height="34">
<td bgcolor="#1C3566" align="center" colspan="7"><b>
<font color="#FFFFFF">修改文字广告</font></b></td>
</tr>
<form action="admin_save.asp?info=guanggao_edit&id=<%=id%>" method="post" name="adeform">
<tr>
<td width="20%" height="34" align="right" valign="middle">显示文字：<br>
</td>
<td width="80%" colspan="3">
<input name="TXTadname" type="text" id="TXTadname" size="30" class="form" value="<%=rs("TXTadname")%>"> ***</td>
</tr>
<tr>
<td width="20%" height="34" align="right" valign="middle">跳转网址：<br>
</td>
<td width="80%" colspan="3">
<input name="TXTadurl" type="text" id="TXTadurl" size="50" class="form" value="<%=rs("TXTadurl")%>"> ***</td>
</tr>
<tr align="center" valign="bottom">
<td height="34" colspan="4">
<input type="submit" class="button" value="修 改">
<input type="reset" class="button" value="重 置"></td>
</tr>
</form>
</table>
<%rs.close
set rs=nothing
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -