<!--#Include File="include/access.asp"-->
<!--#Include File="include/conn.asp"-->
<!--#Include File="include/fun.asp"-->
<%
getConn()
sql="SELECT * FROM MessageBook" 
rs.Open sql,conn,3,2
rs.Addnew
rs("UserName")=Trim(session("userName"))
rs("AddDate")=Now()
rs("ClassId")=Cint(Request("class"))
rs("Name")=Trim(Request("name"))
rs("Sex")=Trim(Request("sex"))
rs("Birthday")=Trim(Request("birthday"))
rs("Mobile")=Trim(Request("mobile"))
rs("P_Telephone")=Trim(Request("p_Telephone"))
rs("QQ")=Trim(Request("QQ"))
rs("Email")=Trim(Request("email"))
rs("HomePage")=Trim(Request("homePage"))
rs("HomeAddress")=Trim(Request("homeAddress"))
rs("HomePostCode")=Trim(Request("homePostCode"))
rs("HomeTelephone")=Trim(Request("homeTelephone"))
rs("WorkName")=Trim(Request("workName"))
rs("WorkDuty")=Trim(Request("workDuty"))
rs("WorkAddress")=Trim(Request("workAddress"))
rs("WorkPostCode")=Trim(Request("workPostCode"))
rs("WorkTelephone")=Trim(Request("workTelephone"))
rs("WorkFax")=Trim(Request("workFax"))
rs("Introduce")=checkContent(Trim(Request("introduce")))
rs("Bz")=checkContent(Trim(Request("bz")))
rs.Update
rs.Close
Set rs=Nothing
Set conn=Nothing
errmsg="Ìí¼Ó³É¹¦£¡"
returnURL="index.asp"
%>
<HTMl>
<HEAD>
<META http-equiv="Refresh" content='1;URL=<%=returnURL%>'>
<META http-equiv="Content-Type" content="text/html; charSet=gb2312">
</HEAD>
<BODY><P align="center"><%=errmsg%></BODY>
</HTMl>
