chat.asp

来自「asp手机wap网站源码 （英语wap1.0版）」· ASP 代码 · 共 64 行

<%
Session.LCID = 1033

chatter=request("un")+"[wap]"
mesaj=request("m")
oda=request("o")


chatYol=Server.Mappath("database/chat.mdb")
chatSql= "DBQ="& chatYol &";Driver={Microsoft Access Driver (*.mdb)}"
Set chatBag=Server.CreateObject("Adodb.Connection")
chatBag.Open chatSql
'eskiyi sil setup
chatCurrentDate = Now()
chatCheckOutTime = DATEADD("s", -200, chatCurrentDate)

'90 saniyeden eski mesajlari sil
Set chatDeleters=Server.CreateObject("Adodb.Recordset")
chatDeleteSorgu = "DELETE FROM chat WHERE date < #" & chatCheckOutTime & "#"
chatDeleters.Open chatDeleteSorgu, chatBag, 1, 3 


'kullanici adini simdi kontrol et yoksa ekle
Set chatrs=Server.CreateObject("Adodb.Recordset")
onlinesayacSorgu="Select * from un where un='"& chatter  &"'"
chatrs.Open onlinesayacSorgu, chatBag, 1, 3 
if chatrs.EOF or chatrs.BOF then 'eger kullanici adi yoksa ekle
chatrs.AddNew
chatrs("un")=chatter
chatrs("oda")=oda
chatrs("date")=now()
chatrs.Update 
else 'eger kullanici adi varsa zamani kontrol et  coksa sil
Set onlinesayacDeleteTekrs=Server.CreateObject("Adodb.Recordset")
onlinesayacDeleteTekSorgu = "DELETE FROM un WHERE date < #" & chatCheckOutTime & "#"
onlinesayacDeleteTekrs.Open onlinesayacDeleteTekSorgu, chatBag, 1, 3 
end if

'mesaj ekle
if not mesaj="" then

bancheck("chattenbanlimi")

Set chatrsMesaj=Server.CreateObject("Adodb.Recordset")
chatrsMesajSorgu="Select * from chat"
chatrsMesaj.Open chatrsMesajSorgu, chatBag, 1, 3 

chatrsMesaj.AddNew
chatrsMesaj("un")=chatter
chatrsMesaj("mesaj")=mesaj
chatrsMesaj("oda")=oda
chatrsMesaj("date")=now()
chatrsMesaj.Update 

end if

chatrs.Close
Set chatrs=Nothing
chatBag.Close
Set chatBag=Nothing

Session.LCID = 2057
%>