asp投票系统一

If IsNumeric(Request("voteid")) Then
 voteid = CLng(Request("voteid"))
Else
 voteid = 0
End If
If voteid = 0 Then
 SQL = "SELECT TOP 1 * FROM NC_Vote WHERE isLock<>1 ORDER BY id DESC"
Else
 SQL = "SELECT * FROM NC_Vote WHERE id="& voteid
End If
Set Rs = Conn.Execute(SQL)
If Rs.EOF Then
 Response.Write("连接数据发生错误")
 Response.End
Else
 For i = 1 To 5
  If IsNull(Rs("Choose_"&i)) Then Exit For
 Next

 nowid = Rs("id")

 Response.ContentType = "text/xml"
 'Response.Expires = -1
 Response.Write "<?xml version=""1.0"" encoding=""GB2312""?> " & vbNewLine
 Response.Write "<vote>" & vbNewLine
 Response.Write " <system>" & vbNewLine
 Response.Write "  <voteid>"
 Response.Write Rs("id")
 Response.Write "</voteid>" & vbNewLine
 Response.Write "  <Topic><![CDATA["
 Response.Write Rs("Topic")
 Response.Write "]]></Topic>" & vbNewLine
 Response.Write "  <VoteNum>"
 Response.Write Rs("VoteNum")
 Response.Write "</VoteNum>" & vbNewLine
 Response.Write "  <votebgcolor><![CDATA["
 Response.Write Rs("bgcolor")
 Response.Write "]]></votebgcolor>" & vbNewLine
 Response.Write "  <votewordcolor><![CDATA["
 Response.Write Rs("FontColor")
 Response.Write "]]></votewordcolor>" & vbNewLine
 Response.Write "  <Topicunt>"
 Response.Write i - 1
 Response.Write "</Topicunt>" & vbNewLine
 Response.Write "  <FontSize>"
 Response.Write Rs("FontSize")
 Response.Write "</FontSize>" & vbNewLine
 Response.Write "  <VoteType>"
 Response.Write CBool(Rs("VoteType"))
 Response.Write "</VoteType>" & vbNewLine
 Response.Write " </system>" & vbNewLine

 For i = 2 To 6
  If IsNull(Rs(i)) Then Exit For
  Response.Write " <Choose>" & vbNewLine
  Response.Write "  <csco><![CDATA["
  Response.Write Rs(i)
  Response.Write "]]></csco>" & vbNewLine
  Response.Write "  <Choosenum>"
  Response.Write Rs(i + 5)
  Response.Write "</Choosenum>" & vbNewLine
  Response.Write " </Choose>" & vbNewLine
 Next
End If
Rs.Close
Set Rs = Nothing
Response.Write " <prenext>" & vbNewLine
Response.Write "  <next>"
SQL = "SELECT * FROM NC_Vote WHERE id>"& nowid &" And isLock<>1"
Set Rs = Conn.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
 Response.Write Rs("id")
End If
Rs.Close
Set Rs = Nothing
Response.Write "</next>" & vbNewLine
Response.Write "  <pre>"
SQL = "SELECT * FROM NC_Vote WHERE id<"& nowid &" And isLock<>1 ORDER BY id DESC"
Set Rs = Conn.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
 Response.Write Rs("id")
End If
Rs.Close
Set Rs = Nothing
Response.Write "</pre>" & vbNewLine
Response.Write " </prenext>" & vbNewLine
Response.Write "</vote>" & vbNewLine

CloseConn
%>