<!--#Include File="include/top.asp"-->
<!--#Include File="include/fun.asp"-->
<HTMl>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>修改详细信息</TITLE>
<LINK rel="stylesheet" href="include/css.css"  type="text/css">
<SCRIPT language="VBScript">
Sub Submit1_OnClick
  atInEMail=InStr(form1.email.value,"@")
  pointInEMail=InStr(form1.email.value,".")
  If trim(form1.name.value)=Empty or InStr(Trim(form1.name.value),"'")<>0 Then
    MsgBox "请正确填写姓名！"
    Document.form1.name.Focus()
    Exit Sub
  ElseIf trim(form1.birthday.value)<>empty and InStr(Trim(form1.birthday.value),"'")<>0 Then
    MsgBox "请正确填写生日！"
    Document.form1.birthday.Focus()
    Exit Sub
  ElseIf trim(form1.mobile.value)<>empty and (not isNumeric(form1.mobile.value)) then
    MsgBox "请正确填写手机号！"
    Document.form1.mobile.Focus()
    Exit Sub
  ElseIf trim(form1.p_Telephone.value)<>empty and (not isNumeric(form1.p_Telephone.value)) then
    MsgBox "请正确填写小灵通号！"
    Document.form1.p_Telephone.Focus()
    Exit Sub
  ElseIf trim(form1.QQ.value)<>empty and not isNumeric(form1.QQ.value) then
    MsgBox "请正确填写QQ号！"
    Document.form1.QQ.Focus()
    Exit Sub
  ElseIf trim(form1.email.value)<>empty and ( InStr(Trim(form1.email.value),"'")<>0 or atInEMail<2 Or pointInEMail<4 Or atInEMail>pointInEMail ) Then
    MsgBox "请正确填写E-Mail！"
    Document.form1.email.Focus()
    Exit Sub
  ElseIf trim(form1.homePage.value)<>empty and InStr(Trim(form1.homePage.value),"'")<>0 Then
    MsgBox "请正确填写主页！"
    Document.form1.homePage.Focus()
    Exit Sub
  ElseIf trim(form1.homeAddress.value)<>empty and InStr(Trim(form1.homeAddress.value),"'")<>0 Then
    MsgBox "请正确填写家庭住址！"
    Document.form1.homeAddress.Focus()
    Exit Sub
  ElseIf trim(form1.homePostCode.value)<>empty and not isNumeric(form1.homePostCode.value) then
    MsgBox "请正确填写家庭住址邮编！"
    Document.form1.homePostCode.Focus()
    Exit Sub
  ElseIf trim(form1.homeTelephone.value)<>empty and not isNumeric(form1.homeTelephone.value) then
    MsgBox "请正确填写家庭电话！"
    Document.form1.homeTelephone.Focus()
    Exit Sub
  ElseIf trim(form1.workName.value)<>empty and InStr(Trim(form1.workName.value),"'")<>0 Then
    MsgBox "请正确填写工作单位！"
    Document.form1.workName.Focus()
    Exit Sub
  ElseIf trim(form1.workDuty.value)<>empty and InStr(Trim(form1.workDuty.value),"'")<>0 Then
    MsgBox "请正确填写职务！"
    Document.form1.workDuty.Focus()
    Exit Sub
  ElseIf trim(form1.workAddress.value)<>empty and InStr(Trim(form1.workAddress.value),"'")<>0 Then
    MsgBox "请正确填写工作单位地址！"
    Document.form1.workAddress.Focus()
    Exit Sub
  ElseIf trim(form1.workPostCode.value)<>empty and not isNumeric(form1.workPostCode.value) then
    MsgBox "请正确填写工作单位邮编！"
    Document.form1.workPostCode.Focus()
    Exit Sub
  ElseIf trim(form1.workTelephone.value)<>empty and not isNumeric(form1.workTelephone.value) then
    MsgBox "请正确填写工作单位电话！"
    Document.form1.workTelephone.Focus()
    Exit Sub
  ElseIf trim(form1.workFax.value)<>empty and not isNumeric(form1.workFax.value) then
    MsgBox "请正确填写工作单位传真！"
    Document.form1.workFax.Focus()
    Exit Sub
  End If
  form1.Submit
