<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<%
if request.QueryString("action")="save" then
  dim errmsg
  errmsg=""

dim realname,sfz,height,weight,character,school,vocation,fancy,people,blood,marry
dim revenue,car,house,company,qq,cell,phone

realname=request.Form("realname")
sfz=request.Form("sfz")
height=request.Form("height")
weight=request.Form("weight")
character=request.Form("xingge")
school=request.Form("xueli")
vocation=request.Form("zhiye")
fancy=request.Form("active")
sheng1=request.Form("sheng1")
shi1=request.Form("shi1")
people=request.Form("minzu")
blood=request.Form("blood")
marry=request.Form("marry")
revenue=request.Form("yuexin")
car=request.Form("car")
house=request.Form("house")
company=request.Form("company")
qq=trim(ReplaceBadChar(request.Form("qq")))
cell=trim(ReplaceBadChar(request.Form("cell")))
phone=trim(ReplaceBadChar(request.Form("phone")))

'on error resume next

if not isnumeric(height) or clng(height)>250 or clng(height)<90 then errmsg=errmsg+"<br>"+"<li>请正确填写您的身高！"
if not isnumeric(weight) or clng(weight)>300 or clng(weight)<20 then errmsg=errmsg+"<br>"+"<li>请正确填写您的体重"

if errmsg<>"" then 
response.Write "错误信息：<br>"
response.write("　　　"+ errmsg)
response.Write "<input type='button' value='返回修改' onClick='javascript:window.history.back();'>"
response.Write "<input type='button' value='关闭窗口' onClick='javascript:window.close();'>"
response.end
end if

set rst=server.CreateObject("adodb.recordset")   '添加交友帐号
sql1="select * from user_info where userid = "& userid &""
rst.open sql1,conn,1,3
rst("realname")=realname
rst("height")=height
rst("weight")=weight
rst("character")=character
rst("school")=school
rst("vocation")=vocation
rst("fancy")=fancy
rst("people")=people
rst("sheng")=sheng1
rst("shi")=shi1
rst("blood")=blood
rst("marry")=marry
rst("revenue")=revenue
rst("car")=car
rst("house")=house
rst("company")=company
rst("qq")=qq
rst("cell")=cell
rst("phone")=phone
rst("sfz")=sfz
rst.update
rst.close
set rst=nothing
response.Redirect("baseinfo.asp")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE5 {
	font-size: 13px;
	color: #A30C78;
	font-weight: bold;
}
-->
</style>
<script language="javascript">
<!--
function isTelOrMobile(byVal) { return (/[^\d-－（）\(\)]/g.test(byVal));}
//检测合法email;--demo   sxg

function checkInput(nForm)  
{
  var sheng1=nForm.sheng1.value.trim(); 
  if(sheng1=="") { alert("请选择您的籍贯！");return false;}
  
  var shi1=nForm.shi1.value.trim(); 
  if(shi1=="") { alert("请选择您的籍贯！");return false;}
 
 //检测身高与体重
 var intweight = nForm.weight.value.trim();  
 var intheight = nForm.height.value.trim();
 if (intheight=="") {	alert("请输入您的身高!");	nForm.height.focus(); return false; } 
 if (intweight=="") {	alert("请输入您的体重!");	nForm.weight.focus(); return false; } 
 re=/[^\d]/g;
 if(re.test(intheight)) {alert("身高中含有非法字符。"); nForm.height.focus(); return false;}
 if(re.test(intweight)) {alert("体重中含有非法字符。"); nForm.weight.focus(); return false;}
  //学历
 var xueli=nForm.xueli.value.trim(); 
 if(xueli=="") { alert("请选择您的学历！");return false;}
  //职业
 var zhiye=nForm.zhiye.value.trim(); 
 if(zhiye=="") { alert("请选择您的职业！");return false;}
 
 //检测手机与固定电话必需输入一项
 var mobileVal=nForm.cell.value.trim();
 var telVal   =nForm.phone.value.trim();
 if(mobileVal==""&&telVal=="") { alert("固定电话与手机请至少填入一项");return false;}
 //房面积
 var house=nForm.house.value.trim();
 re=/[^\d]/g;
 if(house!=""&&re.test(house)){alert("房屋面积不是数字！");nForm.house.focus();return false;}
  
 return true;
}
//-->
</script>
<script language="javascript" src="js/area.js"></script>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="204" height="168" align="center" valign="top"><div align="left">
        <!--#include file="memberleft.asp"-->
    </div></td>
    <td width="583" align="center" valign="top"><div align="left"></div>
        <table width="565" border="0" align="center" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="28" background="images/lg_1.gif"><TABLE width="565" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" style="BORDER-BOTTOM: #9DCCF6 1px solid">
                <TBODY>
                  <TR>
                    <TD width="2%" align=center background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                    <TD width="20%" align=center background="image/tiao_4.gif"><table width="112" height="25" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td width="112" align="center" class="pgd">详细资料</td>
                        </tr>
                    </table></TD>
                    <TD width="44%" height="20" align="center" background="image/tiao_4.gif">&nbsp;
