install2.asp

基于ASP开发的聊天室源码

<%
v1 = Request.Form("v1")
v2 = Request.Form("v2")
Set fso = Server.CreateObject("Scripting.FilesyStemObject")
If fso.FileExists(Server.MapPath(v1 & "\" & v2)) = True Then
 Response.Write "<Script>alert('此文件名已经被系统占用,请使用其他文件名');history.back(-1)</Script>"
 Response.End
End If
fso.CreateFolder Server.MapPath(v1)
fso.MoveFile Server.MapPath("other\data.mdb"),Server.MapPath(v1 & "\" & v2)

file = Server.MapPath("global.asa")
Set fs=fso.OpenTextFile(file,2,True)
fs.writeline "<SCRIPT LANGUAGE=" & chr(34) & "VBScript" & chr(34) & " RUNAT=" & chr(34) & "Server" & chr(34) & ">"
fs.writeline "Sub Application_OnStart"
fs.writeline " DataBasePath = " & chr(34) & v1 & "\" & v2 & chr(34)
fs.writeline " ConnString = " & chr(34) & "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & chr(34) & " & Server.MapPath(DataBasePath)"
fs.writeline " Set Conn=server.createobject(" & chr(34) & "ADODB.CONNECTION" & chr(34) & ")"
fs.writeline " Conn.Open ConnString"
fs.writeline " Set rs=server.createobject(" & chr(34) & "adodb.recordset" & chr(34) & ")"
fs.writeline " sql=" & chr(34) & "select * from room" & chr(34) & ""
fs.writeline " rs.open sql,conn,3,3"
fs.writeline " If rs.eof and rs.bof Then"
fs.writeline "   roominfo=" & chr(34) & "" & chr(34)
fs.writeline " Else"
fs.writeline "   co=Int(rs.recordcount)-1"
fs.writeline "   Dim roominfo()"
fs.writeline "   ReDim roominfo(co,5)"
fs.writeline "   For i=0 To co"
fs.writeline "    roominfo(i,0)=Rs(" & chr(34) & "id" & chr(34) & ")"
fs.writeline "    roominfo(i,1)=Rs(" & chr(34) & "roomname" & chr(34) & ")"
fs.writeline "    roominfo(i,2)=Rs(" & chr(34) & "max" & chr(34) & ")"
fs.writeline "    roominfo(i,3)=Rs(" & chr(34) & "automan" & chr(34) & ")"
fs.writeline "    roominfo(i,4)=Rs(" & chr(34) & "mingrade" & chr(34) & ")"
fs.writeline "    roominfo(i,5)=Rs(" & chr(34) & "text" & chr(34) & ")"
fs.writeline "    rs.MoveNext"
fs.writeline "   Next"
fs.writeline " End If"
fs.writeline " rs.Close"
fs.writeline " sql=" & chr(34) & "select * from gradeinfo order by grade" & chr(34)
fs.writeline " rs.open sql,conn,3,3"
fs.writeline " If rs.eof and rs.bof Then"
fs.writeline "   gradeinfo=" & chr(34) & "" & chr(34)
fs.writeline " Else"
fs.writeline "   co=int(rs.recordcount-1)"
fs.writeline "   Dim gradeinfo()"
fs.writeline "   ReDim gradeinfo(co,30)"
fs.writeline "   For i=0 To co"
fs.writeline "    gradeinfo(i,0)=Rs(" & chr(34) & "autoup" & chr(34) & ")"
fs.writeline "    gradeinfo(i,1)=Rs(" & chr(34) & "value" & chr(34) & ")"
fs.writeline "    gradeinfo(i,2)=Rs(" & chr(34) & "say" & chr(34) & ")"
fs.writeline "    gradeinfo(i,3)=Rs(" & chr(34) & "title" & chr(34) & ")"
fs.writeline "    gradeinfo(i,4)=Rs(" & chr(34) & "texiao" & chr(34) & ")"
fs.writeline "    gradeinfo(i,5)=Rs(" & chr(34) & "pic" & chr(34) & ")"
fs.writeline "    gradeinfo(i,6)=Rs(" & chr(34) & "libadd" & chr(34) & ")"
fs.writeline "    gradeinfo(i,7)=Rs(" & chr(34) & "libdel" & chr(34) & ")"
fs.writeline "    gradeinfo(i,8)=Rs(" & chr(34) & "seeip" & chr(34) & ")"
fs.writeline "    gradeinfo(i,9)=Rs(" & chr(34) & "selftouxian" & chr(34) & ")"
fs.writeline "    gradeinfo(i,10)=Rs(" & chr(34) & "touxian" & chr(34) & ")"
fs.writeline "    gradeinfo(i,11)=Rs(" & chr(34) & "kick" & chr(34) & ")"
fs.writeline "    gradeinfo(i,12)=Rs(" & chr(34) & "ip" & chr(34) & ")"
fs.writeline "    gradeinfo(i,13)=Rs(" & chr(34) & "hongzha" & chr(34) & ")"
fs.writeline "    gradeinfo(i,14)=Rs(" & chr(34) & "room" & chr(34) & ")"
fs.writeline "    gradeinfo(i,15)=Rs(" & chr(34) & "disip" & chr(34) & ")"
fs.writeline "    gradeinfo(i,16)=Rs(" & chr(34) & "radio" & chr(34) & ")"
fs.writeline "    gradeinfo(i,17)=Rs(" & chr(34) & "upgrade" & chr(34) & ")"
fs.writeline "    gradeinfo(i,18)=Rs(" & chr(34) & "upgrademax" & chr(34) & ")"
fs.writeline "    gradeinfo(i,19)=Rs(" & chr(34) & "downgrade" & chr(34) & ")"
fs.writeline "    gradeinfo(i,20)=Rs(" & chr(34) & "downgrademin" & chr(34) & ")"
fs.writeline "    gradeinfo(i,21)=Rs(" & chr(34) & "allgrade" & chr(34) & ")"
fs.writeline "    gradeinfo(i,22)=Rs(" & chr(34) & "gbook" & chr(34) & ")"
fs.writeline "    gradeinfo(i,23)=Rs(" & chr(34) & "gonggao" & chr(34) & ")"
fs.writeline "    gradeinfo(i,24)=Rs(" & chr(34) & "user" & chr(34) & ")"
fs.writeline "    gradeinfo(i,25)=Rs(" & chr(34) & "unip" & chr(34) & ")"
fs.writeline "    gradeinfo(i,26)=Rs(" & chr(34) & "niming" & chr(34) & ")"
fs.writeline "    gradeinfo(i,27)=Rs(" & chr(34) & "kf" & chr(34) & ")"
fs.writeline "    gradeinfo(i,28)=Rs(" & chr(34) & "manpoll" & chr(34) & ")"
fs.writeline "    gradeinfo(i,29)=Rs(" & chr(34) & "html" & chr(34) & ")"
fs.writeline "    gradeinfo(i,30)=Rs(" & chr(34) & "seeniming" & chr(34) & ")"
fs.writeline "    rs.MoveNext"
fs.writeline "  Next"
fs.writeline " End If"
fs.writeline " rs.Close"
fs.writeline " sql=" & chr(34) & "select * from poll" & chr(34)
fs.writeline " rs.open sql,conn,3,3"
fs.writeline "  co=Int(rs.recordcount)"
fs.writeline "  Dim pollinfo()"
fs.writeline "  ReDim pollinfo(co,9)"
fs.writeline "  For i=1 to co"
fs.writeline "   pollinfo(i,0)=Rs(" & chr(34) & "id" & chr(34) & ")"
fs.writeline "   pollinfo(i,1)=Rs(" & chr(34) & "title" & chr(34) & ")"
fs.writeline "   pollinfo(i,2)=Rs(" & chr(34) & "manager" & chr(34) & ")"
fs.writeline "   pollinfo(i,3)=Rs(" & chr(34) & "pollman" & chr(34) & ")"
fs.writeline "   pollinfo(i,4)=Rs(" & chr(34) & "min_grade" & chr(34) & ")"
fs.writeline "   pollinfo(i,5)=Rs(" & chr(34) & "max_grade" & chr(34) & ")"
fs.writeline "   pollinfo(i,6)=Rs(" & chr(34) & "dis_user" & chr(34) & ")"
fs.writeline "   pollinfo(i,7)=Rs(" & chr(34) & "polls" & chr(34) & ")"
fs.writeline "   pollinfo(i,8)=Rs(" & chr(34) & "counts" & chr(34) & ")"
fs.writeline "   pollinfo(i,9)=Rs(" & chr(34) & "time" & chr(34) & ")"
fs.writeline "   rs.MoveNext"
fs.writeline "  Next"
fs.writeline " rs.Close"
fs.writeline " Set rs=Nothing"
fs.writeline " Conn.Close"
fs.writeline " Set Conn=Nothing"
fs.writeline " Dim online_global()"
fs.writeline " ReDim online_global(0)"
fs.writeline " Dim words(240)"
fs.writeline " man_say=" & chr(34) & "," & chr(34)
fs.writeline " man_title=" & chr(34) & "," & chr(34)
fs.writeline " man_texiao=" & chr(34) & "," & chr(34)
fs.writeline " man_pic=" & chr(34) & "," & chr(34)
fs.writeline " man_selftouxian=" & chr(34) & "," & chr(34)
fs.writeline " man_touxian=" & chr(34) & "," & chr(34)
fs.writeline " man_kick=" & chr(34) & "," & chr(34)
fs.writeline " man_ip=" & chr(34) & "," & chr(34)
fs.writeline " man_hongzha=" & chr(34) & "," & chr(34)
fs.writeline " man_html=" & chr(34) & "," & chr(34)
fs.writeline " if IsArray(gradeinfo) then"
fs.writeline " for i=0 to ubound(gradeinfo,1)"
fs.writeline "  if gradeinfo(i,2)=true then man_say = man_say & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,3)=true then man_title = man_title & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,4)=true then man_texiao = man_texiao & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,5)=true then man_pic = man_pic & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,9)=true then man_selftouxian = man_selftouxian & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,10)=true then man_touxian = man_touxian & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,11)=true then man_kick = man_kick & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,12)=true then man_ip = man_ip & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,13)=true then man_hongzha = man_hongzha & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline "  if gradeinfo(i,29)=true then man_html = man_html & cstr(i) & " & chr(34) & "," & chr(34)
fs.writeline " next"
fs.writeline " end if"
fs.writeline " Application.Lock"
fs.writeline " if IsArray(roominfo) then"
fs.writeline " For i=0 To ubound(roominfo,1)"
fs.writeline "  Application(" & chr(34) & "online" & chr(34) & " & roominfo(i,0))=online_global"
fs.writeline "  Application(" & chr(34) & "zzbird_name_" & chr(34) & " & roominfo(i,0))=" & chr(34) & "" & chr(34)
fs.writeline " Next"
fs.writeline " end if"
fs.writeline " Application(" & chr(34) & "roominfo" & chr(34) & ")=roominfo"
fs.writeline " Application(" & chr(34) & "gradeinfo" & chr(34) & ")=gradeinfo"
fs.writeline " Application(" & chr(34) & "pollinfo" & chr(34) & ")=pollinfo"
fs.writeline " Application(" & chr(34) & "zzbird_man_say" & chr(34) & ")=man_say"
fs.writeline " Application(" & chr(34) & "zzbird_man_title" & chr(34) & ")=man_title"
fs.writeline " Application(" & chr(34) & "zzbird_man_texiao" & chr(34) & ")=man_texiao"
fs.writeline " Application(" & chr(34) & "zzbird_man_pic" & chr(34) & ")=man_pic"
fs.writeline " Application(" & chr(34) & "zzbird_man_selftouxian" & chr(34) & ")=man_selftouxian"
fs.writeline " Application(" & chr(34) & "zzbird_man_touxian" & chr(34) & ")=man_touxian"
fs.writeline " Application(" & chr(34) & "zzbird_man_kick" & chr(34) & ")=man_kick"
fs.writeline " Application(" & chr(34) & "zzbird_man_ip" & chr(34) & ")=man_ip"
fs.writeline " Application(" & chr(34) & "zzbird_man_hongzha" & chr(34) & ")=man_hongzha"
fs.writeline " Application(" & chr(34) & "zzbird_man_html" & chr(34) & ")=man_html"
fs.writeline " Application(" & chr(34) & "zzbird_words" & chr(34) & ")=words"
fs.writeline " Application(" & chr(34) & "zzbird_line" & chr(34) & ")=0"
fs.writeline " Application(" & chr(34) & "maninfo" & chr(34) & ")=" & chr(34) & "" & chr(34)
fs.writeline " Application(" & chr(34) & "giveyou" & chr(34) & ")=" & chr(34) & "" & chr(34)
fs.writeline " Application(" & chr(34) & "zzbird_name" & chr(34) & ")=" & chr(34) & "" & chr(34)
fs.writeline " Application(" & chr(34) & "zzbird_conn" & chr(34) & ")=ConnString"
fs.writeline " Application(" & chr(34) & "zzbird_database" & chr(34) & ")=DataBasePath"
fs.writeline " Application.UnLock"
fs.writeline "End Sub"
fs.writeline ""
fs.writeline ""
fs.writeline "Sub Session_Onstart"
fs.writeline "Session.Timeout=1"
fs.writeline "End Sub"
fs.writeline ""
fs.writeline ""
fs.writeline "Sub Session_Onend"
fs.writeline "if not IsArray(Session(" & chr(34) & "info" & chr(34) & ")) then exit sub"
fs.writeline "info=Session(" & chr(34) & "info" & chr(34) & ")"
fs.writeline "Application.Lock"
fs.writeline "online=Application(" & chr(34) & "online" & chr(34) & " & info(7))"
fs.writeline "onno=ubound(online)"
fs.writeline "for i=1 to onno"
fs.writeline " if InStr(online(i),info(0) & " & chr(34) & "|" & chr(34) & ")=1 then"
fs.writeline "  for j=i to onno-1"
fs.writeline "   online(j)=online(j+1)"
fs.writeline "  next"
fs.writeline "  ReDim Preserve online(onno-1)"
fs.writeline "  Application(" & chr(34) & "online" & chr(34) & " & info(7))=online"
fs.writeline "  exit for"
fs.writeline " end if"
fs.writeline "next"
fs.writeline "Application(" & chr(34) & "zzbird_name" & chr(34) & ")=Replace(Application(" & chr(34) & "zzbird_name" & chr(34) & ")," & chr(34) & "," & chr(34) & " & info(0) & " & chr(34) & "," & chr(34) & "," & chr(34) & "" & chr(34) & ")"
fs.writeline "Application(" & chr(34) & "zzbird_name_" & chr(34) & " & info(7))=Replace(Application(" & chr(34) & "zzbird_name_" & chr(34) & " & info(7))," & chr(34) & "," & chr(34) & " & info(0) & " & chr(34) & "," & chr(34) & "," & chr(34) & "" & chr(34) & ")"
fs.writeline "if info(3)<>" & chr(34) & "o" & chr(34) & " then"
fs.writeline "  if InStr(Application(" & chr(34) & "maninfo" & chr(34) & ")," & chr(34) & "," & chr(34) & " & info(0) & " & chr(34) & "," & chr(34) & ")<>0 then"
fs.writeline "    kickinfo=split(Application(" & chr(34) & "maninfo" & chr(34) & ")," & chr(34) & ";" & chr(34) & ")"
fs.writeline "    for i=0 to ubound(kickinfo)-1"
fs.writeline "    if InStr(kickinfo(i),info(0)&" & chr(34) & "," & chr(34) & ")=1 then"
fs.writeline "     Application(" & chr(34) & "maninfo" & chr(34) & ")=Replace(Application(" & chr(34) & "maninfo" & chr(34) & "),kickinfo(i)&" & chr(34) & ";" & chr(34) & "," & chr(34) & "" & chr(34) & ")"
fs.writeline "    exit for"
fs.writeline "    end if"
fs.writeline "    next"
fs.writeline "  else"
fs.writeline "    words=Application(" & chr(34) & "zzbird_words" & chr(34) & ")"
fs.writeline "    line=Application(" & chr(34) & "zzbird_line" & chr(34) & ")"
fs.writeline "    Application(" & chr(34) & "zzbird_line" & chr(34) & ")=line+1"
fs.writeline "    for i=1 to 234"
fs.writeline "    words(i)=words(i+6)"
fs.writeline "    next"
fs.writeline "    words(235)=line+1"
fs.writeline "    words(236)=info(0)"
fs.writeline "    words(237)=info(4)"
fs.writeline "    words(238)=" & chr(34) & "down" & chr(34)
fs.writeline "    words(239)=" & chr(34) & "<font style='font-size: 8pt' color='#808080'>(" & chr(34) & "& cstr(time) &" & chr(34) & ")</font>" & chr(34)
fs.writeline "    words(240)=info(6)"
fs.writeline "    Application(" & chr(34) & "zzbird_words" & chr(34) & ")=words"
fs.writeline "  end if"
fs.writeline "end if"
fs.writeline "Application.UnLock"
fs.writeline "if InStr(Application(" & chr(34) & "giveyou" & chr(34) & ")," & chr(34) & "," & chr(34) & " & info(0) & " & chr(34) & ";" & chr(34) & ")<>0 then"
fs.writeline "giveyou=split(Application(" & chr(34) & "giveyou" & chr(34) & ")," & chr(34) & ";" & chr(34) & ")"
fs.writeline "for i=0 to ubound(giveyou)-1"
fs.writeline " a_info=split(giveyou(i)," & chr(34) & "," & chr(34) & ")"
fs.writeline " if a_info(3)=info(0) then"
fs.writeline " Application.Lock"
fs.writeline " Application(" & chr(34) & "giveyou" & chr(34) & ")=Replace(Application(" & chr(34) & "giveyou" & chr(34) & "),giveyou(i)&" & chr(34) & ";" & chr(34) & "," & chr(34) & "" & chr(34) & ")"
fs.writeline " Application.Unlock"
fs.writeline " end if"
fs.writeline "next"
fs.writeline "end if"
fs.writeline "End Sub"
fs.writeline "</SCRIPT>"
Set fs = Nothing
Set fso = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body bgcolor="buttonface" style="border: 3px double buttonface">
  <fieldset style="padding: 2; width:472; height:296">
  <legend>印象聊天室安装向导</legend>
  <p align="center">
  <input type="button" disabled value="&lt;&lt;BACK" name="B1" style="position: absolute; left: 29; top: 301"><input type="button" onclick="location.href='install3.asp';" value="NEXT&gt;&gt;" name="B2" style="position: absolute; left: 93; top: 301"></p>
  <p align="center">
  数据库路径设置完毕,global.asa已经生成</p>
  <p align="center">
  点击&quot;NEXT&quot;检查文件</p>
  </fieldset>
</body>
</html>