chk.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
dim const_txl_HomeUrl,message
const_txl_HomeUrl="../"
Call opendatabase
message = Request.Form("says") 
Response.write message
'Response.End
'if session("username")="" then
if 1<>1 then
if application("chk")=1 then
	%>
	<script language="JavaScript">
	<!--
		alert("系统目前禁止匿名用户发言!");
		window.location = "list.asp"
	-->
	</script>
<%	'response.redirect "list.asp"
end if
else

const chatpath="/bbs/plug-ins/rchat"
message = server.HTMLencode(message)
If NOT Replace(message," ","")="" then
APPLICATION.LOCK
Application("sakki30") = Application("sakki29")
Application("sakki29") = Application("sakki28")
Application("sakki28") = Application("sakki27")
Application("sakki27") = Application("sakki26")
Application("sakki26") = Application("sakki25")
Application("sakki25") = Application("sakki24")
Application("sakki24") = Application("sakki23")
Application("sakki23") = Application("sakki22")
Application("sakki22") = Application("sakki21")
Application("sakki21") = Application("sakki20")
Application("sakki20") = Application("sakki19")
Application("sakki19") = Application("sakki18")
Application("sakki18") = Application("sakki17")
Application("sakki17") = Application("sakki16")
Application("sakki16") = Application("sakki15")
Application("sakki15") = Application("sakki14")
Application("sakki14") = Application("sakki13")
Application("sakki13") = Application("sakki12")
Application("sakki12") = Application("sakki11")
Application("sakki11") = Application("sakki10")
Application("sakki10") = Application("sakki9")
Application("sakki9") = Application("sakki8")
Application("sakki8") = Application("sakki7")
Application("sakki7") = Application("sakki6")
Application("sakki6") = Application("sakki5")
Application("sakki5") = Application("sakki4")
Application("sakki4") = Application("sakki3")
Application("sakki3") = Application("sakki2")
Application("sakki2") = Application("sakki1")
	if application("logs")=1 then
	
	else
		if session("username")="" or session("username")="Guest" then
		Application("sakki1") = "<font face=宋体>" & session("chatname") &"对"&Request.form("towho")&"说: </font>" & message & "<font color=#C0C0C0 size=1>&nbsp;&nbsp;"&date &"</font>" &"<font color=#C0C0C0 size=1> " & time &"</font>"
		else
		Application("sakki1") = "<font face=宋体>" & getmasterusername(session("username")) &"对"&REquest.form("towho")&"说: </font>" & message & "<font color=#C0C0C0 size=1>&nbsp;&nbsp;"&date &"</font>" &"<font color=#C0C0C0 size=1> " & time &"</font>"
		end if
	end if
	APPLICATION.UNLOCK
END IF
CloseDataBase
response.redirect "list.asp"
end if%>