</TD>
                    <TD width="32%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                    <TD width="2%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                  </TR>
                </TBODY>
            </TABLE></td>
          </tr>
          <tr>
            <td height="329" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
                <%
sql="select * from user_info where userid="& userid &""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
if not rs.eof then
%>
                <table width="545" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc"  bordercolordark="#FFFFFF" class="STYLE4">
                  <form name="frmreg" method="post" action="baseinfo.asp?action=save" onSubmit="return checkInput(this)">
                    <tr>
                      <td height="26" colspan="4" class="style895"><div align="center">详细资料</div></td>
                    </tr>
                    <tr>
                      <td width="82" height="26"><div align="right">用户名：</div></td>
                      <td height="26" colspan="3"><input name="username" type="text" class="st" size="16" disabled value="<%=rs("username")%>">                      </td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">性别：</div></td>
                      <td height="26" colspan="3"><input name="sex" type="text" class="st" id="sex" size="5" disabled value="<%=rs("sex")%>"></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">现所在地：</div></td>
                      <td height="26" colspan="3"><input name="sheng" type="text" class="st" id="sheng" size="14" disabled value="<%=GetProv(rs("prov"))%>">
                          <input name="shi" type="text" class="st" id="shi" size="14" disabled value="<%=GetCity(rs("city"))%>"></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">籍贯：</div></td>
                      <td height="26" colspan="3"><select name="sheng1" id="sheng1" onChange="setField(sheng1,shi1);">
                            <option value="" selected>省份</option>
                            <%
					set rs1=server.CreateObject("adodb.recordset")
					sql1="select id,sheng from sheng order by id"					
					rs1.open sql1,conn,1
					do while not rs1.eof
					  response.Write "<option value="""& rs1("id") &""""
					  if rs("sheng")=rs1("id") then response.Write "selected"
					  response.Write ">"& rs1("sheng")&"</option>"
					  rs1.movenext
					loop
					rs1.close
					set rs1=nothing
					%>
                          </select>
&nbsp;
<select name="shi1" id="shi1">
 <%if rs("shi")<>"" and (not isnull(rs("shi"))) then
  response.Write "<option value='"& rs("shi") &"'>"
  response.Write GetCity(rs("shi"))
  response.Write "</option>"
  end if
 %>  
</select>
<span class="STYLE1">*</span></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">E-Mail：</div></td>
                      <td height="26"><input name="email" type="text" class="st" id="email" style="height:19px;width:160px;" maxlength="50" disabled value="<%=rs("email")%>">
                          <span class="STYLE1">*</span></td>
                      <td height="26"><div align="right">QQ：</div></td>
                      <td width="157" height="26"><input name="qq" type="text" class="st" id="qq" size="12" maxlength="20" value="<%=rs("qq")%>"></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">真实姓名：</div></td>
                      <td height="26"><input name="realname" type="text" class="st" id="realname" style="height:19px;width:120px;" maxlength="15" value="<%=rs("realname")%>"></td>
                      <td height="26"><div align="right">身份证：</div></td>
                      <td height="26"><input name="sfz" type="text" class="st" id="sfz" style="height:19px;width:120px;" maxlength="20" value="<%=rs("sfz")%>"></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">出生日期：</div></td>
                      <td height="26"><input name="birthday" type="text" class="st" id="birthday" size="15" value="<%=rs("birthday")%>">
                          <span class="STYLE1">*</span></td>
                      <td height="26"><div align="right">血型：</div></td>
                      <td height="26"><select name="blood" class="st" id="blood">
                          <option <%if rs("blood")="A" then response.Write "selected"%>>A</option>
                          <option <%if rs("blood")="B" then response.Write "selected"%>>B</option>
                          <option <%if rs("blood")="AB" then response.Write "selected"%>>AB</option>
                          <option <%if rs("blood")="O" then response.Write "selected"%>>O</option>
                        </select>                      </td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">生肖：</div></td>
                      <td height="26"><input name="sx" type="text" class="st" id="sx" size="5" value="<%=ShowSx(rs("shuxiang"))%>" disabled>
                          <span class="STYLE1"> *</span></td>
                      <td height="26"><div align="right">性格：</div></td>
                      <td height="26"><select name="xingge" class="st" id="xingge">
                          <option value="外向" <%if rs("character")="外向" then response.Write "selected"%>>外向</option>
                          <option value="中性" <%if rs("character")="中性" then response.Write "selected"%>>中性</option>
                          <option value="内向" <%if rs("character")="内向" then response.Write "selected"%>>内向</option>
                        </select>
                          <span class="STYLE1">*</span></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">婚姻状况：</div></td>
                      <td width="206" height="26"><select name="marry" id="marry">
                          <option value="1" <%if rs("marry")=1 then response.Write "selected"%>>未婚</option>
                          <option value="2" <%if rs("marry")=2 then response.Write "selected"%>>在婚</option>
                          <option value="3" <%if rs("marry")=3 then response.Write "selected"%>>离婚</option>
                          <option value="4" <%if rs("marry")=4 then response.Write "selected"%>>丧偶</option>
                          <option value="5" <%if rs("marry")=5 then response.Write "selected"%>>周末夫妻</option>
                          <option value="6" <%if rs("marry")=6 then response.Write "selected"%>>丁客家族</option>
                          <option value="7" <%if rs("marry")=7 then response.Write "selected"%>>单身主义</option>
                        </select>
                          <span class="STYLE1">*</span> </td>
                      <td width="75" height="26"><div align="right">民族：</div></td>
                      <td height="26"><select name="minzu" class="st" id="minzu">
                          <option value="1" <%if rs("people")=1 then response.Write "selected"%>>汉族</option>
                          <option value="2" <%if rs("people")=2 then response.Write "selected"%>>朝鲜族</option>
                          <option value="3" <%if rs("people")=3 then response.Write "selected"%>>蒙古族</option>
                          <option value="4" <%if rs("people")=4 then response.Write "selected"%>>回族</option>
                          <option value="5" <%if rs("people")=5 then response.Write "selected"%>>满族</option>
                          <option value="6" <%if rs("people")=6 then response.Write "selected"%>>维吾尔族</option>
                          <option value="7" <%if rs("people")=7 then response.Write "selected"%>>壮族</option>
                          <option value="8" <%if rs("people")=8 then response.Write "selected"%>>彝族</option>
                          <option value="9" <%if rs("people")=9 then response.Write "selected"%>>苗族</option>
                          <option value="10" <%if rs("people")=10 then response.Write "selected"%>>藏族</option>
                          <option value="11" <%if rs("people")=11 then response.Write "selected"%>>其它民族</option>
                        </select>
                          <span class="STYLE1">*</span></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">身高：</div></td>
                      <td height="26"><input name="height" type="text" class="st" id="height" size="6" maxlength="3" value="<%=rs("height")%>">
                          <span class="STYLE1">cm *</span></td>
                      <td height="26"><div align="right">体重：</div></td>
                      <td height="26"><input name="weight" type="text" class="st" id="weight" size="6" maxlength="3" value="<%=rs("weight")%>">
                          <span class="STYLE1">kg *</span></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">学历：</div></td>
                      <td height="26"><select name="xueli" class="st" id="xueli">
                          <option value="1" <%if rs("school")=1 then response.Write "selected"%>>高中</option>
                          <option value="2" <%if rs("school")=2 then response.Write "selected"%>>大专</option>
                          <option value="3" <%if rs("school")=3 then response.Write "selected"%>>本科</option>
                          <option value="4" <%if rs("school")=4 then response.Write "selected"%>>硕士</option>
                          <option value="5" <%if rs("school")=5 then response.Write "selected"%>>博士</option>
                          <option value="6" <%if rs("school")=6 then response.Write "selected"%>>博士后</option>
                        </select>
                          <span class="STYLE1">*</span></td>
                      <td height="26"><div align="right">职业：</div></td>
                      <td height="26"><select name="zhiye" class="st" id="zhiye" style="width:84px;">
                          <option value="学生" <%if rs("vocation")="学生" then response.Write "selected"%>>学生</option>
                          <option value="教师" <%if rs("vocation")="教师" then response.Write "selected"%>>教师</option>
                          <option value="技术" <%if rs("vocation")="技术" then response.Write "selected"%>>技术</option>
                          <option value="科研工作" <%if rs("vocation")="科研工作" then response.Write "selected"%>>科研工作</option>
                          <option value="工程师" <%if rs("vocation")="工程师" then response.Write "selected"%>>工程师</option>
                          <option value="军人" <%if rs("vocation")="军人" then response.Write "selected"%>>军人</option>
                          <option value="警察" <%if rs("vocation")="警察" then response.Write "selected"%>>警察</option>
                          <option value="消防" <%if rs("vocation")="消防" then response.Write "selected"%>>消防</option>
                          <option value="文秘" <%if rs("vocation")="文秘" then response.Write "selected"%>>文秘</option>
                          <option value="普通职员" <%if rs("vocation")="普通职员" then response.Write "selected"%>>普通职员</option>
                          <option value="公务员" <%if rs("vocation")="公务员" then response.Write "selected"%>>公务员</option>
                          <option value="艺术" <%if rs("vocation")="艺术" then response.Write "selected"%>>艺术</option>
                          <option value="编辑" <%if rs("vocation")="编辑" then response.Write "selected"%>>编辑</option>
                          <option value="记者" <%if rs("vocation")="记者" then response.Write "selected"%>>记者</option>
                          <option value="影视" <%if rs("vocation")="影视" then response.Write "selected"%>>影视</option>
                          <option value="运动员" <%if rs("vocation")="运动员" then response.Write "selected"%>>运动员</option>
                          <option value="教练" <%if rs("vocation")="教练" then response.Write "selected"%>>教练</option>
                          <option value="医生" <%if rs("vocation")="医生" then response.Write "selected"%>>医生</option>
                          <option value="护士" <%if rs("vocation")="护士" then response.Write "selected"%>>护士</option>
                          <option value="营销" <%if rs("vocation")="营销" then response.Write "selected"%>>营销</option>
                          <option value="采购" <%if rs("vocation")="采购" then response.Write "selected"%>>采购</option>
                          <option value="推销" <%if rs("vocation")="推销" then response.Write "selected"%>>推销</option>
                          <option value="服务业" <%if rs("vocation")="服务业" then response.Write "selected"%>>服务业</option>
                          <option value="公司高管" <%if rs("vocation")="公司高管" then response.Write "selected"%>>公司高管</option>
                          <option value="厂长经理" <%if rs("vocation")="厂长经理" then response.Write "selected"%>>厂长经理</option>
                          <option value="银行" <%if rs("vocation")="银行" then response.Write "selected"%>>银行</option>
                          <option value="证券" <%if rs("vocation")="证券" then response.Write "selected"%>>证券</option>
                          <option value="保险" <%if rs("vocation")="保险" then response.Write "selected"%>>保险</option>
                          <option value="期货交易" <%if rs("vocation")="期货交易" then response.Write "selected"%>>期货交易</option>
                          <option value="金融业" <%if rs("vocation")="金融业" then response.Write "selected"%>>金融业</option>
                          <option value="财会审计" <%if rs("vocation")="财会审计" then response.Write "selected"%>>财会审计</option>
                          <option value="专利商标" <%if rs("vocation")="专利商标" then response.Write "selected"%>>专利商标</option>
                          <option value="律师" <%if rs("vocation")="律师" then response.Write "selected"%>>律师</option>
                          <option value="咨询业" <%if rs("vocation")="咨询业" then response.Write "selected"%>>咨询业</option>
                          <option value="运输" <%if rs("vocation")="运输" then response.Write "selected"%>>运输</option>
                          <option value="航空" <%if rs("vocation")="航空" then response.Write "selected"%>>航空</option>
                          <option value="农民" <%if rs("vocation")="农民" then response.Write "selected"%>>农民</option>
                          <option value="私营业主" <%if rs("vocation")="私营业主" then response.Write "selected"%>>私营业主</option>
                          <option value="策划" <%if rs("vocation")="策划" then response.Write "selected"%>>策划</option>
                          <option value="其它" <%if rs("vocation")="其它" then response.Write "selected"%>>其它</option>
                      </select></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">手机：</div></td>
                      <td height="26"><input name="cell" type="text" class="st" id="cell" size="15" maxlength="30" value="<%=rs("cell")%>">
                          <span class="STYLE1">*</span></td>
                      <td height="26"><div align="right">固定电话：</div></td>
                      <td height="26"><input name="phone" type="text" class="st" id="phone" size="15" maxlength="40" value="<%=rs("phone")%>">
                          <span class="STYLE1">*</span></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">单位性质：</div></td>
                      <td height="26"><select name="company" id="company">
                          <option value="1" <%if rs("company")=1 then response.Write "selected"%>>国有</option>
                          <option value="2" <%if rs("company")=2 then response.Write "selected"%>>民营</option>
                          <option value="3" <%if rs("company")=3 then response.Write "selected"%>>合资</option>
                          <option value="4" <%if rs("company")=4 then response.Write "selected"%>>独资</option>
                          <option value="5" <%if rs("company")=5 then response.Write "selected"%>>个体</option>
                        </select>                      </td>
                      <td height="26"><div align="right">月收入：</div></td>
                      <td height="26"><select class="put" name="yuexin" size="1">
                          <option value="1" <%if rs("revenue")=1 then response.Write "selected"%>>1500元以下</option>
                          <option value="2" <%if rs("revenue")=2 then response.Write "selected"%>>1500-3000元</option>
                          <option value="3" <%if rs("revenue")=3 then response.Write "selected"%>>3000-5000元</option>
                          <option value="4" <%if rs("revenue")=4 then response.Write "selected"%>>5000-7000元</option>
                          <option value="5" <%if rs("revenue")=5 then response.Write "selected"%>>7000-9000元</option>
                          <option value="6" <%if rs("revenue")=6 then response.Write "selected"%>>9000-12000元</option>
                          <option value="7" <%if rs("revenue")=7 then response.Write "selected"%>>12000-15000元</option>
                          <option value="8" <%if rs("revenue")=8 then response.Write "selected"%>>15000－20000元</option>
                          <option value="9" <%if rs("revenue")=9 then response.Write "selected"%>>20000元以上</option>
                      </select></td>
                    </tr>
                    <tr>
                      <td height="26"><div align="right">住房：</div></td>
                      <td height="26"><input name="house" type="text" class="st" id="house" size="6" maxlength="5" value="<%=rs("house")%>">
                          <span class="STYLE1">平米</span></td>
                      <td height="26"><div align="right">有无车：</div></td>
                      <td height="26"><span class="STYLE1">
                        <select name="car" id="car">
                          <option value="有" <%if rs("car")="有" then response.Write "selected"%>>有</option>
                          <option value="无" <%if rs("car")="无" then response.Write "selected"%>>无</option>
                        </select>
        *</span> </td>
                    </tr>
                    <tr>
                      <td height="170"><div align="right">爱好：</div></td>
                      <td colspan="3"><table width="100%" cellpadding="0" cellspacing="0" class="STYLE4">
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="跳舞" name="active" <%if instr(rs("fancy"),"跳舞")<>0 then response.Write "checked"%>>
              跳舞 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="唱歌" name="active" <%if instr(rs("fancy"),"唱歌")<>0 then response.Write "checked"%>>
              唱歌 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="逛商店" name="active" <%if instr(rs("fancy"),"逛商店")<>0 then response.Write "checked"%>>
              逛商店 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="电影院" name="active" <%if instr(rs("fancy"),"电影院")<>0 then response.Write "checked"%>>
              电影院 </TD>
                            <TD width="20%"><input name="active" type="checkbox"  value="朋友聚会" <%if instr(rs("fancy"),"朋友聚会")<>0 then response.Write "checked"%>>
              朋友聚会</TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="看影碟" name="active" <%if instr(rs("fancy"),"看影碟")<>0 then response.Write "checked"%>>
              看影碟 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="阅读" name="active" <%if instr(rs("fancy"),"阅读")<>0 then response.Write "checked"%>>
              阅读 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="上网" name="active" <%if instr(rs("fancy"),"上网")<>0 then response.Write "checked"%>>
              上网 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="聊天" name="active" <%if instr(rs("fancy"),"聊天")<>0 then response.Write "checked"%>>
              聊天 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="泡酒吧" <%if instr(rs("fancy"),"泡酒吧")<>0 then response.Write "checked"%>>
              泡酒吧 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="弹琴" name="active" <%if instr(rs("fancy"),"弹琴")<>0 then response.Write "checked"%>>
              弹琴 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="听音乐" name="active" <%if instr(rs("fancy"),"听音乐")<>0 then response.Write "checked"%>>
              听音乐 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="烹调" name="active" <%if instr(rs("fancy"),"烹调")<>0 then response.Write "checked"%>>
              烹调 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="摄影" name="active" <%if instr(rs("fancy"),"摄影")<>0 then response.Write "checked"%>>
              摄影 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="泡咖啡厅" <%if instr(rs("fancy"),"泡咖啡厅")<>0 then response.Write "checked"%>>
              泡咖啡厅 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="书法/绘画" name="active" <%if instr(rs("fancy"),"书法/绘画")<>0 then response.Write "checked"%>>
              书法/绘画 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="创作" name="active" <%if instr(rs("fancy"),"创作")<>0 then response.Write "checked"%>>
              创作 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="旅游" name="active" <%if instr(rs("fancy"),"旅游")<>0 then response.Write "checked"%>>
              旅游 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="养宠物" name="active" <%if instr(rs("fancy"),"养宠物")<>0 then response.Write "checked"%>>
              养宠物 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="美容" <%if instr(rs("fancy"),"美容")<>0 then response.Write "checked"%>>
              美容 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="收藏" name="active" <%if instr(rs("fancy"),"收藏")<>0 then response.Write "checked"%>>
              收藏 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="健身" name="active" <%if instr(rs("fancy"),"健身")<>0 then response.Write "checked"%>>
              健身 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="下棋/打牌" name="active" <%if instr(rs("fancy"),"下棋/打牌")<>0 then response.Write "checked"%>>
              下棋/打牌 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="爬山" name="active" <%if instr(rs("fancy"),"爬山")<>0 then response.Write "checked"%>>
              爬山 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="游泳" <%if instr(rs("fancy"),"游泳")<>0 then response.Write "checked"%>>
              游泳 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="足球" name="active" <%if instr(rs("fancy"),"足球")<>0 then response.Write "checked"%>>
              足球 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="排球" name="active" <%if instr(rs("fancy"),"排球")<>0 then response.Write "checked"%>>
              排球 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="篮球" name="active" <%if instr(rs("fancy"),"篮球")<>0 then response.Write "checked"%>>
              篮球 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="网球" name="active" <%if instr(rs("fancy"),"网球")<>0 then response.Write "checked"%>>
              网球 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="水上运动" <%if instr(rs("fancy"),"水上运动")<>0 then response.Write "checked"%>>
              水上运动 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="乒乓球" name="active" <%if instr(rs("fancy"),"乒乓球")<>0 then response.Write "checked"%>>
              乒乓球 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="羽毛球" name="active" <%if instr(rs("fancy"),"羽毛球")<>0 then response.Write "checked"%>>
              羽毛球 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="高尔夫" name="active" <%if instr(rs("fancy"),"高尔夫")<>0 then response.Write "checked"%>>
              高尔夫 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="跑步" name="active" <%if instr(rs("fancy"),"跑步")<>0 then response.Write "checked"%>>
              跑步 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="冰上运动" <%if instr(rs("fancy"),"冰上运动")<>0 then response.Write "checked"%>>
              冰上运动 </TD>
                          </TR>
                          <TR>
                            <TD width="20%" height="18"><INPUT type="checkbox" value="骑单车" name="active" <%if instr(rs("fancy"),"骑单车")<>0 then response.Write "checked"%>>
              骑单车 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="骑摩托车" name="active" <%if instr(rs("fancy"),"骑摩托车")<>0 then response.Write "checked"%>>
              骑摩托车 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="自驾游" name="active" <%if instr(rs("fancy"),"自驾游")<>0 then response.Write "checked"%>>
              自驾游 </TD>
                            <TD width="20%"><INPUT type="checkbox" value="保龄球" name="active" <%if instr(rs("fancy"),"保龄球")<>0 then response.Write "checked"%>>
              保龄球 </TD>
                            <TD width="20%"><input name="active" type="checkbox" value="钓鱼" <%if instr(rs("fancy"),"钓鱼")<>0 then response.Write "checked"%>>
              钓鱼</TD>
                          </TR>
                      </table></td>
                    </tr>
                    <tr>
                      <td height="32">&nbsp;</td>
                      <td height="32" colspan="3" class="STYLE1"><div align="center">
                          <input type="submit" name="Submit" value="提交更新">
                      </div></td>
                    </tr>
                  </form>
              </table>
                <%end if%>
<font color="#006600">&nbsp; </font></td>
          </tr>
      </table></td>
    <td width="163" align="center" valign="top"><!--#include file="fenlei.asp"-->
    <div align="left"></div></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
