📄 poll_set.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Set rs_count = Server.CreateObject("ADODB.Recordset")
sql_count = "select count(*) as reccount from DB_Poll"
set rs_count=conn.execute(sql_count)
if rs_count("reccount")>=6 then
%>
<script language="javascript">
alert("您最多可以添加六本参加评选的图书！");
window.location="PollAdd_OK_6.asp"
</script>
<% end if %>
<%
if request.Form("select")<>"" then
mystr=request.Form("select")
set rs_c=server.CreateObject("ADODB.RecordSet")
sql_C="SELECT bookname FROM DB_Poll WHERE bookname='" & mystr & "'"
set rs_c=conn.execute(sql_C)
if rs_c.eof then
sql_Ins="Insert into DB_Poll (bookname) values('"& mystr &"')"
conn.execute sql_Ins %>
<script language="javascript">
alert("数据添加成功！");
window.location.href="PollAdd_OK.asp"
</script>
<% else %>
<script language="javascript">
alert("该图书已经添加到评选列表中！");
history.back();
</script>
<% end if
end if
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql_rs= "SELECT * FROM DB_bookinfo ORDER BY BookName ASC"
set rs=conn.execute(sql_rs)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票信息设置！</title>
<link href="style.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0">
<table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td background="images/poll_top.gif"> </td>
</tr>
</table>
<table width="640" height="286" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="95" background="images/buycar_bottom.jpg">
<div align="center">
<table width="96%" height="83" border="0" align="center" cellpadding="0"
cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF"
bordercolordark="#0000FF">
<tr>
<td width="595" height="37" colspan="2" align="right" valign="middle" nowrap>
<div align="left" class="style1"> 请选择参与评选的图书名称：</div></td>
</tr>
<tr>
<td height="46" align="right" valign="baseline" nowrap><div align="left">
<form name="form1" method="POST" action="poll_set.asp">
<table width="100%" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td width="71%">
<select name="select">
<% While (NOT rs.EOF) %>
<option value="<%=(rs("BookName"))%>"><%=(rs("BookName"))%>
</option>
<% rs.MoveNext()
Wend %>
</select></td><td width="29%"><div align="center">
<input type="image" src="images/poll_add.gif" width="81" height="36"
border="0">
<a href="manager.htm"><img src="images/register_back.gif" width="81" height="36" border="0"></a></div></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="21" background="images/buycar_bottom.jpg"><div align="center"></div></td>
</tr>
<tr>
<td background="images/buycar_bottom.jpg"><table width="97%" border="0" align="center"
cellpadding="-1" cellspacing="-1">
<tr>
<td><div align="center"><font size="2">本站请用IE4.0或以上版本浏览，
800*600为最佳效果 <br>
版权所有：长春市明日科技有限责任公司 <br>
客户信箱：mingrisoft@mingrisoft.com </font>
<font size="2">联系电话：0431-4972266</font></div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -