<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="Diary_Conn.asp"-->
<!--#INCLUDE FILE="Class_Checkuser.asp" -->
<!--#INCLUDE FILE="Class_Top.asp" -->
<%
locat="风铃日记"

if membername="" Then
  	ErrMsg=ErrMsg+"<br>"+"<li>您还没有<a href=Class_Login.asp><font color=red>登录或注册校友录</font></a>。"
	Call top(1,1)
	Call Error("Information",ErrMsg)
	
Else

dim diaryid,content,addtime

diaryid=clasky_string(request.Form("diaryid"))
content=clasky_string(request("msgcontent"))

clasky_cn.execute("insert into clasky_msg (diaryid,content,whois) values ('"&diaryid&"','"&content&"','"&membername&"')")
'Response.Write("insert into clasky_msg (diaryid,content,whois) values ('"&diaryid&"','"&content&"','"&membername&"')")
Response.Write "<script>"
Response.Write "alert('您已经成功添加一条留言');"
Response.Write("parent.window.location.reload();")
Response.Write "</script>"
end if
%>
