<!--#include file="../include/Conn.jsp"-->
<!--#include file="../Include/Char.jsp" -->
<!--#include file="../include/md5.jsp"-->
<!--#include file="Admin_IsLogin.jsp" -->
<%
'Define Variable 
dim i
dim rs
dim mGrade,mSql,mFlag,mBgColor

'initialization 
mFlag=true'add

'Display
if request("action")="edit" then 
 'Read
 mSql="Select * From T_Member Where F_ID="&Request.QueryString("ModifyID")
 Set rs = conn.Execute(mSql)
 if Not rs.Eof then 
   mCardNumber = rs("F_CardNumber")
   mUserName = rs("F_UserName")
   mPassword = rs("F_Password")
   mQuestion = rs("F_Question")
   mAnswer = rs("F_Answer")
   mIntegral = rs("F_Integral")
   mIDCard = rs("F_IDCard")
   mRealName = rs("F_RealName")
   mSex = rs("F_Sex")
   mEmail = rs("F_Email")
   mBirthday = rs("F_Birthday")
   mAddress = rs("F_Address")
   mZipcode = rs("F_Zipcode")
   mTel = rs("F_Tel")
   mMobile = rs("F_Mobile")
   mPas = rs("F_Pas")
   mCorpAddress = rs("F_CorpAddress")
   mCorpTel = rs("F_CorpTel")
   mCorp = rs("F_Corp")
   mGrade = rs("F_Grade")
   mMemo = rs("F_Memo")
 End if
 mFlag=false
 rs.Close
End if

if Request.ServerVariables("REQUEST_METHOD")="POST" then
   mUserName = checkStr(Trim(Request.Form("txtUserName")))
   mQuestion = checkStr(Trim(Request.Form("txtQuestion")))
   mPassword = checkStr(Trim(Request.Form("txtPassword")))
   mAnswer = checkStr(Trim(Request.Form("txtAnswer")))
   mIntegral = cint(Trim(Request.Form("txtIntegral")))
   mGrade = Trim(Request.Form("radGrade"))
   mRealName = checkStr(Trim(Request.Form("txtRealName")))
   mSex = checkStr(Trim(Request.Form("radSex")))
   mBirthday = checkStr(Trim(Request.Form("txtBirthday")))
   mIDCard = checkStr(Trim(Request.Form("txtIDCard")))
   mEmail = checkStr(Trim(Request.Form("txtEmail")))
   mTel = checkStr(Trim(Request.Form("txtTel")))
   mMobile = checkStr(Trim(Request.Form("txtMobile")))
   mPas = checkStr(Trim(Request.Form("txtPas")))
   mAddress = checkStr(Trim(Request.Form("txtAddress")))
   mZipcode = checkStr(Trim(Request.Form("txtZipcode")))
   mCorp = checkStr(Trim(Request.Form("txtCorp")))
   mCorpAddress = checkStr(Trim(Request.Form("txtCorpAddress")))
   mCorpTel = checkStr(Trim(Request.Form("txtCorpTel")))
   mMemo = checkStr(rTrim(Request.Form("txtMemo")))
   if Request("action")="Insert" then
    mSql = "Select * From T_Member Where F_UserName='"&mUserName&"'"
	Set rs = conn.Execute(mSql)
	if not rs.Eof then
	   rs.Close
	   call msgbox("对不起，该用户名已存在，请更换用户名后再试",1)
	   Response.end
	else
	  rs.Close
	  mSql = "Insert Into T_Member(F_UserName,F_Password,F_Question,F_Answer,F_Integral,F_RealName,F_Sex,F_IDCard,F_Email,F_Birthday,F_Tel,F_Address,F_Zipcode,F_Mobile,F_Pas,F_Corp,F_CorpAddress,F_CorpTel,F_Grade,F_Memo,F_IsCheck)"
	  mSql = mSql + "Values('"&mUserName&"','"&md5(mPassword)&"','"&mQuestion&"','"&mAnswer&"',"&mIntegral&",'"&mRealName&"','"&mSex&"','"&mIDCard&"','"&mEmail&"','"&mBirthday&"','"&mTel&"','"&mAddress&"','"&mZipcode&"','"&mMobile&"','"&mPas&"','"&mCorp&"','"&mCorpAddress&"','"&mCorpTel&"',"&mGrade&",'"&mMemo&"',1)"
      conn.Execute(mSql)
      response.redirect "admin_Member.jsp?action=IsInsert&pageno="&Request("pageno")
     end if '//rs.eof
  else 
      mSql = "UPDATE T_Member SET"
	  mSql = mSql+" F_UserName='"&mUserName&"',"
      if mPassword <> "" then  mSql = mSql+" F_Password='"&md5(mPassword)&"',"
      mSql = mSql+" F_Question='"&mQuestion&"',"
      mSql = mSql+" F_Answer='"&mAnswer&"',"
      mSql = mSql+" F_RealName='"&mRealName&"',"
      mSql = mSql+" F_Sex='"&mSex&"',"
      mSql = mSql+" F_Integral='"&mIntegral&"',"
      mSql = mSql+" F_Email='"&mEmail&"',"
      mSql = mSql+" F_IDCard='"&mIDCard&"',"
      mSql = mSql+" F_Birthday='"&mBirthday&"',"
      mSql = mSql+" F_Address='"&mAddress&"',"
      mSql = mSql+" F_Zipcode='"&mZipcode&"',"
      mSql = mSql+" F_Mobile='"&mMobile&"',"
      mSql = mSql+" F_Pas='"&mPas&"',"
      mSql = mSql+" F_Tel='"&mTel&"',"
      mSql = mSql+" F_Corp='"&mCorp&"',"
      mSql = mSql+" F_CorpAddress='"&mCorpAddress&"',"
      mSql = mSql+" F_CorpTel='"&mCorpTel&"',"
      mSql = mSql+" F_Grade='"&mGrade&"',"
      mSql = mSql+" F_Memo='"&mMemo&"'" 
      mSql = mSql +" WHERE F_ID=" & Request("ModifyID") 
      conn.Execute(mSql)
      Response.redirect "admin_Member.jsp?action=IsModify&pageno="&Request("pageno")
   End if
 End if

