lx.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 100 行

ASP

100 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../top.asp"-->
<%
if Session("loginid")="" then
Response.write("<script>alert(""错误！"");location.href=""../index.asp"";</script>")
Response.end
end if
if request("action")="ok" then
strlx=request("MemberType")
OpenDataConn
sqlLockMember = "Update company Set reg_type='"&strlx&"' Where Userid ='"&Session("loginid")&"'"
Conn.Execute sqlLockMember
session("reg_type")=strlx
   if strlx="0" then
%>
<script language="JavaScript">
alert("请完善您的个人资料!　　")
window.location="editdata.asp"
</script>
<%  else%>
<script language="JavaScript">
alert("请完善您的企业资料!　　")
window.location="editdata_co.asp"
</script>
<%end if
end if
%>
<html>
<head>
<title>欢迎光临</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../inc/style.css" rel="stylesheet" type="text/css">
</head>
<body background="../ima/5.JPG" leftmargin="0" topmargin="0">

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="../img/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2759" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg4.gif border=0>
  <TBODY>
  <TR>
    <TD align=right width=35>
	<IMG height=13 src="../img/headarrow.gif" 
      width=17></TD>
    <TD align=middle width=10></TD>
    <TD class=TD_Place width=935>您现在的位置：<font color="#FFFFFF"><a href="../index.asp"><%=homepage_title%></a></font>&gt;&gt; 
    <FONT color=#ffffff>请选择会员类型</FONT></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center 
background=../img/headbg5.gif border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD align=right>
      　</TD></TR>
  <TR>
    <TD>
      <div align="center">
      <table width="710" height="101" border="0" cellpadding="0" cellspacing="1" bgcolor="#CDEECA">
                    <tr> 
                      <td width="423" height="28" bgcolor="#7cb721">　<span class="black"><font color="#FFFFFF">请选择会员类型：</font></span></td>
                    </tr>
                    <tr> 
                      <td bgcolor="#FFFFE6">
						<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
                            <tr bgcolor="#FEFAEE" class="black"> 
                              <td height="40" align="center" bgcolor="#CDEECA"><table width="100%" height="70" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td align="center">
　</td>
				  </tr><form method="post" action="?action=ok" name="lx">
                  <tr> 
                    <td align="center">
<input type="radio" name="MemberType" value="0" checked>&nbsp;个人会员<br>
<br>
<input type="radio" name="MemberType" value="1">&nbsp;房产中介


      <br>
　</td>
				  </tr>
                  <tr> 
                    <td align="center"><INPUT style="CURSOR: hand" type=submit value="确  定" name=Submit3>
　</td>
				  </tr></form>
				</table></td>
                            </tr>
                        </table></td>
                    </tr>
                  </table></div>
	</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>

lx.asp - 源码说明

本页面展示了「房地产管理系统 vb写的,很不错!!!!!!!!!!!」中的 lx.asp 源码文件，采用 ASP 编程语言编写，共 100 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与房地产相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?