addvote.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 84 行

ASP
84 行
字号 
<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<html>
<head><title>添加投票</title>
<link href="css/new.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
-->
</style>
<head><body><table width="316" border="0" align="center">
 <form name="form1" method="post" action="">
	<tr>
	  <td width="451" height="25" align="center" bgcolor="#A6CAF0">添加投票</td>
	</tr>
	<tr>
	  <td height="25" align="center" bgcolor="#D4BFFF">投票项目:
      <input type="text" name="votename"></td>
	</tr>
	<tr>
	  <td height="25" align="center" bgcolor="#D4BFFF">投票名称:
      <input type="text" name="votemoname"></td>
	</tr>
	<tr>
	  <td height="25" align="center" bgcolor="#D4BFFF">投票名称最少二个.二个之间用"|"符号分开
      </td>
	</tr>
	<tr>
	  <td height="25" align="center" bgcolor="#D4BFFF">是否多选:&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="radio" name="ismore" value="1">
      是&nbsp;&nbsp;&nbsp;
      <input type="radio" name="ismore" value="0">
      否&nbsp;&nbsp;&nbsp;&nbsp;</td>
	</tr>
	<tr><td height="25" align="center" bgcolor="#D4BFFF"><input type="submit" name="Submit" value=" 设 置 ">
	  <input type="submit" name="Submit" value=" 重 置 "></td></tr>
  </form>
</table>
</body>
</html>
<% if trim(request("votename"))<>"" then
votename=Server.HTMLEncode(Request.Form("votename"))
votemoname=Server.HTMLEncode(Request.Form("votemoname"))
  vote=split(votemoname,"|")
  IF Ubound(vote)=0 THEN 
  response.write"<li>投票项至少要有两项"
  response.end 
  end if
if request("ismore")=1 then
more=True
else
more=False
end if
conn.execute("insert into vote(votename,ismore) Values('"&votename&"',"&more&")")
Set rs=conn.execute("Select ID From vote Order By ID DESC")
id=rs(0)
 rs.close
       Set rs=nothing
	 
	    FOR i=0 TO Ubound(vote)
         IF vote(i)<>"" THEN conn.execute ("Insert Into vote1(sid,votemoname) Values("&ID&",'"&vote(i)&"')")
       NEXT
   
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="添加系统投票["&votename&"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call Okmsg("添加成功","javascript:window.close();")
end if
%>

addvote.asp - 源码说明

本页面展示了「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主」中的 addvote.asp 源码文件，采用 ASP 编程语言编写，共 84 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与高效率相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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