📄 productviewbad.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}
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>
<%
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="900" border="0" cellspacing="0" cellpadding="0" align="center">
<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"><a href='ProductList.asp'>参赛人物</a>
<% 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>
<table width="100%" height="155" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="25" colspan="2" align="left" valign="top" class="STYLE3" style="line-height: 150%"> </td>
</tr>
<tr>
<td width="29" height="32" align="center" valign="middle" class="STYLE3" style="line-height: 150%"> </td>
<td width="751" height="25" align="left" valign="middle" class="STYLE3" style="line-height: 150%">最新人物评论<img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href="ProductPl.asp?id=<%=id%>" target="_blank"><span class="Location"></span>查看所有评论 </a></td>
</tr>
<tr>
<td height="70" colspan="2" align="left" valign="top" class="STYLE3" style="line-height: 150%"><table width="100%" height="155" border="0" cellpadding="0" cellspacing="0" >
<%
Set rs=server.CreateObject("Adodb.Recordset")
sql="Select top 5 * from ameav_pl where sh=1 and pid="&id&" order by addtime desc"
rs.Open sql,conn,1,1
if rs.eof then
%>
<tr>
<td colspan="2" align="center" valign="middle" height="50">暂无评论</td>
</tr>
<%
end if
do while not rs.eof
%>
<tr>
<td width="28" height="70" align="center" valign="middle"></td>
<td width="690" height="70" align="left" valign="top" class="STYLE3" style="line-height: 150%">
留言信息：
<%=showstring(rs("info"))%><br />
评论人：<%=rs("nick")%> QQ/MSN：<%=rs("qq")%> 评论时间：<%=rs("addtime")%></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</table></td>
</tr>
</table>
<form id="form12" name="form12" method="post" action="Productpl_do.asp?id=<%=id%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#D4D0C8">
<tr>
<td height="25" colspan="2" background="#pl" class="STYLE3"> <a name="pl" id="pl"></a> <a href="#pl">发表评论</a></td>
</tr>
<tr>
<td width="139" height="42"> 昵 称： </td>
<td width="541"><input name="nick" type="text" class="STYLE4" id="nick" size="15" maxlength="20" />
QQ/MSN：
<input name="qq" type="text" class="STYLE4" id="qq" size="15" maxlength="50" />
验证码：
<input name='validatecode' type='text' size='5' style="ime-mode:disabled" />
<img src='../Include/ChkCode/validatecode.asp' align='absmiddle' border='0' /></td>
</tr>
<tr>
<td height="85" valign="top"> 内 容： </td>
<td height="85" valign="top"><textarea name="info" cols="58" rows="5" id="info"></textarea></td>
</tr>
<tr>
<td height="49" valign="top"> </td>
<td height="49" align="center"><br />
<input name="Submit" type="submit" class="MemLogin" value="发表评论" />
<input name="Submit2" type="reset" class="MemLogin" value="重写" /></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</div>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -