📄 productvote_do.asp

📁 修改迅易在线评选管理系统,,功能能用,下载的迅易功能不全,
💻 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>
<%
dim ProductName,id
function getip() '获得客户端IP
	getip=Request.ServerVariables("REMOTE_ADDR") 
end function
id=Request("id")
if id="" or not isnumeric(id) then
	Response.Write ("<script>alert('参数非法！');history.back();</script>")
	Response.End()
end if

SQL="Select * from ameav_Products where id="&id
Set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,3
if rs.eof then
	Response.Write ("<script>alert('参数非法,您不是经过投票进入的本页！');history.back();</script>")
	Response.End()
else
	ProductName=rs("ProductName")
end if
rs.Close
Set rs=Nothing
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="765" height="200" align="center" valign="middle" bgcolor="#FFFFFF">您以ip(<%=getip()%>)的名义成功地为<font color="#FF0000"><%=ProductName%></font>投上了一票<br />
    感谢您的参与　<a href="main.asp">返回
	 <script language=javascript> 
var the_timeout = setTimeout("location='ProductView.asp?ID=<%=id%>&SortID=125",3000); 
</script> 
</a> 三秒自动返回主页
</td>
  </tr>
</table>
<!-- #include file="foot.asp" -->
⌨️ 快捷键说明

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