add_user.asp

很好的聊天室,具有很好的聊天功能,good

 <%
	' Add_User.asp
	Session("name") = Request("txtName")
	Session("sex") = Request("radSex") 
	img = Session("sex") & "1.jpg"
	Session("user_time") = Request("selTime")
	tell = "站务公告！"
	memo = "我来了哦!!"
	If Session("name") = Empty Then
		Response.Write "<center>"
		Response.Write "<h3>昵称要填写哦!!</h3><hr>"
		Response.Write "<p><a href=login.htm>回上一页</a><p>"
		Response.Write "</center>"
		Response.End 
	End If
	Set cnObj = Server.CreateObject("ADODB.Connection")
	dbpath = Server.MapPath("DB.mdb")  
	cnObj.ConnectionString = _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	cnObj.Open 
	sqlcmd = "SELECT * FROM CHAT WHERE 姓名=’" & _
		Replace(Session("name"), "’", "’’") & "’"
	Set rsObj = cnObj.Execute(sqlcmd)
	If Not rsObj.EOF Then
		Response.Write "<center>"
		Response.Write "<h3>聊天室已经有" & Request("txtName") & _
			"昵称了!，请重新设定昵称!!</h3><hr>"
		Response.Write "<p><a href=login.htm>回上一页</a><p>"
		Response.Write "</center>"
		Response.End 
	End If
	Set rsObj = Nothing
	sqlcmd = "INSERT INTO CHAT(系统,姓名,内容,图示) VALUES(‘" & _
		"系统公告!!" & "’,’" & _
		Replace(Session("name"),"’","’’") & _
		"’,’" & memo & "’,’" & img & "’)"
	cnObj.Execute sqlcmd
	Session.TimeOut = 20
	Response.Redirect "frame.htm"
 %>