adminvote.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="conn.asp"-->
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
}
a {
	font-size: 12px;
	color: #000000;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <%dim username,sql,type2,ad
ad=request.querystring("ad")
type2=request.queryString("type2")
use=request.querystring("use")
	if Session("chong")<>4 then
Response.Write("兄弟，你的权力不够啊！快来给我送点礼吧")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>哎，回去吧</font></a>")
	else
Select Case type2
	Case "add":
		Call add
		Case "del":
		Call del
	Case Else:
		 call show
End Select 
end if
sub show
%> <table width="100%"  cellspacing="0">
                            <tr>
                              <td><table width="100%"  cellspacing="0">
                            <tr>
                              <td><%set rs=server.createobject("adodb.recordset")
sql="select * from vote where class='1'"
rs.open sql,conn,1,1
if rs.eof then
%><table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#3399FF">
                                <form name="form1" method="post" action="?type2=add">
                                <tr>
                                  <td colspan="2"><div align="center"><b>添 加 投 票</b></div></td>
                                  </tr>
                                <tr>
                                  <td width="14%"><div align="right">主题：</div></td>
                                  <td width="86%"><input name="Title" type="text" style="font-family: 宋体; font-size: 9pt" size="34" maxlength="15">
                                  </td>
                                </tr>
								    <%for i=1 to 6%>
          <tr>
            <td align="right">选项<%=i%>：</td>
            <td><input type="text" name="select<%=i%>" size="20" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
<%next%>
                                <tr>
                                  <td>&nbsp;</td>
                                  <td>　　
                                    <input type="submit" name="Submit" value="提交">　　
                                    <input type="reset" name="Submit" value="重置"></td>
                                </tr>
                                </form>
                              </table>
                                
                                    <%else%><div align="center">
                                    <span class="style2">只能有一个投票，要想用新的投票，请删除已有的</span><br><br>
已有投票：<%=rs("title")%>　　<a href="?type2=del&ad=<%=rs("id")%>" onClick="return confirm('真的要删除？')"><font color=red>删除投票</font></a><br><br></div>
									<%end if%>
                                </td>
                            </tr>
                            <tr>
                              <td></td>
                            </tr>
                          </table>
<%     rs.close
	 set rs=nothing
end sub
sub add
dim bjjz,bjtype,sir
Title=trim(request.form("Title"))
if Title="" then
response.write("对不起，投票主题不能为空！<br>")
response.write("<a href='javascript:history.go(-1)'>回去吧</a>")
exit sub
end if
set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from vote where 1=2",conn,1,3
	rs.addnew()
		rs("Title")=Title
		for i=1 to 6
			if request("select"&i)<>"" then
				rs("select"&i)=request("select"&i)
			end if
		next
		rs("date")=now()
		rs("class")=1
	rs.update
	rs.close
	set rs=nothing
response.write("添加新的投票成功了！<br>")
end sub

sub del
set rs=server.createobject("adodb.recordset")
sql="delete from vote where ID="&ad&""
rs.open sql,conn,1,3
conn.close
set conn=nothing
Response.Redirect "adminvote.asp"
end sub
%></td>
  </tr>
</table>
</BODY></HTML>