<%
if alexa="11" Then
If Session("User_Account")="" Then
Call AlertUrl("请先登陆！","Index.asp")
Response.End
End if
End if
%>
<%
Dim action
action=Request("action")
if action="edit" 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 where Vote_Id=" & Request("vid")
rs.open sql,conn,3,3
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("修改成功！","VoteEdit.asp?vid="&Request("vid")&"")
Response.End
End if
if Request("action")="del" Then
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from Vote_Info where Vote_Id=" & Request("vid"),conn,1,3
rs.delete
rs.close
Call AlertUrl("删除成功！","VoteNavigation.asp")
Response.End
End if
%>
Netsoz.Com用户管理中心 -
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>