📄 productview.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:transparent 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;color:#333}
a:hover{text-decoration:underline;color:#000}
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>
<%
function showstring(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, chr(13), "")
fString = replace(fString, chr(10), "<br />")
fString = replace(fString, chr(34), """)
fString = replace(fString, chr(39), "'")
fString = replace(fString, "script", "script")
showstring = fString
end if
end function
dim id
id=Request.QueryString("id")%>
<table width="950" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
<tr>
<td width="209" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td><img src="../Images/vote.gif" width="209" height="30"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td><%TopVote()%></td>
</tr>
</table>
</td>
<td width="1" valign="top" bgcolor="#000000"></td>
<td width="690" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="26" height="32" align="center"> </td>
<td width="674" class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">参赛人物
<% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %></td>
<td width="80" class="Location"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" ><% =WebMenu("ameav_ProductSort",0)%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="12" ></td>
<td></td>
<td width="30"></td>
</tr>
<tr>
<td> </td>
<td><%=WebContent()%></td>
<td> </td>
</tr>
<tr>
<td height="30"></td>
<td></td>
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
Function WebMenu(DataFrom,ID)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
rs.open sql,conn,1,1
response.write("<table width='98%' border='0' cellspacing='0' cellpadding='0'><tr class='WebMenu'>")
if id=0 and rs.bof and rs.eof then
response.write "<td align='center'>暂无相关信息</td></tr>"
else
while not rs.eof
response.write ""
response.write "<td align='center'>"&rs("SortName")&"</td>"
rs.movenext
wend
end if
response.write("</tr></table>")
rs.close
set rs=nothing
end function
Function WebLocation(ID)
Dim rs,sql,LocationText
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From ameav_ProductSort where ViewFlag and ID="&ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<img src='../Images/Arrow_02.gif' align='absmiddle'>"&"错误"
exit function
end if
LocationText="<img src='../Images/Arrow_02.gif' align='absmiddle'>"&rs("SortName")&""
if rs("ParentID")<>0 then WebLocation rs("ParentID")
response.write LocationText
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -