reg_modico.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 445 行 · 第 1/2 页
ASP
445 行
<option>合租</option>
<option>置换</option>
</select></td>
</tr>
<tr>
<td height="23" align="right"><font color=#FFFFFF>区域 </font></td>
<td height="23"> <SPAN class=P9><FONT color=red>
<%
set rscyte=server.CreateObject("adodb.recordset")
sqlcyte = "select * from cyte"
rscyte.Open sqlcyte,conn,1,1
%>
<select name="select" id="id" class="inp">
<option value="">-- 请选择 --</option>
<%do while not rscyte.eof%>
<option value="<%=rscyte("cyte")%>"><%=rscyte("cyte")%></option>
<%
rscyte.movenext
loop
rscyte.close
set rscyte=nothing
%>
</select>
</FONT></SPAN></td>
</tr>
<tr>
<td height="23" align="right"><font color=#FFFFFF>户型 </font></td>
<td height="23"> <select name="fclx" id="fclx">
<option value="" selected>-- 请选择 --</option>
<option>单人间</option>
<option>一室一卫</option>
<option>一室一厅</option>
<option>二室户</option>
<option>二室一厅</option>
<option>二室二厅</option>
<option>三室户</option>
<option>三室一厅</option>
<option>三室二厅</option>
<option>四室户</option>
<option>四室一厅</option>
<option>四室二厅</option>
<option>四室三厅</option>
<option>五室一厅</option>
<option>五室二厅</option>
<option>五室三厅</option>
<option>跃层楼</option>
<option>复式</option>
<option>公寓楼</option>
<option>别墅</option>
<option>写字楼</option>
<option>厂房</option>
<option>店面</option>
<option>储藏间</option>
<option>地下室</option>
<option>整栋楼</option>
<option>其它</option>
</select> </td>
</tr>
<tr>
<td height="22" align="right"><font color=#FFFFFF>地段 </font></td>
<td height="22"> <input name="area" type="text" id="area" size="14">
</td>
</tr>
<tr>
<td height="23" align="right"><font color=#FFFFFF>是否中介 </font></td>
<td height="23"><input type="radio" name="seasea_type" value="1" class="box">
<font color=#FFFFFF>中介
<input type="radio" name="seasea_type" value="0" class="box">
<font color=#FFFFFF>免中介</font> </td>
</tr>
<tr>
<td height="23" colspan="2" valign="bottom"> <div align="center">
<a href="javascript:document.form1.submit();"><img src="../images/frams_86.jpg" width="53" height="23" border="0"></a>
</div></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
<td width="710" align="center" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="29" valign="bottom" bgcolor="#76AE00"> <font color="#ffffff">您好!<font color="#FF0000"><%=session("loginid")%></font>,欢迎您来到会员管理中心!您可以按左边的菜单进行管理.</font></td>
</tr>
</table>
<table width="710" height="221" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><form action="reg_modi_save.asp" method="post" name="reg" id="reg">
<%
userid=session("loginid")
sql="select * from company where userid='"&userid&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table width="100%" height="259" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="23" class="white">
<div align="center">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr>
<td height="30" valign="bottom"> <div align="center"><font color="#FF6600">用户注册个人信息</font></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="209" align="center" valign="top" bgcolor="#FFFFFF">
<div align="center">
<table width="700" height="270" border="0" cellpadding="2" cellspacing="1" bgcolor="#dfdfdf" class="blackbox" hspace="12">
<tr bgcolor="#f6f6f6" class="black">
<td width="88" height="12" align="right" valign="middle" bgcolor="#f4f4f4">公司名称：</td>
<td width="395" height="24" bgcolor="#FFFFFF"> <input name="company" type="text" class="inputb" id="company" value="<%=trim(rs("company"))%>" size="35" maxlength="40">
<font color="#FF0000"> *</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">公司地址：</td>
<td height="12" bgcolor="#FFFFFF"> <input name="address" type="text" class="inputb" id="address" value="<%=trim(rs("address"))%>" size="35" maxlength="60">
<font color="#FF0000">*</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">
加入中介联盟：</td>
<td height="12" bgcolor="#FFFFFF">
<a href="reg_zj.asp" class="linkone">
<font color=#FF0000>
<u>申 请 加 入 中 介</u></font></a></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">邮政编码</td>
<td height="12" bgcolor="#FFFFFF"> <input name="zip" type="text" id="zip" value="<%=trim(rs("zip"))%>"></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">联系电话：</td>
<td height="12" bgcolor="#FFFFFF"> <input name="phone" type="text" id="phone" value="<%=trim(rs("phone"))%>"></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="12" align="right" valign="middle" bgcolor="#f4f4f4">E-mail：</td>
<td height="12" bgcolor="#FFFFFF"> <input name="email" type="text" class="inputb" value="<%=trim(rs("email"))%>" size="30">
<font color="#FF0000"> *</font><font color="#FF6600">(此项非常重要，请认真填写！）</font></td>
</tr>
<tr bgcolor="#f6f6f6" class="black">
<td height="111" align="center" valign="middle" bgcolor="#f4f4f4">公<br>
司<br>
简<br>
介</td>
<td height="111" bgcolor="#FFFFFF"> <textarea name="info" cols="60" rows="6" id="info"><%=trim(rs("info"))%></textarea>
<input name="reg_type" type="hidden" id="reg_type" value="1"></td>
</tr>
</table></div>
</td>
</tr>
</table>
<%
end if
rs.close
%>
<br>
<input type="submit" name="Submit2" value=" 修 改 " onclick="javascript:return checkfield();">
<SCRIPT language=VBScript>
function checkfield()
if trim(reg.company.value)="" then
msgbox "请填写公司名称！"
reg.company.focus
checkfield=false
exit function
end if
if trim(reg.address.value)="" then
msgbox "请填写公司地址！"
reg.address.focus
checkfield=false
exit function
end if
if trim(reg.email.value)="" then
msgbox "邮件不能为空！"
reg.email.focus
checkfield=false
exit function
else
str1=trim(reg.email.value)
if instr(str1,"@")=0 then
msgbox "邮件地址错误！"
reg.email.focus
checkfield=false
exit function
end if
end if
if trim(reg.info.value)="" then
msgbox "请填写公司简介！"
reg.info.focus
checkfield=false
exit function
end if
checkfield=true
end function
</SCRIPT>
</form></td>
</tr>
</table>
<table width="100%" height="52" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">注：请认真填写以上内容，带“<font color="#FF0000">*</font>”号为必填项</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="center">
<!--#include file="../end.asp" -->
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%
Set Rs=Nothing
CloseDataConn
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?