⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 pollsystem.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
nickname=Session("hxf_u_nickname")
if nickname="" then Response.Redirect "manerr.asp?id=100"
If Int(Session("hxf_u_grade")) <> 12 Then Response.Redirect "manerr.asp?id=300"
poll = Split(Application("wsaxhxf_c_pollending"), "{]")
%>
<html>
<head>
<title>投票系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
 f2v = document.send.f2.value;
 f3v = document.send.f3.value;
 f4v = document.send.f4.value;
 f5v = document.send.f5.value;
 f6v = document.send.f6.value;
 f7v = document.send.f7.value;
 if(f2v == "" || f3v == "" || f4v == ""){
  alert("请将内容填写完整!");
  return false;
 }
 if(f2v.length != 19){
  alert("投票开始日期格式有误!");
  return false;
 }
 if(f3v.length != 19){
  alert("投票结束日期格式有误!");
  return false;
 }
 if(Math.floor(f4v) != f4v){
  alert("最低累积分数格式有误!");
  return false;
 }
 if(Math.floor(f5v) != f5v){
  alert("最低月积分数格式有误!");
  return false;
 }
 if(Math.floor(f6v) != f6v){
  alert("最低货币数值格式有误!");
  return false;
 }
 if(Math.floor(f7v) != f7v){
  alert("最低投票级别格式有误!");
  return false;
 }
 document.send.ok.disabled = 1;
 return true;
}
</script>
</head>
<body bgcolor="FFFFFF" class=p150>
<div align="center"> 
<h1><font color="0099FF">【投票系统】</font></h1>
<font color="#FF0000">【投票系统设置】</font></div>
<hr noshade size="1" color=009900>
<div align=center><a href="javascript:history.go(-1)">【返回】</a>  <a href="javascript:history.go(0)">【刷新】</a></div>
<hr noshade size="1" color=009900>
<div align=center class=cp></div>
<b>[参数设置]</b> <br>
  请在下面输入参数:<br>
<table border="0" align="center">
<form name="send" method="post" action="pollsystemok.asp" onsubmit="return(check())">
<tr> 
<td>投票系统公告:</td>
<td> 
<textarea name="f1" rows="8" cols="78"><%=Application("wsaxhxf_c_pollaffiche")%></textarea>
</td>
</tr>
<tr> 
<td>投票开始日期:</td>
<td> 
<input type="text" name="f2" maxlength="19" size="19" value="<%=poll(1)%>">
(格式为:<font color="red">2001-02-25 08:00:00</font>)</td>
</tr>
<tr> 
<td>投票结束日期:</td>
<td> 
<input type="text" name="f3" maxlength="19" size="19" value="<%=poll(2)%>">
(格式为:<font color="red">2001-02-25 18:00:00</font>) </td>
</tr>
<tr> 
<td>最低累积分数:</td>
<td> 
<input type="text" name="f4" maxlength="8" size="19" value="<%=poll(3)%>">
(格式为正整数,只有累积分达到此值,才允许投票)</td>
</tr>
<tr> 
<td>最低月积分数:</td>
<td> 
<input type="text" name="f5" maxlength="8" size="19" value="<%=poll(4)%>">
(格式为正整数,只有月积分达到此值,才允许投票)</td>
</tr>
<tr> 
<td>最低货币数值:</td>
<td> 
<input type="text" name="f6" maxlength="8" size="19" value="<%=poll(5)%>">
(格式为正整数,只有货币达到此值,才允许投票)</td>
</tr>
<tr> 
<td>最低投票级别:</td>
<td> 
<input type="text" name="f7" maxlength="2" size="19" value="<%=poll(6)%>">
(格式为正整数,只有级别达到此值,才允许投票)</td>
</tr>
<tr align="center"> 
<td colspan="2"> 
<input type="submit" name="ok" value="  确 定 (S)  " accesskey="s">
  
<input type="reset" name="reset" value="  还 原 (U)  " accesskey="u">
</td>
</tr>
</form>
</table>
<div align=center></div>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号:<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>,授权给:<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%>
</div>
</body>
</html>

⌨️ 快捷键说明

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