End Sub
</SCRIPT>
</HEAD>
<BODY>
<%
nameId=request("nameId")
getConn()
sql="SELECT * FROM MessageBook where id="&nameId&"" 
rs.Open sql,conn,1,1
%>
<TABLE width="410" border="1" align="center" bordercolor="#000000">
<FORM name="form1" action="editMessagePost.asp" method="post">
  <TR> 
    <TD class="tr" width="100" align="right">类别：</TD>
    <TD class="td">&nbsp;
	<SELECT name="class">
	<%
	classSql="SELECT * FROM Class where UserName='"&session("userName")&"'" 
	set classRs=conn.execute(classSql)
	while not classRs.eof
	%>
	<OPTION value="<%=classRs("id")%>" <%if classRs("id")=rs("ClassId") then response.write("selected")%>><%=classRs("ClassName")%></OPTION>
	<%
	  classRs.movenext
	wend
	%>
	</SELECT>
	</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">姓名：</TD>
    <TD class="td">&nbsp;<INPUT text="text" name="name" value=<%=rs("Name")%> size="20">*必填*</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">性别：</TD>
    <TD class="td">&nbsp;                                                                                    
	    <Input name="sex" type="radio" value="男" <%if rs("Sex")="男" then Response.Write("checked")%>>男   
        <Input name="sex" type="radio" value="女" <%if rs("Sex")="女" then Response.Write("checked")%>>女
    </TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">生日：</TD>
    <TD class="td">&nbsp;<INPUT text="text" name="birthday" value=<%=rs("Birthday")%> size="50">                                      
    </TD>
  </TR>
  <TR> 
    <TD colspan=2>&nbsp;</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">手机：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="mobile" value="<%=rs("Mobile")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">小灵通：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="p_Telephone" value="<%=rs("P_Telephone")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">QQ：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="QQ" value="<%=rs("QQ")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">E-mail：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="email" value="<%=rs("Email")%>" size="30"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">主页：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="homePage" value="<%=rs("HomePage")%>" size="50"></TD>
  </TR>
  <TR> 
    <TD colspan=2>&nbsp;</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">家庭住址：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="homeAddress" value="<%=rs("HomeAddress")%>" size="50"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">邮编：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="homePostCode" value="<%=rs("HomePostCode")%>" size="10"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">电话：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="homeTelephone" value="<%=rs("HomeTelephone")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD colspan=2>&nbsp;</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">工作单位：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workName" value="<%=rs("WorkName")%>" size="50"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">职务：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workDuty" value="<%=rs("WorkDuty")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">单位地址：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workAddress" value="<%=rs("WorkAddress")%>" size="50"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">邮编：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workPostCode" value="<%=rs("WorkPostCode")%>" size="10"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">电话：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workTelephone" value="<%=rs("WorkTelephone")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">传真：</TD>
    <TD class="td">&nbsp;<INPUT type="text" name="workFax" value="<%=rs("WorkFax")%>" size="20"></TD>
  </TR>
  <TR> 
    <TD colspan=2>&nbsp;</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">本人简介：</TD>
    <TD class="td">&nbsp;<TEXTAREA name="introduce" cols="58" rows="6" ><%=showContent(""&rs("Introduce"))%></TEXTAREA></TD>
  </TR>
  <TR> 
    <TD colspan=2>&nbsp;</TD>
  </TR>
  <TR> 
    <TD class="tr" width="100" align="right">备注：</TD>
    <TD class="td">&nbsp;<TEXTAREA name="bz" cols="58" rows="6" ><%=showContent(""&rs("Bz"))%></TEXTAREA></TD>
  </TR>
  <TR> 
    <TD colspan="2" align="center">
      <INPUT type="hidden" name="nameId" value="<%=nameId%>">
      <INPUT type="button" name="Submit1" value="提 交"> 
      <INPUT type="reset" name="Submit2" value="重 置">
    </TD>
  </TR>  
</FORM>
</TABLE>
<%
set rs=nothing
set conn=nothing
%>
</BODY>
</HTML>
<!--#include file="include/bottom.htm" -->