'Delect Records
if request("action")="Delete" then
  mSql = "DELETE FROM T_Member WHERE F_ID=" &Request.QueryString("DeleteID")
  conn.execute mSql
  Response.write "<script>location.replace('admin_Member.jsp?action=IsDelete&pageno="&Request.Querystring("pageno")&"')</script>"
end if
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
function jDelete(url)
{
  if((confirm(" 警告:请确定是否删除,删除后不能恢复! "))==true) 
	self.location=url+'&action=Delete';
}
</SCRIPT>
<script language="javascript">
function CheckData(){
  if (document.form1.txtUserName.value=="")
   {
    alert("对不起,用户名不能为空，请输入！");
	document.form1.txtUserName.focus();
	return false;
   }
}
</script>
</head>
<body text="#000000" >
	  <%
       admin_flag=",0|10|0,"
      if instr(session("flag"),admin_flag)=0 or isnull(session("flag"))=true then
         Response.write "<br><br><br><br><b><font color=red>对不起，您没有管理本页面的权限!</font></B>"
		 Response.end
	  end if
      %>
<br><table width="95%" border="0" align="center" cellpadding="0">
  <form name="form_txt" method="get" action="admin_member.jsp"><tr>
      <td align="right">会员搜索： 
        <input name="searchword" type="text" id="searchword">
        <input type="submit" name="Submit" value="搜索">
      </td>
  </tr></form>
</table>
<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
   <tr> 
    <th height=22 colspan="8" align="center" sytle="line-height:150%">会员列表</th>
    </tr>
  <tr > 
    <td width="5%" align="center" class=forumHeaderBackgroundAlternate><b>ID</b></td>
    <td width="17%" class=forumHeaderBackgroundAlternate><b>用户名</b></td>
    <td width="15%" align="center" class=forumHeaderBackgroundAlternate><b>注册时间</b></td>
    <td width="22%" align="center" class=forumHeaderBackgroundAlternate><strong>登陆时间</strong></td>
    <td width="8%" align="center" class=forumHeaderBackgroundAlternate><strong>级别</strong></td>
    <td width="7%" align="center" class=forumHeaderBackgroundAlternate><strong>登陆</strong></td>
    <td width="5%" align="center" class=forumHeaderBackgroundAlternate><strong>审核</strong></td>
    <td width="21%" align="center" class=forumHeaderBackgroundAlternate><b>管理</b></td>
  </tr>
  <%  
	Set rs=Server.createobject("Adodb.RecordSet")
    pageno=request.querystring("pageno")
    pmcount=22  
	m_searchword=trim(request("searchword"))
	if m_searchword<>"" then
	mSql="select * from T_Member Where F_Ischeck=1 and (F_UserName like '%"&m_searchword&"%' or F_RealName like '%"&m_searchword&"%') order by F_ID desc"
	else
    mSql="select * from T_Member Where F_Ischeck=1 order by F_ID desc"
	end if
	'response.write msql
	rs.open mSql,conn,1,1

	if rs.eof then
	   'response.write "<br><p  align='center'><font color=red><B> 对不起，数据已清空！</B></font></p>"
    else
    rs.pagesize=pmcount
    mpage=rs.pagecount
    if pageno="" then pageno=1
    if  cint(pageno)<1 or cint(pageno)>mpage then  pageno=1
    rs.absolutepage=pageno

 Dim rc,re
 rc=rs.pagesize
 re=1
 do while not rs.eof and rc>0
 mBgColor=Request.Querystring("BgColor")
 if Trim(rs("F_ID"))=Trim(mBgColor) then mColor= "D6DFFF" else mColor= "ffffff"
