<%
'on error resume next
dim id
rsid=request("id")
if not rsid="" then
rsid=request("id")
else
rsid=0
end if
dim adoconn
dim adorecordset
set adoconn=server.CreateObject("adodb.connection")
adoconn.Open application("conn")
set adorecordset= server.CreateObject("adodb.recordset")
set rs=server.CreateObject("adodb.recordset")
if not rsid=0 then
set rs=adoconn.Execute( "select * from house where id="&rsid)
end if
function get_checked(selectitem, str, max)
for i=1 to max
p=mid(str,i,1)
sql="select * from "&selectitem&" where "&selectitem&"id="&i
set adorecordset= adoconn.Execute(sql)
mc=adorecordset(selectitem&"mc")
if p="1" then
Response.Write ""&mc
else
Response.Write ""&mc
end if
next
adorecordset.Close
end function
function get_inputvalue(selectitem)
if not rsid=0 then
Response.Write "value="&rs(selectitem)
end if
end function
function get_select(selectitem)
p=0
if not rsid=0 then
p=rs(selectitem)
end if
sql="select * from "&selectitem
set adorecordset=adoconn.Execute (sql)
Response.Write ""
while not adorecordset.EOF
id =adorecordset(selectitem&"id")
mc =adorecordset(selectitem&"mc")
if not id=p then
Response.Write ""
else
Response.Write ""
end if
adorecordset.MoveNext
wend
adorecordset.Close
end function
%>
个人登记须知
人个信息免费发布区