voteadd.asp

网站的后台管理代码......内容比较全面....新手比较适合

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if session("admin_name")="" then 
response.end
end if%>
<%
dim Title,VoteTime,Action,IsSelected
dim rs,sql
Title=trim(request.form("Title"))
VoteTime=trim(request.form("VoteTime"))
if VoteTime="" then VoteTime=now()
Action=trim(request("Action"))
IsSelected=trim(request("IsSelected"))

dim i
if Title<>"" then
	sql="select top 1 * from Vote"
	Set rs= Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("Title")=Title
	for i=1 to 8
		if trim(request("select"&i))<>"" then
			rs("select"&i)=trim(request("select"&i))
			if request("answer"&i)="" then
				rs("answer"&i)=0
			else
				rs("answer"&i)=clng(request("answer"&i))
			end if
		end if
	next
	rs("VoteTime")=VoteTime
	rs("VoteType")=request("VoteType")
	if IsSelected="" then IsSelected=false
	if IsSelected="True" then conn.execute "Update Vote set IsSelected=False where IsSelected=True"
	rs("IsSelected")=IsSelected
	rs.update
	rs.close
	set rs=nothing
	Response.Redirect "VoteManage.asp"
end if
%>
<table width="102%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
  <tr>
    <td height="29" valign="middle" background="../images/pics/tile_sub.gif">&gt;&gt;添加调查</td>
  </tr>
  <tr> 
    <td width="753" align="center" valign="top"><br>
      <br> <form method="POST" action="VoteAdd.asp">
        <table width="684" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#999999" Class="border">
          <tr class="tdbg"> 
            <td width="89" height="22" align="right" bgcolor="#A4B6D7">主题：</td>
            <td colspan="3" bgcolor="#E3E3E3"> <input name="Title" type="text" size="45" maxlength="50"></td>
          </tr>
          <%
	for i=1 to 8%>
          <tr class="tdbg"> 
            <td height="22" align="right" bgcolor="#A4B6D7">选项<%=i%>：</td>
            <td width="341" bgcolor="#E3E3E3"> <input type="text" name="select<%=i%>" size="36">            </td>
            <td width="39" align="right" bgcolor="#E3E3E3">票数：</td>
            <td width="195" bgcolor="#E3E3E3"> <input type="text" name="answer<%=i%>" size="5"></td>
          </tr>
          <%next%>
          <tr class="tdbg"> 
            <td height="22" align="right" bgcolor="#A4B6D7">调查类型：</td>
            <td colspan="3" bgcolor="#E3E3E3"> <select name="VoteType" id="VoteType">
                <option value="Single" selected>单选</option>
                <option value="Multi">多选</option>
              </select></td>
          </tr>
          <tr class="tdbg"> 
            <td height="22" align="right" bgcolor="#A4B6D7">&nbsp;</td>
            <td colspan="3" bgcolor="#E3E3E3"> <input name="IsSelected" type="checkbox" id="IsSelected" value="True" checked>
              设为最新调查</td>
          </tr>
          <tr class="tdbg"> 
            <td height="25" colspan=4 align=center> <input name="Submit" type="submit" id="Submit" value=" 添 加 "> 
              &nbsp; <input  name="Reset2" type="reset" id="Reset2" value=" 清 除 ">            </td>
          </tr>
        </table>
      </form></strong></p>      </td>
  </tr>
</table>