%>
  <tr bgcolor="<%=mColor%>"   onmouseout="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEEF6'" > 
    <td  class=forumRow width="5%" align="center"><%=rs("F_ID")%></td>
    <td class=forumRow > <a title="发送邮件" href='Admin_MailSend.jsp?Email=<%=rs("F_Email")%>'> 
      <%=rs("F_UserName")%> </a> </td>
    <td class=forumRow width="15%" align="center" ><a href="#" title="<%=rs("F_RegTime")%>"><%=left(rs("F_RegTime"),11)%></a></td>
    <td class=forumRow width="22%" align="center" ><a href="#" title="<%=rs("F_LastLoginTime")%>"><%=rs("F_LastLoginTime")%></a></td>
    <td class=forumRow align="center" >
	<%if rs("F_Grade")="1" then Response.Write "挂购"%>
	</td>
    <td class=forumRow width="7%" align="center" ><%=rs("F_LoginCount")%></td>
    <td class=forumRow width="5%" align="center" > <%
			'审核处理
			if Request("action") = "IsCheck" then
			  mIsCheck = Request("IsCheck")
			  if mIsCheck then mIsCheck = 0 else mIsCheck = 1 
			  mSql = "update T_Member Set F_IsCheck= "&mIsCheck&" Where F_ID="&Request("ID")
              conn.execute(mSql)
			  Response.redirect "admin_Member.jsp?pageno="&Request("pageno")
			end if
			m_IsCheck = rs("F_IsCheck") : if isnull(m_IsCheck) then m_IsCheck=False
			Response.Write "<a href='admin_Member.jsp?action=IsCheck&IsCheck="&m_IsCheck&"&pageno="&Request("pageno")&"&ID="&rs("F_ID")&"'>"
			if rs("F_IsCheck") then Response.Write "<font color=red>是</font>" Else Response.write "否"
			Response.Write "</a>"
			%> </td>
    <td class=forumRow width="21%" align="center" ><a title="修改记录" href='admin_Member.jsp?action=edit&ModifyID=<%=rs("F_ID")%>&BgColor=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>#anModify'><font color="#666666">[修改]</font></a><a title="请确定是否删除,删除后不能恢复!" href="javascript:jDelete('admin_Member.jsp?DeleteID=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>')"><font color="#666666">[删除]</font></a><a href='admin_Memberlogin.jsp?ModifyID=<%=rs("F_ID")%>&BgColor=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>' title="进入会员前台修改" target="_blank"><font color="#666666">[前台修改]</font></a></td>
  </tr>
    <%
 rs.movenext
 re=re+1
 rc=rc-1
 loop
 end if
%>
  <tr bgcolor="<%=mColor%>"   onmouseout="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEEF6'" > 
    <td class=forumRow  colspan="8" align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="49%" height="22"> &nbsp;共 <font color=red><strong>
            <% = rs.recordcount%>
            </strong></font> 条记录 当前第 <font color=red><strong>
            <% = Trim(pageno)%>
            </strong></font>页/共 <font color=red><strong>
            <% = Trim(mpage)%>
            </strong></font>页 </td>
          <td width="51%" align="right"> 
            <%
if pageno="" then pageno=1
if pageno>1 then
   response.write "<a href='admin_Member.jsp?searchword="&m_searchword&"'> <img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'>"
end if

if pageno>1 then
   response.write "<a href='admin_Member.jsp?searchword="&m_searchword&"&pageno="&pageno-1&"'><img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'>"
end if

add=5'数字分页个数+1
if pageno-int(add/2)<=1 then m=1 else m=pageno-int(add/2)
if m+add>mpage then 
   n=mpage
   if mpage-add<=1 then m=1 else m=mpage-add
else
   n=m+add
end if

for pno=m to n
 if pno=cint(pageno) then
   response.write "&nbsp;<font color=red>"&pno&"</font>"
 else
   response.write "<b>&nbsp;<a href='admin_Member.jsp?searchword="&m_searchword&"&pageno="&pno&"'>"&pno&"</a></b>"
 end if
next
response.write "&nbsp"

if int(pageno) < int(rs.pagecount) then
  response.write "<a href='admin_Member.jsp?searchword="&m_searchword&"&pageno="&pageno+1&"'><img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'></a>"
else 
  response.write "<img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'>"
end if

if int(pageno) < int(rs.pagecount) then
   response.write "<a href='admin_Member.jsp?searchword="&m_searchword&"&pageno="&mpage&"'><img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'>"
end if
Response.write "&nbsp;&nbsp;"
%>
          </td>
        </tr>
      </table></td>
  </tr>

</table> 

        <%if mFlag=true then'add%>
            <form name="form1" method="post" action="admin_Member.jsp?action=Insert" onSubmit="return CheckData()">
<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
    <tr> 
      <th height=22 colspan="8" align="center" sytle="line-height:150%">功能：新增记录</th>
    </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">用 户 名：</td>
                          <td class=forumRow width="88%"><input name="txtUserName" type="text"  class='INPUT' value="" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td  class=forumRowHighlight width="12%" height="19">密　　码：</td>
                          <td class=forumRow width="88%"> <input name="txtPassword" type="text"  class='INPUT' value="888888" size="21" maxlength="20">
                            //如果不输入密码,密码为888888</td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">密码问题：</td>
                          <td class=forumRow width="88%"><input name="txtQuestion" type="text"  class='INPUT' value="" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">问题答案：</td>
                          <td class=forumRow width="88%"><input name="txtAnswer" type="text"  class='INPUT' value="" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="2">电子邮件：</td>
                          <td class=forumRow width="88%"><input name="txtEmail" type="text"  class='INPUT' value="" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="4">用户级别：</td>
                          <td class=forumRow> <input name="radGrade" type="radio" value="0" checked>
                            普通会员 
                            <input type="radio" name="radGrade" value="1">
                            城市卡会员</td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="9">用户金币：</td>
                          <td class=forumRow><input name="txtIntegral" onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }" type="text"  class='INPUT' value="100" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">真实姓名：</td>
                          <td class=forumRow width="88%"><input name="txtRealName" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="9">性　　别：</td>
                          <td class=forumRow> <input name="radSex" type="radio" value="1" checked>
                            男 
                            <input type="radio" name="radSex" value="0">
                            女 </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">身 份 证：</td>
                          <td class=forumRow width="88%"><input name="txtIDCard" onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">出生日期：</td>
                          <td class=forumRow width="88%"><input name="txtBirthday" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">家庭地址：</td>
                          <td class=forumRow width="88%"><input name="txtAddress" type="text"  class='INPUT' value="" size="46" maxlength="20">
                            邮编： 
                            <input name="txtZipcode" onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }" type="text"  class='INPUT' value="" size="8" maxlength="６"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">单位名称：</td>
                          <td class=forumRow width="88%"><input name="txtCorp" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">单位地址：</td>
                          <td class=forumRow width="88%"><input name="txtCorpAddress" type="text"  class='INPUT' value="" size="46" maxlength="20">
                            　</td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">单位电话：</td>
                          <td class=forumRow width="88%"><input name="txtCorpTel" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">宅　　电：</td>
                          <td class=forumRow width="88%"><input name="txtTel" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">手　　机：</td>
                          <td class=forumRow width="88%"><input name="txtMobile" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">小 灵 通：</td>
                          <td class=forumRow width="88%"><input name="txtPas" type="text"  class='INPUT' value="" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight>人个简介： </td>
                          <td class=forumRow><textarea name="txtMemo" cols="70" rows="6" class='INPUT'></textarea></td>
                        </tr>
                        <tr> 
                          <td class=forumRow height="37" colspan="2"><input type="submit" name="Submit32" value="提交" class="button"> 
        <input type="reSet" name="Submit222" value="重置" class="button"></td>
                        </tr>
                      </table>

            
  <br>
</form>
          </tr>
        </table>
        <%else%>
