📄 vote_flash.asp
字号:
<%MDBpath="admin/"%>
<%
user=Request.cookies("JyDownUserName")
%>
<!--#include file="admin/mdb_path_user.asp"-->
<%
dim sql
dim rs
dim CurPage
if request("id")="" then
response.write "您没有选择相关动画，请返回"
response.end
end if
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
display = CurPage
set rs=server.createobject("adodb.recordset")
if request("action")="save" then
grade=request("grade")
biaoqing=request("biaoqing")
if request("content")<>"" then
content=replace(replace(replace(request("content"),"'","‘"),"<","<"),">",">")
if request("username")<>"" then
username=replace(replace(replace(request("username"),"'","‘"),"<","<"),">",">")
end if
if request("useremail")<>"" then
useremail=replace(replace(replace(request("useremail"),"'","‘"),"<","<"),">",">")
end if
end if
downid=request("id")
if session("truevote")<>downid then
sql="select * from Dvote where (id is null)"
rs.open sql,conn,1,3
rs.addnew
if request("content")<>"" then
rs("content")=content
end if
if request("username")<>"" then
rs("username")=username
end if
if request("useremail")<>"" then
rs("useremail")=useremail
end if
rs("grade")=grade
rs("biaoqing")=biaoqing
rs("downid")=downid
session("truevote")=downid
rs.update
rs.close
else
response.write "<script>alert('对不起！你已经进行了投票！');window.close();</script>"
end if
end if
sql="select * from Dvote where downid="&request("id")&" order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
V_num=0
pingrade=0
else
V_num=rs.recordcount
pingrade=allgrade()/V_num
function allgrade()
dim tmprs
tmprs=conn.execute("Select sum(grade) As grades from Dvote where downid="&request("id")&"")
allgrade=tmprs("grades")
set tmprs=nothing
if isnull(allgrade) then allgrade=0
end function
end if
%>
<!--#include file="admin/mdb_path_down.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>点评</title>
<style type="text/css">
<!--
td {
font-size: 12px;
font-family: "宋体";
}
A {
COLOR: #2A2A2A;
}
.p1
{
FONT-FAMILY: "宋体";
FONT-SIZE: 9pt;
LETTER-SPACING: 1px;
LINE-HEIGHT: 135%;
MARGIN-BOTTOM: 0px;
MARGIN-TOP: 0px;
PADDING-BOTTOM: 0px;
PADDING-TOP: 4px;
WORD-SPACING: 1px
}
A:hover {
COLOR: #FF0000;
}
.title {color: #d90000; font-size: 18px; line-height: 22px; font-weight:bold}
.cn { font-family: "宋体", "simsun"; font-size: 14.6px}
-->
</style>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center">
<tr><td width="178"><img src="../images/myflashlogo.gif" border="0" width="178" height="29"></td>
<td width="582" class="title" align="center">以下网友留言只代表网友个人观点，不代表本站观点</td>
</tr>
<tr>
<td width="758" class="cn" colspan="2"><%if rs.eof and rs.bof then%><li>本作品暂无评论！<%
else
'定义每页纪录条数
RS.PageSize=20
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+20<=CurPage
StartPageNum=StartPageNum+20
Loop
EndPageNum=StartPageNum+19
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
%></td>
</tr>
<tr>
<td width="758" bgcolor="#D4D4D4" height="1" colspan="2"></td>
</tr>
<tr>
<td width="758" bgcolor="#FFE084" height="25" colspan="2"></td>
</tr>
<tr>
<td width="758" bgcolor="#D4D4D4" height="1" colspan="2"></td>
</tr>
<tr>
<td width="758" height="10" colspan="2"></td>
</tr>
<tr>
<td width="758" colspan="2">
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#D4D4D4" bordercolordark="#D4D4D4" bordercolorlight="#D4D4D4"><%
I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I<RS.PageSize)
p=p+1
%>
<tr>
<td width="100%" bgcolor="#F7F7F7" class="cn"><p style="line-height: 150%"> <img src="images/biaoqing<%=rs("biaoqing")%>.gif" width="18" align="absMiddle" hight="18" align="absMiddle"> <a onclick='window.open("../admin/user.asp?user=<%=rs("username")%>","","width=400,height=150,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no")' href="javascript:"><%=rs("username")%></a> 发表于：<%=rs("addtime")%></p>
</td>
</tr>
<tr>
<td width="100%" class="cn"><p style="line-height: 150%"><%=rs("content")%> 打分：<%for i=1 to rs("grade")%><font color="#fd9720">★</font><%next%></p>
</td>
</tr><%
I=I+1
RS.MoveNext
Loop
%>
</table>
</td>
</tr>
<tr>
<td width="758" colspan="2" height="10"></td>
</tr>
<tr>
<td width="758" bgcolor="#D4D4D4" height="1" colspan="2"></td>
</tr>
<tr>
<td width="758" bgcolor="#FFE084" height="25" class="qita" colspan="2"> 此作品共：(<%=V_num%>)人投票 平均：(<%=formatnumber(pingrade,1)%>)分 页：<b><%=CurPage%>/<%=TotalPages%></b> 页数：<a href="vote_flash.asp?CurPage=<%=StartPageNum-1%>&id=<%=request("id")%>"><</a> <% For I=StartPageNum to EndPageNum
if I<>CurPage then %><a href="vote_flash.asp?CurPage=<%=I%>&id=<%=request("id")%>">
<%=I%></a>
<% else %>
<%=I%>
<% end if %>
<% Next %>
<% if EndPageNum<RS.Pagecount then %>
<a href="vote_flash.asp?CurPage=<%=EndPageNum+1%>&id=<%=request("id")%>">
更多</a><%end if%> | <a href="vote_flash.asp?id=<%=request("id")%>">刷新</a></td>
</tr></table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center"><%
end if
%><tr>
<td width="758" bgcolor="#D4D4D4" height="1" colspan="2"></td>
</tr>
<tr>
<td width="758" colspan="2"> </td>
</tr><tr>
<td width="758" bgcolor="#D4D4D4" height="2" colspan="2"></td>
</tr>
<tr>
<td width="758" bgcolor="#F7F7F7" height="25" colspan="2"> </td>
</tr>
<tr>
<td width="758" colspan="2"><table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" cellspacing="3">
<tr><form method=post action="vote_flash.asp">
<td width="55%"><a name="vote"></a>昵称：<input name=username type=text size="13" value='<%=user%>'> 打分：<input type="hidden" name="action" value="save"><input name=grade type=radio value=1>1星 <input name=grade type=radio value=2>2星 <input checked name=grade type=radio value=3>3星 <input name=grade type=radio value=4>4星 <input name=grade type=radio value=5>5星<br>表情：<input checked name=biaoqing type=radio value=1> <img src="images/biaoqing1.gif" width="18" align="absMiddle" hight="18" align="absMiddle">
<input name=biaoqing type=radio value=2> <img src="images/biaoqing2.gif" width="18" align="absMiddle" hight="18" align="absMiddle">
<input name=biaoqing type=radio value=3> <img src="images/biaoqing3.gif" width="18" align="absMiddle" hight="18" align="absMiddle">
<input name=biaoqing type=radio value=4> <img src="images/biaoqing4.gif" width="18" align="absMiddle" hight="18" align="absMiddle">
<input name=biaoqing type=radio value=5> <img src="images/biaoqing5.gif" width="18" align="absMiddle" hight="18" align="absMiddle"> <input name=biaoqing type=radio value=6> <img src="images/biaoqing6.gif" width="18" align="absMiddle" hight="18" align="absMiddle"> <input name=biaoqing type=radio value=7> <img src="images/biaoqing7.gif" width="18" align="absMiddle" hight="18" align="absMiddle"><input name=id type=hidden value='<%=Request("id")%>'>
<textarea name=content cols=50 rows=8>无评论</textarea><br><input type=submit name=cmdok value=" 发 表 "> <a href="admin/reg.asp">注册成为本站会员</a></td></form>
<td width="45%" CLASS="p1"><script language=javascript src=http://ulinkjs.tom.com/10_news.js></script></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="758" colspan="2"> </td>
</tr>
<tr>
<td width="758" bgcolor="#F7F7F7" class="p1" colspan="2">· 尊重网上道德，遵守《<a href="http://www.shanke.cn/server/10.htm" target="_blank"><font color="#0000FF">全国人大常委会关于维护互联网安全的决定</font></a>》及中华人民共和国其他各项有关法律法规<br>
· 承担一切因您的行为而直接或间接导致的民事或刑事法律责任<br>
· 本站管理人员有权保留或删除其管辖留言中的任意内容<br>
· 您在本站讨论板发表的作品，本站有权在网站内转载或引用<br>
· 参与本留言即表明您已经阅读并接受上述条款</td>
</tr>
<tr>
<td width="758" colspan="2"><hr size="1"></td>
</tr>
</table><script language=javascript src="js/ss_top.js"></script><br>
<script language=javascript src=js/copyright.js></script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -