<%
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="edit" Then
if Request.Form("Option_Title")="" Then
Call AlertUrl("没有添加标题","VoteOptionEdit.asp")
Response.End
End if
if Request.Form("Option_Num")="" Then
Request.Form("Option_Num")="0"
End if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from Vote_Option where Option_Id=" & Request("oid")
rs.open sql,conn,1,3
rs("Vote_Id")=Request.Form("Vote_Id")
rs("Option_Title")=Trim(Request.Form("Option_Title"))
rs("Option_Num")=Trim(Request.Form("Option_Num"))
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call AlertUrl("修改成功！","VoteNavigation.asp")
Response.End
End if
%>
Netsoz.Com用户管理中心 - 投票系统 - 添加选项
<%
Set rs = Nothing
conn.close
set conn=Nothing
%>