<a name="anModify"></a>
            <form name="form1" method="post" action="admin_Member.jsp?pageno=<%=request("pageno")%>&ModifyID=<%=request("ModifyID")%>" onSubmit="return CheckData()">
<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
    <tr> 
      <th height=22 colspan="8" align="center" sytle="line-height:150%">功能：修改记录</th>
    </tr>
	<tr> 
                          
      <td class=forumRowHighlight width="12%" height="19">城市卡号：</td>
                          <td class=forumRow width="88%"><input name="txtCardNumber" type="text"  class='INPUT' value="<%=mCardNumber%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">用 户 名：</td>
                          <td class=forumRow width="88%"><input name="txtUserName" type="text"  class='INPUT' value="<%=mUserName%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">密　　码：</td>
                          <td class=forumRow width="88%"> <input name="txtPassword" type="text"  class='INPUT' size="21" maxlength="20">
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">密码问题：</td>
                          <td class=forumRow width="88%"><input name="txtQuestion" type="text"  class='INPUT' value="<%=mQuestion%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">问题答案：</td>
                          <td class=forumRow width="88%"><input name="txtAnswer" type="text"  class='INPUT' value="<%=mAnswer%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="2">电子邮件：</td>
                          <td class=forumRow width="88%"><input name="txtEmail" type="text"  class='INPUT' value="<%=mEmail%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="4">用户级别：</td>
                          <td class=forumRow> <input name="radGrade" type="radio" value="0" <%if mGrade = "0" then Response.write "checked" %>>
                            普通会员 
                            <input type="radio" name="radGrade" value="1" <%if mGrade = "1" then Response.write "checked" %>>
                            城市卡会员</td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="9">用户金币：</td>
                          <td class=forumRow><input name="txtIntegral" type="text"  onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }" class='INPUT' value="<%=mIntegral%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">真实姓名：</td>
                          <td class=forumRow width="88%"><input name="txtRealName" type="text"  class='INPUT' value="<%=mRealName%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="9">性　　别：</td>
                          <td class=forumRow> 
						    <input name="radSex" type="radio" value="1" <%if mSex = "1" then Response.write "checked" %>>
                            男 
                            <input type="radio" name="radSex" value="0" <%if mSex = "0" then Response.write "checked" %>>
                            女 </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">身 份 证：</td>
                          <td class=forumRow width="88%"><input name="txtIDCard" onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }" type="text"  class='INPUT' value="<%=mIDCard%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">出生日期：</td>
                          <td class=forumRow width="88%"><input name="txtBirthday" type="text"  class='INPUT' value="<%=mBirthday%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">家庭地址：</td>
                          <td class=forumRow width="88%"><input name="txtAddress" type="text"  class='INPUT' value="<%=mAddress%>" size="46" maxlength="20">
                            邮编： 
                            <input name="txtZipcode" type="text" onBlur="if (isNaN(this.value)){this.value='0';  alert('类型错误,请输入数值型！');this.focus(); }"  class='INPUT' value="<%=mZipcode%>" size="8" maxlength="６"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">单位名称：</td>
                          <td class=forumRow width="88%"><input name="txtCorp" type="text"  class='INPUT' value="<%=mCorp%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="19">单位地址：</td>
                          <td class=forumRow width="88%"><input name="txtCorpAddress" type="text"  class='INPUT' value="<%=mCorpAddress%>" size="46" maxlength="20">
                            　</td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="17">单位电话：</td>
                          <td class=forumRow width="88%"><input name="txtCorpTel" type="text"  class='INPUT' value="<%=mCorpTel%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">宅　　电：</td>
                          <td class=forumRow width="88%"><input name="txtTel" type="text"  class='INPUT' value="<%=mTel%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">手　　机：</td>
                          <td class=forumRow width="88%"><input name="txtMobile" type="text"  class='INPUT' value="<%=mMobile%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight width="12%" height="8">小 灵 通：</td>
                          <td class=forumRow width="88%"><input name="txtPas" type="text"  class='INPUT' value="<%=mPas%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight>人个简介： </td>
                          <td class=forumRow><textarea name="txtMemo" cols="70" rows="6" class='INPUT'><%=mMemo%></textarea></td>
                        </tr>
                        <tr> 
                          <td class=forumRowHighlight height="37" colspan="2"><input type="submit" name="Submit3" value="提交" class="button"> 
        <input type="reSet" name="Submit22" value="重置" class="button"></td>
                        </tr>
                      </table>
            
  <br>
</form>
        <%end if%>

</body>
</html>
<%
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>
