<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/xxxxxx.asp" -->
<!--#include file="author2.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")
If (Request.QueryString <> "" Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>

<%
' *** Update Record: set variables

If (CStr(Request("MM_update") = "form1" And CStr(Request("MM_recordId") <> "" Then

MM_editConnection = MM_conHouse_STRING
MM_editTable = "house1"
MM_editColumn = "自动编号"
MM_recordId = "" + Request.Form("MM_recordId" + ""
MM_editRedirectUrl = "house.asp"
MM_fieldsStr = "Element2|value|Element3|value|Element4|value|Element5|value|Element6|value|Element7|value|Element8|value|Element9|value|Element10|value|Element11|value|Element12|value|Element13|value|Element14|value|Element15|value|Element16|value|Element17|value|Element19|value|Element20|value|Element21|value"
MM_columnsStr = "房产证号|',none,''|法人代表|',none,''|物业地址|',none,''|物业类型|',none,''|建筑面积|',none,''|户型|',none,''|座向|',none,''|楼龄|',none,''|价格|none,none,NULL|室内设施|',none,''|装修|',none,''|有效期|',none,''|联系人|',none,''|电话|',none,''|邮箱|',none,''|租售|',none,''|会员名|',none,''|成交日期|',none,NULL|成交人|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "" Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update") <> "" And CStr(Request("MM_recordId") <> "" Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","
MM_delim = MM_typeArray(0)
If (MM_delim = "none" Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none" Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none" Then MM_emptyVal = ""
If (MM_formVal = "" Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "" Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'" Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''" & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("自动编号" <> "" Then
Recordset1__MMColParam = Request.QueryString("自动编号"
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_conHouse_STRING
Recordset1.Source = "SELECT * FROM house1 WHERE 自动编号 = " + Replace(Recordset1__MMColParam, "'", "''" + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset"
Recordset2.ActiveConnection = MM_conHouse_STRING
Recordset2.Source = "SELECT * FROM leixing1"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset"
Recordset4.ActiveConnection = MM_conHouse_STRING
Recordset4.Source = "SELECT * FROM zhuangxiu1"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<%
Dim Recordset5
Dim Recordset5_numRows

Set Recordset5 = Server.CreateObject("ADODB.Recordset"
Recordset5.ActiveConnection = MM_conHouse_STRING
Recordset5.Source = "SELECT * FROM zuoxiang1"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 1
Recordset5.Open()

Recordset5_numRows = 0
%>
<%
Dim Recordset6
Dim Recordset6_numRows

Set Recordset6 = Server.CreateObject("ADODB.Recordset"
Recordset6.ActiveConnection = MM_conHouse_STRING
Recordset6.Source = "SELECT * FROM zushou1"
Recordset6.CursorType = 0
Recordset6.CursorLocation = 2
Recordset6.LockType = 1
Recordset6.Open()

Recordset6_numRows = 0
%>
<%
Sub CheckList(Vaules,chkList) ChkList=Replace(chkList," ",""
if InStr(1,chkList,vaules)>0 then
Response.Write "CHECKED"
else Response.Write ""
end if
End Sub
Dim MsList
MsList=Recordset1.Fields.Item("室内设施".value
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>三江房地产网|管理后台</title>
<script language="javascript" type="text/javascript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#"!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?")>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}

function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="" {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnvalue = (errors == '');
}
//-->
</script>
<link href="../all.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" onLoad="MM_preloadImages('../images/t2_r2_c2_f2.gif','../images/t2_r2_c3_f2.gif','../images/t2_r2_c4_f2.gif','../images/t2_r2_c5_f2.gif','../images/t2_r2_c6_f2.gif','../images/t2_r2_c7_f2.gif')">
<table width="720" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><table width="720" border="0" cellpadding="0" cellspacing="0" class="bj4">
<!-- fwtable fwsrc="t2.png" fwbase="t2.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="../images/spacer.gif" width="12" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="108" height="1" border="0" alt=""></td>
<td><img src="../images/spacer.gif" width="60" height="1" border="0" alt=""></td>
</tr>
<tr valign="top">
<td height="54" colspan="8"> <table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="22" height="42">&nbsp;</td>
<td width="696" valign="bottom"><img src="../images/logo1.gif" width="200" height="25" border="0"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img name="t2_r2_c1" src="../images/t2_r2_c1.gif" width="12" height="22" border="0" alt=""></td>
<td><a href="house.asp?%B5%C8%BC%B6=%25" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c2','','../images/t2_r2_c2_f2.gif',1);"><img name="t2_r2_c2" src="../images/t2_r2_c2.gif" width="108" height="22" border="0" alt=""></a></td>
<td><a href="member.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c3','','../images/t2_r2_c3_f2.gif',1);"><img name="t2_r2_c3" src="../images/t2_r2_c3.gif" width="108" height="22" border="0" alt=""></a></td>
<td><a href="anjie.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c4','','../images/t2_r2_c4_f2.gif',1);"><img name="t2_r2_c4" src="../images/t2_r2_c4.gif" width="108" height="22" border="0" alt=""></a></td>
<td><a href="one.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c5','','../images/t2_r2_c5_f2.gif',1);"><img name="t2_r2_c5" src="../images/t2_r2_c5.gif" width="108" height="22" border="0" alt=""></a></td>
<td><a href="bbs.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c6','','../images/t2_r2_c6_f2.gif',1);"><img name="t2_r2_c6" src="../images/t2_r2_c6.gif" width="108" height="22" border="0" alt=""></a></td>
<td><a href="index.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('t2_r2_c7','','../images/t2_r2_c7_f2.gif',1);"><img name="t2_r2_c7" src="../images/t2_r2_c7.gif" width="108" height="22" border="0" alt=""></a></td>
<td><img name="t2_r2_c8" src="../images/t2_r2_c8.gif" width="60" height="22" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2"><img name="t2_r3_c1" src="../images/t2_r3_c1.gif" width="120" height="110" border="0" alt=""></td>
<td colspan="6" align="center"><a href="../anjie/default.asp"><img src="../images/bar1.gif" width="468" height="60" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="155" valign="top">
<table width="90%" align="center" cellspacing="0">
<tr>
<td width="100%" class="text1">非注册用户可以浏览部分信息，但不能登记发布信息，如房源出售、出租房登记、二手房登记等...</td>
</tr>
<tr>
<td align="center"><a href="../member.asp"><img src="../images/botton6.gif" width="84" height="24" border="0"></a></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td class="text1">对于广大消费者来说，按揭是一种分期付款的购买方式...</td>
</tr>
<tr>
<td align="center"><a href="../anjie/default.asp"><img src="../images/botton5.gif" width="84" height="24" border="0"></a></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
</table>
</td>
<td width="565" valign="top">
<form method="post" action="<%=MM_editAction%>" name="form1">
<table width="100%" border="1" align="center" bgcolor="#ECFFEC" class="xinxi1">
<tr valign="baseline" bordercolor="#ECFFEC">
<td height="35" nowrap><strong>&gt;&gt;修改房屋资料</strong></td>
<td height="35" nowrap><font color="#CC0000">( ** 项必须填写)</font></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td width="25%" align="right" nowrap>房产证号:</td>
<td width="75%"> <input type="text" name="Element2" value="<%=(Recordset1.Fields.Item("房产证号".value)%>" size="32">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>法人代表:</td>
<td> <input type="text" name="Element3" value="<%=(Recordset1.Fields.Item("法人代表".value)%>" size="32">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>** 物业地址:</td>
<td> <input type="text" name="Element4" value="<%=(Recordset1.Fields.Item("物业地址".value)%>" size="32">
<font color="#999999">(包括楼层)</font></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>物业类型:</td>
<td> <select name="Element5">
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fields.Item("物业类型".value)%>" <%If (Not isNull(Recordset1.Fields.Item("物业类型".value)) Then If (CStr(Recordset2.Fields.Item("物业类型".value) = CStr(Recordset1.Fields.Item("物业类型".value)) Then Response.Write("SELECTED" : Response.Write(""%> ><%=(Recordset2.Fields.Item("物业类型".value)%></option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select> </td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>建筑面积:</td>
<td> <input type="text" name="Element6" value="<%=(Recordset1.Fields.Item("建筑面积".value)%>" size="32">
<font color="#999999">平方米</font><font color="#999999">(限数字)</font>
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>户型:</td>
<td> <input type="text" name="Element7" value="<%=(Recordset1.Fields.Item("户型".value)%>" size="32">
<font color="#999999">(如1房1厅、复式、单房)</font></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>座向:</td>
<td> <select name="Element8">
<%
While (NOT Recordset5.EOF)
%>
<option value="<%=(Recordset5.Fields.Item("座向".value)%>" <%If (Not isNull(Recordset1.Fields.Item("座向".value)) Then If (CStr(Recordset5.Fields.Item("座向".value) = CStr(Recordset1.Fields.Item("座向".value)) Then Response.Write("SELECTED" : Response.Write(""%> ><%=(Recordset5.Fields.Item("座向".value)%></option>
<%
Recordset5.MoveNext()
Wend
If (Recordset5.CursorType > 0) Then
Recordset5.MoveFirst
Else
Recordset5.Requery
End If
%>
</select> </td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>楼龄:</td>
<td> <input type="text" name="Element9" value="<%=(Recordset1.Fields.Item("楼龄".value)%>" size="32">
<font color="#999999">年(或新楼)</font> </td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>** 价格:</td>
<td> <input type="text" name="Element10" value="<%=(Recordset1.Fields.Item("价格".value)%>" size="32">
<font color="#999999">元(限数字)</font></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" valign="top" nowrap>室内设施:</td>
<td> <table class="xinxi1">
<tr>
<td nowrap>
<input <% Call CheckList("冰箱",MsList) %> type="checkbox" name="Element11" value="冰箱">
冰箱</td>
<td nowrap>
<input <% Call CheckList("空调",MsList) %> type="checkbox" name="Element11" value="空调">
空调</td>
<td nowrap>
<input <% Call CheckList("电话",MsList) %> type="checkbox" name="Element11" value="电话">
电话</td>
<td nowrap>
<input <% Call CheckList("热水器",MsList) %> type="checkbox" name="Element11" value="热水器">
热水器</td>
<td nowrap>
<input <% Call CheckList("家私",MsList) %> type="checkbox" name="Element11" value="家私">
家私</td>
</tr>
<tr>
<td nowrap>
<input <% Call CheckList("电视",MsList) %> type="checkbox" name="Element11" value="电视">
电视</td>
<td nowrap>
<input <% Call CheckList("有线",MsList) %> type="checkbox" name="Element11" value="有线">
有线</td>
<td nowrap>
<input <% Call CheckList("沙发",MsList) %> type="checkbox" name="Element11" value="沙发">
沙发</td>
<td nowrap>
<input <% Call CheckList("厨房用具",MsList) %> type="checkbox" name="Element11" value="厨房用具">
厨房用具</td>
<td nowrap>
<input <% Call CheckList("洗衣机",MsList) %> type="checkbox" name="Element11" value="洗衣机">
洗衣机</td>
</tr>
</table></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>装修:</td>
<td> <select name="Element12">
<%
While (NOT Recordset4.EOF)
%>
<option value="<%=(Recordset4.Fields.Item("装修".value)%>" <%If (Not isNull(Recordset1.Fields.Item("装修".value)) Then If (CStr(Recordset4.Fields.Item("装修".value) = CStr(Recordset1.Fields.Item("装修".value)) Then Response.Write("SELECTED" : Response.Write(""%> ><%=(Recordset4.Fields.Item("装修".value)%></option>
<%
Recordset4.MoveNext()
Wend
If (Recordset4.CursorType > 0) Then
Recordset4.MoveFirst
Else
Recordset4.Requery
End If
%>
</select> </td>
</tr>
<tr bordercolor="#ECFFEC">
<td align="right" valign="top" nowrap>** 有效期:</td>
<td valign="baseline"> <table align="left" class="xinxi1">
<tr>
<td> <input type="radio" value="10" name="Element13" <%If (CStr("10" = CStr(Recordset1.Fields.Item("有效期".value)) Then Response.Write("CHECKED" : Response.Write(""%>>
10天以下 </tr>
<tr>
<td> <input type="radio" value="20" name="Element13" <%If (CStr("20" = CStr(Recordset1.Fields.Item("有效期".value)) Then Response.Write("CHECKED" : Response.Write(""%>>
20天左右 </tr>
<tr>
<td> <input type="radio" value="30" name="Element13" <%If (CStr("30" = CStr(Recordset1.Fields.Item("有效期".value)) Then Response.Write("CHECKED" : Response.Write(""%>>
30天以上 </tr>
</table></td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>** 联系人:</td>
<td> <input type="text" name="Element14" value="<%=(Recordset1.Fields.Item("联系人".value)%>" size="32">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>** 电话:</td>
<td> <input type="text" name="Element15" value="<%=(Recordset1.Fields.Item("电话".value)%>" size="32">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>邮箱:</td>
<td> <input type="text" name="Element16" value="<%=(Recordset1.Fields.Item("邮箱".value)%>" size="32">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>** 租售:</td>
<td> <select name="Element17">
<%
While (NOT Recordset6.EOF)
%>
<option value="<%=(Recordset6.Fields.Item("租售".value)%>" <%If (Not isNull(Recordset1.Fields.Item("租售".value)) Then If (CStr(Recordset6.Fields.Item("租售".value) = CStr(Recordset1.Fields.Item("租售".value)) Then Response.Write("SELECTED" : Response.Write(""%> ><%=(Recordset6.Fields.Item("租售".value)%></option>
<%
Recordset6.MoveNext()
Wend
If (Recordset6.CursorType > 0) Then
Recordset6.MoveFirst
Else
Recordset6.Requery
End If
%>
</select> <font color="#CC0000">请注意此项，若出售、出租房屋请选择已售、已租</font> </td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>会员名:</td>
<td> <input type="text" name="Element19" value="<%=(Recordset1.Fields.Item("会员名".value)%>" size="32" readonly="1">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>&nbsp;</td>
<td> <input type="submit" onClick="MM_validateForm('Element4','','R','Element6','','NisNum','Element10','','RisNum');return document.MM_returnvalue" value="更新记录"> <input name="Submit" type="button" onClick="MM_callJS('javascript:history.go(-1)')" value="返回">
</td>
</tr>
<tr valign="baseline" bordercolor="#ECFFEC">
<td align="right" nowrap>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("自动编号".value %>">
<input name="Element20" type="hidden" id="Element20" value="<%=Now()%>">
<input name="Element21" type="hidden" id="Element21" value="<%=Session("MM_Username"%>">
</form></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
<%
Recordset5.Close()
Set Recordset5 = Nothing
%>
<%
Recordset6.Close()
Set Recordset6 = Nothing
%>
------------------------------------------------------------

我的问题是复选框,更新记录是出现错误如下:
无效使用 Null : 'Replase'

错误在这段中,不知道为什么错误???
<%
Sub CheckList(Vaules,chkList) ChkList=Replace(chkList," ",""
if InStr(1,chkList,vaules)>0 then
Response.Write "CHECKED"
else Response.Write ""
end if
End Sub
Dim MsList
MsList=Recordset1.Fields.Item("室内设施".value
%>