<%
if alexa="11" Then
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
End if
%>
<%
Dim action,group
action=Request("action")
if action="add" Then
if Request.Form("Vote_Title")="" Then
Call AlertUrl("请先添加投票主题","VoteAdd.asp")
Response.End
End if
if Request.Form("Vote_Star")="" Then
Call AlertUrl("没有添加开始时间","VoteAdd.asp")
Response.End
End if
if Request.Form("Vote_Over")="" Then
Call AlertUrl("没有添加结束时间","VoteAdd.asp")
Response.End
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Vote_Info"
rs.open sql,conn,1,3
rs.addnew
rs("Vote_User")=Session("User_Account")
rs("Vote_Title")=Trim(Request.Form("Vote_Title"))
rs("Vote_Type")=Trim(Request.Form("Vote_Type"))
rs("Vote_Star")=Trim(Request.Form("Vote_Star"))
rs("Vote_Over")=Trim(Request.Form("Vote_Over"))
rs("Vote_Memo")=Replace(Server.HtmlEncode(Trim(Request.Form("Vote_Memo"))),VbCrLf,"
")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("添加成功！","VoteAdd.asp")
Response.End
End if
%>
<%
if action="Show" Then
db_path = "#Vote.mdb"
Set conn_Vote= Server.CreateObject("ADODB.Connection")
conn_Votestr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn_Vote.Open conn_Votestr
Set rs_Vote = Server.CreateObject ("ADODB.Recordset")
sql="select * from Vote_Info where Vote_User='"&Session("User_Account")&"'"
rs_Vote.Open sql,conn_Vote,1,1
Do Until rs_Vote.EOF
Response.Write("")
rs_Vote.MoveNext
Loop
rs_Vote.close
Set rs_Vote = Nothing
conn_Vote.close
set conn_Vote=Nothing
End if
%>
Netsoz.Com用户管理中心 -