📄 plug_index.asp
字号:
<!--#include file="Plug_conn.asp"-->
<%
'*****************************************
'芊芊网路阅读心情插件
'http://www.cns520.com
'*****************************************
dim arr(9)
For Each i In Request.QueryString
if len(trim(request.QueryString(i)))>6 then
response.write "对不起..."
response.end()
end if
next
For Each i In Request.Form
if len(trim(request.Form(i)))>1 then
response.write "对不起..."
response.end()
end if
next
arr(9)=1
if request.QueryString("id")="" then
response.write "对不起..."
response.end()
else
pollid=cint(request.QueryString("id"))
num=cint(request.Form("mood"))
set rs=server.createobject("adodb.recordset")
sql="select * from poll where classid="&pollid
rs.open sql,conn,1,3
if trim(request.Form("mood"))<>"" and request.Cookies("art"&pollid)="" then
if rs.bof and rs.eof then
response.write "对不起..."
response.end()
end if
select case num
case 1
rs("chijing")=rs("chijing")+1
case 2
rs("kaixin")=rs("kaixin")+1
case 3
rs("tongqing")=rs("tongqing")+1
case 4
rs("gandong")=rs("gandong")+1
case 5
rs("fengnu")=rs("fengnu")+1
case 6
rs("gaoxiao")=rs("gaoxiao")+1
case 7
rs("nanguo")=rs("nanguo")+1
case 8
rs("wuliao")=rs("wuliao")+1
end select
rs.update
Response.Cookies("art"&pollid)="ed"
for i=1 to 8
arr(i)=rs(i+1)
if arr(9)<arr(i) then arr(9)=arr(i)
next
elseif rs.bof and rs.eof then
rs.addnew
rs("classid")=pollid
rs.update
for i=1 to 8
arr(i)=0
next
else
for i=1 to 8
arr(i)=rs(i+1)
if arr(9)<arr(i) then arr(9)=arr(i)
next
end if
rs.close
set rs=nothing
end if
call closeconn()
%>
<!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=gb2312" />
<title>阅读心情插件-芊芊网路</title>
<STYLE type=text/css>HTML {
FONT-SIZE: 12px; BACKGROUND: #ffffff
}
BODY {
FONT-SIZE: 12px; BACKGROUND: #ffffff
}
TD {
FONT-SIZE: 12px; BACKGROUND: #ffffff
}
</STYLE>
</head>
<body>
<% if request.Cookies("art"&pollid)="ed" then
docstr="javascript:alert('^_^ 您已经表过态了的啊！');"
else
docstr="javascript:document.form1.submit();"
end if
function toimg(num)
if num>0 then
toimg=0
else
toimg=1
end if
end function
%>
<fieldset>
<legend><FONT color=#ff0000>【您看到此篇文章时的感受是：】</FONT></legend>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TR>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(1) %><BR><IMG
height="<%= 60*arr(1)/arr(9) %>" src="images/10<%= toimg(arr(1)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(2) %><BR><IMG
height="<%= 60*arr(2)/arr(9) %>" src="images/10<%= toimg(arr(2)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(3) %><BR><IMG
height="<%= 60*arr(3)/arr(9) %>" src="images/10<%= toimg(arr(3)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(4) %><BR><IMG
height="<%= 60*arr(4)/arr(9) %>" src="images/10<%= toimg(arr(4)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(5) %><BR><IMG
height="<%= 60*arr(5)/arr(9) %>" src="images/10<%= toimg(arr(5)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(6) %><BR><IMG
height="<%= 60*arr(6)/arr(9) %>" src="images/10<%= toimg(arr(6)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(7) %><BR><IMG
height="<%= 60*arr(7)/arr(9) %>" src="images/10<%= toimg(arr(7)) %>.gif" width=20></TD>
<TD vAlign=bottom scope=col align=middle width=60 height=80><%= arr(8) %><BR><IMG
height="<%= 60*arr(8)/arr(9) %>" src="images/10<%= toimg(arr(8)) %>.gif" width=20></TD></TR>
<TR>
<TD align=middle height=25><IMG height=25 src="images/1.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/2.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/3.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/4.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/5.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/6.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/7.gif"
width=25></TD>
<TD align=middle height=25><IMG height=25 src="images/8.gif"
width=25></TD></TR>
<TR>
<TD align=middle>欠扁</TD>
<TD align=middle>支持</TD>
<TD align=middle>很棒</TD>
<TD align=middle>找骂</TD>
<TD align=middle>搞笑</TD>
<TD align=middle>软文</TD>
<TD align=middle>不解</TD>
<TD align=middle>吃惊</TD></TR>
<FORM id="form1" name="form1" action="Plug_Index.asp?id=<%= pollid %>" method="post">
<TR>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=1 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=2 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=3 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=4 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=5 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=6 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=7 name=mood></TD>
<TD align=middle><INPUT onclick="<%= docstr %>"
type=radio value=8 name=mood></TD></TR></FORM></TABLE></fieldset>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -