📄 adlist.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"--><%
dim a,b,c,bgcolor,fontcolor,fontsize,fontface
a=CheckSql(request("a"))
if a="" then
a=Request.Cookies("cnend")("a")
end if
if a<>"" then
CheckSqlnum(a)
a=int(a)
else
a=CnEndRadbgcolor
end if

b=CheckSql(request("b"))
if b="" then
b=Request.Cookies("cnend")("b")
end if
if b<>"" then
CheckSqlnum(b)
b=int(b)
else
b=CnEndRadfontface
end if

c=CheckSql(request("c"))
if c="" then
c=Request.Cookies("cnend")("c")
end if
if c<>"" then
CheckSqlnum(c)
c=int(c)
else
c=CnEndRadfontcolor
end if

d=CheckSql(request("d"))
if d="" then
d=Request.Cookies("cnend")("d")
end if
if d<>"" then
CheckSqlnum(d)
d=int(d)
else
d=CnEndRadfontsize
end if

call SaveCookie_cnend()

if a=0 then
	bgcolor="f0f0f0"
	elseif a=1 then
	bgcolor="f0f0f0"
	elseif a=2 then
	bgcolor="ffffff"
	elseif a=3 then
	bgcolor="eefaee"
	elseif a=4 then
	bgcolor="e7f4fe"
	elseif a=5 then
	bgcolor="e9faff"
	elseif a=6 then
	bgcolor="e6f3ff"
	elseif a=7 then
	bgcolor="e4ebf1"
	elseif a=8 then
	bgcolor="eeeeee"
	elseif a=9 then
	bgcolor="eaeaea"
	elseif a=10 then
	bgcolor="e4e1d8"
	elseif a=11 then
	bgcolor="e6e6e6"
	elseif a=12 then
	bgcolor="ffffed"
	elseif a=13 then
	bgcolor="fcefff"
else
	bgcolor="f0f0f0"
end if

if b=0 then
	fontcolor="000000"
	elseif b=1 then
	fontcolor="333333"
	elseif b=2 then
	fontcolor="000000"
	elseif b=3 then
	fontcolor="ff0000"
	elseif b=4 then
	fontcolor="006600"
	elseif b=5 then
	fontcolor="0000ff"
	elseif b=6 then
	fontcolor="660000"
else
	fontcolor="000000"
end if

if c=0 then
	fontsize=12
	elseif c=1 then
	fontsize=9
	elseif c=2 then
	fontsize=10
	elseif c=3 then
	fontsize=11
	elseif c=4 then
	fontsize=12
	elseif c=5 then
	fontsize=14
	elseif c=6 then
	fontsize=16
	elseif c=7 then
	fontsize=18
	elseif c=8 then
	fontsize=20
	elseif c=9 then
	fontsize=22
	elseif c=10 then
	fontsize=24
	elseif c=11 then
	fontsize=26
	elseif c=12 then
	fontsize=28
	elseif c=13 then
	fontsize=32
	elseif c=14 then
	fontsize=36
	elseif c=15 then
	fontsize=48
	elseif c=16 then
	fontsize=72
else
	fontsize=12
end if

if d=0 then
	fontface="宋体"
	elseif d=1 then
	fontface="黑体"
	elseif d=2 then
	fontface="隶书"
	elseif d=3 then
	fontface="幼圆"
	elseif d=4 then
	fontface="仿宋_GB2312"
	elseif d=5 then
	fontface="楷体_GB2312"
	elseif d=6 then
	fontface="华文彩云"
	elseif d=7 then
	fontface="华文琥珀"
	elseif d=8 then
	fontface="华文新魏"
	elseif d=9 then
	fontface="华文行楷"
	elseif d=10 then
	fontface="新宋体"
	elseif d=11 then
	fontface="Arial"
	elseif d=12 then
	fontface="Book Antiqua"
	elseif d=13 then
	fontface="Century Gothic"
	elseif d=14 then
	fontface="Courier New"
	elseif d=15 then
	fontface="Georgia"
	elseif d=16 then
	fontface="Impact"
	elseif d=17 then
	fontface="Tahoma"
	elseif d=18 then
	fontface="Times New Roman"
	elseif d=19 then
	fontface="Verdana"
	elseif d=20 then
	fontface="微软雅黑"
else
	fontface="宋体"
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="终点:http://www.cnend.net" />
<meta name="copyright" content="作品版权属于原作者·页面所有权  <%=SiteName%>" />
<meta name="keywords" content="<%=SiteName%> 终点 www.cnend.net 終點小说连载系统 <%=Keywords%>">
<meta name="description" content="<%=SiteName%> 终点 www.cnend.net 終點小说连载系统 <%=Description%>">
<meta name="generator" content="www.cnend.net" />
<style type="text/css">
<!--
form {display:inline;margin:0px;padding:0px;border:0px solid #000000; }
A { text-decoration:none;color:#000;background-color:transparent; }
a:hover{ text-decoration:underline;color:#465584;background-color:transparent; }
TD { FONT-SIZE: 9pt; COLOR: #000000;}

.head { color: #FFFFFF;padding: 4px;background:#163856 url('Template/jdmb/thead.gif');font-weight:bold;BORDER: 1px solid #ffffff;}
input	{
	font-size:12px;font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;vertical-align:middle;padding:1px;color:black;background-color:#FFFFFF;border:1px solid #B7C0C7;margin:2px;  
}
-->
</style>
<title>广告列表 - <%=SiteName%></title>
</head>
<body bgcolor="<%=bgcolor%>" text="<%=fontcolor%>" marginwidth="30" marginheight="0">
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white" height=40>
<tr>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select top 16 * from [TXTadlist] order by id desc"
rs.open sql,conn,1,1
%> <%
i=1
do while not rs.eof
%>
				<td align="center">
				<a target="_blank" href="adurl.asp?id=<%=rs("id")%>"><font face="<%=fontface%>" color="<%=fontcolor%>"><%=rs("TXTadname")%></font></a></td>
<%
if i mod 8=0 then response.write "</tr><tr>"
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%></tr>
</table>
</body>

</html>
⌨️ 快捷键说明

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