📄 main.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% response.charset="utf-8" %>
<!--#include file="../Include/NoSqlHack.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../manage/lockyou.asp"-->
<%
dim rs,sql,SiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,MesViewFlag,Centerv,ViewFlag
dim memclock
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from ameav_Site"
rs.open sql,conn,1,1
memclock=rs("memclock")
ViewFlag=rs("ViewFlag")
SiteTitle=rs("SiteTitle")
SiteUrl=rs("SiteUrl")
ComName=rs("ComName")
Address=rs("Address")
ZipCode=rs("ZipCode")
Telephone=rs("Telephone")
Fax=rs("Fax")
Email=rs("Email")
Keywords=rs("Keywords")
Descriptions=rs("Descriptions")
IcpNumber=rs("IcpNumber")
MesViewFlag=rs("MesViewFlag")
Centerv=rs("Content")
rs.close
set rs=nothing
if ViewFlag=0 then
response.Write("<p align=center><font color=red>网站关闭投票中……</font></p>")
response.End()
end if
%>
<!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>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="Keywords" CONTENT="<% =Keywords %>" />
<META NAME="Description" CONTENT="<% =Descriptions %>" />
<TITLE><% =SiteTitle %></TITLE>
<script type="text/javascript">var IMGDIR = '../images';var attackevasive = '0';var gid = 0;gid = parseInt('1');var fid = parseInt('26');var tid = parseInt('657440');</script>
<script language="javascript" src="../Script/Html.js"></script>
<style type="text/css">
<!--
body{margin:0; padding:0; background:url(../images/bg.jpg) top repeat-x #6B0013}
table,td,input,textarea,select{font-size:12px}
div,p,span,ul,li{margin:0; padding:0; border:0}
div{behavior: url(/iepngfix.htc)}
ul,li{list-style:none}
a{text-decoration:none}
a:hover{text-decoration:underline}
body {
background: #530310 url(../images/topbg2.jpg) no-repeat top center;
}
.STYLE1 {color: #FF0000}
.lkfd,.lkfd a{color:#F5D980}
.lkfd a:hover{color:#fff}
.bgn{background-repeat:no-repeat}
.perCom { float:left; width:204px; height:204px; margin-left:16px; margin-top:20px;}
.xgim1{background:url(ctb10.gif) repeat-x bottom; text-align:center; line-height:31px; color:#F5D980}
.xgim1 a{color:#F5D980}
.xgim1 a:hover{color:#fff}
.xgim1 a img{border:#FDED95 1px solid}
.xgim1 a:hover img{border:#2D0609 1px solid}
.xgdl1{width:935px; padding:0 7px 0 8px; margin:0 auto; background:#2D0609}
.more{line-height:40px; font-size:14px; padding:0 21px 13px 0; text-align:right}
#miniTop,#miniTop a{color:#FCBE00}
#miniTop a:hover{color:#FCBE00}
#xgFoot{text-align:center; margin:13px 0; color:#F69F04; line-height:24px}
#xgFoot a{color:#F69F04}
#xgFoot a:hover{color:#F69F04}
/* footer */
.copyright,.copyright a{ color:#C58728; line-height:38px}
.copyright a:hover{ color:#FF0000}
.copyright span{ margin:0 10px}
-->
</style>
</head>
<body>
<div class="xgdl">
<table id="miniTop" align="center" border="0" cellpadding="0" cellspacing="0" width="950" height="282">
<tbody><tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="900" height="150">
<param name="movie" value="../Images/body.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent" />
<embed src="../Images/body.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="900" height="150"></embed>
</object></td>
</tr>
</tbody></table>
</div>
<div class="xgdl1">
<table align="center" background="../images/ctb2.gif" border="0" cellpadding="0" cellspacing="0" width="935">
<tbody><tr>
<td background="../images/ctb1.jpg" height="31"></td>
</tr>
<tr>
<td class="more bgn lkfd" background="../images/ctt1.jpg" height="40"><a href="http://play.wst.cn" target="_blank">专题</a></td>
</tr>
<tr>
<td class="bgn" background="../images/ctt2.jpg">
<table border="0" cellpadding="0" cellspacing="0" width="930" align="center">
<tbody><tr>
<td colspan="7" height="30"></td>
</tr>
<tr valign="top"><td>
<% VoteProducts(125) %>
</td></tr></tbody></table>
</td>
</tr>
<tr>
<td background="../images/ctb3.gif" height="4"></td>
</tr>
</tbody></table>
<table id="xgFoot" border="0" cellpadding="0" cellspacing="0" width="935">
<tbody><tr>
<td></td>
</tr>
</tbody></table>
</div>
</body>
</html>
<%
function VoteProducts(Cate)
dim rs,sql,i,ProductName,SmallPicPath,ProductNo,ClickNumber
set rs = server.createobject("adodb.recordset")
sql="select ID,ProductNo,ClickNumber,ProductName,SortID,SmallPic,GroupID,Exclusive from ameav_Products where ViewFlag and NewFlag and SortID="&Cate&" order by ClickNumber desc"
rs.open sql,conn,1,1
' response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
' response.write "<tr><td height='20'></td></tr>"
if rs.bof and rs.eof then
response.write "<p>暂无相关信息</p>"
else
' response.write"<tr>"
for i=1 to 12
if rs.eof then exit for
response.write"<div class='perCom'>"
if StrLen(rs("ProductName"))<=10 then
ProductName=rs("ProductName")
else
ProductName=StrLeft(rs("ProductName"),8)
end if
ProductNo=rs("ProductNo")
ClickNumber=rs("ClickNumber")
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
response.write "<table align='center' border='0' cellpadding='0' cellspacing='0' width='204' >" &_
"<tbody><tr><td class='xgim1' width='204'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
"<img src='"&SmallPicPath&"' border='0' width='202' height='242'></a>" &_
"<br>"&ProductNo&"号--<font color=red>"&ClickNumber&"票</font><br><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a> "
if memclock=1 then
if session("MemName")="" then
response.write "<a href=# onClick='Confirmst();'>投票</a>"
else
response.write "<a href='PhotoVote.asp?id="&rs("id")&"&name="&rs("ProductName")&"'>投票</a>"
end if
else
response.write "<a href='PhotoVote.asp?id="&rs("id")&"&name="&rs("ProductName")&"'>投票</a>"
end if
response.write " </td></tbody></table></div>"
' response.write " <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"&#pl'>评论</a></td></tbody></table></div>"
' response.write"</td>"
' if i mod 4 = 0 then
' response.write"</tr>"
' end if
rs.movenext
next
end if
response.write "</table>"
rs.close
set rs=nothing
end function
function TopFriendSite()
dim rs,sql
dim i,SiteFace
set rs = server.createobject("adodb.recordset")
sql="select top 14 * from ameav_FriendSite where ViewFlag"&LangData&" order by id desc"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
response.write "<table border='0' cellpadding='0' cellspacing='0' width='98%'><tr>"
i=1
do while not rs.eof
if rs("LinkType") then
SiteFace="<td align='center' width='125' height='45' ><a href='"&rs("SiteUrl")&"' target=_blank><img src="&rs("SiteFace")&" width=110 height=30 border=0 style='text-decoration: underline;border: 1px solid #CCCCCC;'>"
else
SiteFace=rs("SiteFace")
if len(SiteFace)>8 then SiteFace=left(SiteFace,8)
end if
response.write "<a target='_blank' href='"&rs("SiteUrl")&"' target='_blank' title="&rs("SiteName")&">"&SiteFace&"</a></td>"
if i mod 7 = 0 then
response.write "</a></tr>"
end if
rs.movenext
i=i+1
loop
response.write "</table>"
end if
rs.Close
set rs=nothing
end function
%>
<%
function HeadNavigation()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td height='30' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr >"
do
response.write "<td align='center' class='Navigation' bgcolor='#000000'><a href='"&rs("NavUrl")&"'>"&rs("NavName")&"</a></td>"
rs.movenext
if not rs.eof then response.write "<td width='1'><img src='../Images/Head_compart_line.gif' align='absmiddle'></td>"
loop until rs.eof
response.write "</tr>"
end if
response.write "<tr><td width='100%' height='1' colspan='"&rs.recordcount*2-1&"'></td></tr>"
rs.close
set rs=nothing
end function
function SearchForm()
response.write "<table width='170' border='0' cellpadding='0' cellspacing='0'>" &_
"<form action='Search.asp' method='post' name='SearchForm'>" &_
" <tr>" &_
" <td width='60' height='20' >关键字：</td>" &_
" <td height='24' colspan='2' ><input name='Keyword' type='text' style='WIDTH: 100;' class='AllSearch'></td>" &_
" </tr>" &_
" <tr>" &_
" <td height='20' >范 围：</td>" &_
" <td width='82' height='24'>" &_
" <select name='Range' style='WIDTH: 82;'>" &_
" <option value='Products'>选手名称</option>" &_
" <option value='News'>新闻报道</option>" &_
" </select>" &_
" </td>" &_
" <td width='16' height='24' class='AllSearch'><input name='Login' type='submit' class='button' value='搜索' /></td>" &_
" </tr>" &_
"</form>" &_
"</table>"
end function
function Search()
response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" &_
"<form action='Search.asp' method='post' name='SearchForm'>" &_
"<tr><td align='right'><font color='red'>关键字：</font> <input name='Keyword' type='text' style='WIDTH: 100;' class='AllSearch'>" &_
" <font color='red'>范 围：</font> <select name='Range' style='WIDTH: 82;'>" &_
" <option value='Products'>选手名称</option>" &_
" <option value='News'>新闻报道</option>" &_
"</select>" &_
"<input name='Login' type='submit' class='button' value='搜索' />" &_
" </td></tr>" &_
"</form>" &_
"</table>"
end function
function TopVote()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_Products where ViewFlag order by ClickNumber desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
end if
for i=1 to 10
if rs.eof then exit for
response.write "<table width=100% ><tr><td ></td><td ><img src='../images/"&i&".gif' border='0'></td><td class='ListTitlv'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&rs("ProductName")&"</a></td><td class='ListTitlv'><font color=red>"&rs("ClickNumber")&"</font> 票</td></tr></table>"
rs.movenext
next
rs.close
set rs=nothing
end function
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupName")
rs.close
set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -