poll_addok.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
If not IsArray(Session("info")) Then Response.Redirect "err1.asp?kind=01"
info=Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",")<>0 Then Response.Redirect "manyou.asp"
gradeinfo = Application("gradeinfo")
If gradeinfo(info(1),28) <> True Then Response.Redirect "err.asp?kind=110"
title = Request.Form("title")
min_grade = Request.Form("min_grade")
max_grade = Request.Form("max_grade")
dis_user = Request.Form("dis_user")
polls = Request.Form("polls")
title = server.HTMLEncode(title)
dis_user = server.HTMLEncode(dis_user)
If title = "" Then Response.Redirect "err.asp?kind=111"
If polls = "" Then Response.Redirect "err.asp?kind=112"
If Int(min_grade) > Int(max_grade) Then Response.Redirect "err.asp?kind=113"
dis_user = Replace(dis_user,"｜","|")
polls = Replace(polls,"|","")
polls = Replace(polls,chr(13),"|")
polls = Replace(polls,chr(10),"|")
Do While InStr(polls,"||") <> 0
 polls = Replace(polls,"||","|")
Loop
If Right(polls,1)="|" Then polls=Left(polls,Len(polls)-1)
polls = server.HTMLEncode(polls)
polllist = Split(polls,"|")
counts = ""
pollmans = ""
For i = 0 To Ubound(polllist)-1
 counts = counts & "0|"
 pollmans = pollmans & ",|"
Next
counts = counts & "0"
pollmans = pollmans & ","
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
 Set rs=server.createobject("adodb.recordset")
 sql="select * from poll where (id is null)"
 rs.open sql,conn,1,3
 rs.AddNew
  Rs("title") = title
  Rs("manager") = info(0)
  Rs("pollman") = pollmans
  Rs("min_grade") = Int(min_grade)
  Rs("max_grade") = Int(max_grade)
  Rs("dis_user") = dis_user
  Rs("polls") = polls
  Rs("counts") = counts
  Rs("time") = now
 rs.UpDate
 rs.close
 sql="select * from poll"
 rs.open sql,conn,3,3
  co=Int(rs.recordcount)
  Dim pollinfo()
  ReDim pollinfo(co,9)
  For i=1 to co
   pollinfo(i,0)=Rs("id")
   pollinfo(i,1)=Rs("title")
   pollinfo(i,2)=Rs("manager")
   pollinfo(i,3)=Rs("pollman")
   pollinfo(i,4)=Rs("min_grade")
   pollinfo(i,5)=Rs("max_grade")
   pollinfo(i,6)=Rs("dis_user")
   pollinfo(i,7)=Rs("polls")
   pollinfo(i,8)=Rs("counts")
   pollinfo(i,9)=Rs("time")
   rs.MoveNext
  Next
 rs.Close
 Set rs=Nothing
Conn.Close
Set Conn = Nothing
Application.Lock
 Application("pollinfo") = pollinfo
Application.UnLock
%>
<!--#INCLUDE FILE="function.asp" -->
<%
w1 = info(0)
w2 = "<a style='color:#FFFF00' href='javascript:parent.openpoll();'><b>" & Ubound(pollinfo) & "</b>个投票在进行</a>"
w3 = "poll"
w4 = "[<img src='images/sys.gif'>投票]<img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#0000ff>" & info(0) & "</font> 发起了主题为“<font color='#008000'>" & title & "</font>”的投票。<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font>"
saveword w1,w2,w3,w4,w5
%>
<Script Language="JavaScript">
if(confirm("投票已经添加！点击确定关闭投票窗口，点击取消返回投票中心。"))
{
window.close();
}
else
{
location.href="poll.asp";
}
</Script>