📄 showvote.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="include/config.asp"-->
<!--#include file="include/ms_publicfunction.asp"-->
<!--#include file="skins/skin.asp"-->
<!--#include file="vote.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
if Request.Cookies("maosinSkin")("skin")<>"" then
skinSet=Request.Cookies("maosinSkin")("skin")
else
skinSet=getSkin(0)
response.Cookies("maosinSkin")("skin")=getSkin(0)
end if
select case lcase(request("action"))
case lcase("showvote")
call votehead()
call showVote()
call votefoot()
case lcase("saveVote")
call saveVote()
case lcase("voteList")
call votehead()
call voteList(0)
call votefoot()
end select
sub votehead()
dim headStr
headStr="<html><head>"
headStr=headStr&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
headStr=headStr&"<title>"&webname&"→投票结果</title>"
headStr=headStr&"<link href=""skins/"&skinSet&"/skin.css"" type=""text/css"" rel=stylesheet>"
headStr=headStr&"<script language=""JavaScript"" type=""text/javascript"" src=""skins/"&skinSet&"/ico.js""></script>"
headStr=headStr&"</head><body><center>"
headStr=headStr&"<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" class=""mc""><tr><td class=""right_t td_b""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""><tr><td class=""ltl""><script type=""text/javascript"">ico()</script></td><td class=""ltc""><span class=""tt"">投票中心</span></td><td class=""ltr""></td></tr></table></td></tr><tr><td>"
response.write(headStr)
end sub
sub votefoot()
dim footStr
footStr="<div style=""text-align:center;padding-bottom:3px;"">【<a href=""javascript:window.close();"">关闭窗口</a>】</div></td></tr></table></center></body></html>"
response.write(footStr)
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -