www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > Index.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunCtion.asp"-->
<!--#Include File="CF_Md5.asp"-->
<!--#Include File="CF_GetCookie.asp"-->
<%
Action=Request("Action")
%>
<!--#Include File="CF_Do.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=RsSet("SysTitle")%></title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="CF_Style.asp"-->
</head>
<body>
<!--#Include File="Top.asp"-->
<div class="co_1">
<div class="co_left">
<!--#Include File="CF_UserLogin.asp"-->
<!--#Include File="CF_Index_Pre.asp"-->
</div>
<div class="co_right">
<div class="co_d_2">
<div class="d_1_3">最新公告 <a href="NewsList.asp" target="_blank">浏览全部公告..</a>
</div>
<div class="d_1_2">
<ul>
<%
Sql="Select Top 12 * From CFWztg_SysInfo Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
%>
<li>
<%=rs("AddDate")%> [ <%
If Rs("Assort")=1 Then
Response.Write "网友或网站主"
ElseIf Rs("Assort")=2 Then
Response.Write "广告主"
End If%> ] <a href="NewsShow.asp?ID=<%=Rs("ID")%>" target="_blank"><%Response.write Rs("Title")%></a>
</li>
<%
Rs.MoveNext
Wend
%>
</ul>
</div>
</div>
<div class="co_d_2">
<div class="d_1_3">广告类型</div>
<div class="d_1_2">
<%=GetMySet("CFWztgAdminSet","AdminSet","index_gglx")%>
</div>
</div>
<div class="co_d_2">
<div class="d_1_3">网友或网站主</div>
<div class="d_1_2">
<%=GetMySet("CFWztgAdminSet","AdminSet","index_wyhwzz")%>
</div>
</div>
<div class="co_d_2">
<div class="d_1_3">广告主</div>
<div class="d_1_2">
<%=GetMySet("CFWztgAdminSet","AdminSet","index_ggz")%>
</div>
</div>
<div class="co_d_2">
<div class="d_1_3">关于本系统</div>
<div class="d_1_2">
<%=GetMySet("CFWztgAdminSet","AdminSet","index_gybxt")%>
</div>
</div>
</div>
</div>
<!--#Include File="Bottom.asp"-->
</body>
</html>
<%If Rsset("QQShow")=-1 Then%>
<script src=CF_QQ.asp></script>
<%End If%>