⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addmodel.asp

📁 this a program about talent web database used asp and VB.
💻 ASP
字号:
<!--#include file="tools.asp"-->
<HTML><HEAD><TITLE>添加房型信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/zzz.css" type=text/css rel=stylesheet>
<script language="Javascript" src="function/function.js"></script>
<SCRIPT language=JavaScript>
<!--
function SnR_MarkIE(theURL,theName,alertMsg) { //v3.0.3
var agt = navigator.userAgent.toLowerCase(); 
var is_win   = ((agt.indexOf("win")!= -1) || (agt.indexOf("16bit")!= -1));
var is_win95 = ((agt.indexOf("win95")!= -1) || (agt.indexOf("windows 95")!= -1));
var is_win16 = ((agt.indexOf("win16")!= -1) || (agt.indexOf("16bit")!= -1) || (agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("windows 16-bit")!= -1) );
var is_win31 = ((agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("win16")!= -1) || (agt.indexOf("windows 16-bit")!= -1));
var is_win98 = ((agt.indexOf("win98")!= -1) || (agt.indexOf("windows 98")!= -1));
var is_winnt = ((agt.indexOf("winnt")!= -1) || (agt.indexOf("windows nt")!= -1));
var is_win32 = (is_win95 || is_winnt || is_win98 || (agt.indexOf("win32")!= -1) || (agt.indexOf("32bit")!= -1));
//Error Causing Element from above line: ((is_major >= 4) && (navigator.platform == "Win32")) ||
var is_Mac = (agt.indexOf("mac") != -1);

	if (document.all && (is_win32)) { //IE Windows Only
		window.external.AddFavorite(theURL,theName);
		} 
	else { // all others 
		alert(alertMsg); 
		}

}

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.0
  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 && document.getElementById) x=document.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_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}

function adB_onclick() {
window.open('defaul.asp','','resizable=1,scrollbars=no,width=550 height=300')
}

function s1_onchange() {
window.location=window.s1.value
}

//-->
</SCRIPT>

<style type="text/css">


input,textarea {
color : #000000;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}

.bginput { background-color:#FFFFFF; border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
 }

select {
color : #000000;
font-family : 宋体;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}
</style>


</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 
onload="MM_preloadImages('images/kk2.gif')">
<!--#include file="title.asp"-->

<%
if Request.Form("submit")="提交" then
housename=trim(Request.Form("housename"))
modelname=trim(Request.Form("modelname"))
area=trim(Request.Form("area"))
modeldes=trim(Request.Form("modeldes"))

strsql="insert tblhousemodel (housename,modelname,area,modeldes) values (" &  sqlstr(housename) & "," & sqlstr(modelname) & "," & sqlstr(area) & "," & sqlstr(modeldes) & ")"
conn.execute(strsql)
end if
%>
<table class="shuang" cellSpacing="0" cellPadding="0" width="778" align="center"
background="images/bg4.gif" border="0">
  <tr>
    <td><div align="center"><center><table width="100%" border="0" cellspacing="0"
    cellpadding="10" align="center" background="images/bg4.gif">
      <tr>
        <td class="bodyline"><div align="center"><center><table width="100%" cellpadding="0"
        cellspacing="0" border="0">
          <tr>
            <td><form name="form2" id="form2" action="addmodel.asp" method="post">
              <input type="hidden" name="uid" value="snsn"><table cellpadding="1" cellspacing="0"
              border="0" bgcolor="#ffffff" width="100%" align="center">
                <tr>
                  <td width="100%" style="font-family: 宋体; font-size: 10.5pt; color: rgb(255,0,0)"></td>
                </tr>
                <tr>
                  <td><table cellpadding="4" cellspacing="1" border="0" width="758">
<!-- *** -->
                    <tr>
                      <td bgcolor="#006699" colspan="2" width="778"><font style="FONT-SIZE: 12px"
                      color="#ffffff" class="thtcolor">房型信息</font><font face="verdana, arial, helvetica"
                      style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">: </font><font
                      style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">带 </font><font
                      face="verdana, arial, helvetica" style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor"><b>*</b> 
                      </font><font style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">的必填</font><font
                      face="verdana, arial, helvetica" style="FONT-SIZE: 12px" color="#ffffff" class="thtcolor">.</font></td>
                    </tr>
<!-- *** -->
                    <tr>
                      <td bgcolor="#EFEFEF" width="260"><font style="FONT-SIZE: 12px">楼盘名称:</font></td>
                      <td bgcolor="#EFEFEF" width="448"><select name="housename" size="1" class="zzz">
                        <%
                        strsql="select housename from tblnewhouse order by housename"
                        set rsd=server.CreateObject("adodb.recordset")
                        rsd.Open strsql,conn
                        while not rsd.EOF
                        %>
                        <option value="<%=rsd("housename")%>"><%=rsd("housename")%></option>
                        <%
                        rsd.MoveNext
                        wend
                        %>
                      </select></td>
                    </tr>
                    <tr>
                      <td bgcolor="#DEE3E7" width="260"><font style="FONT-SIZE: 12px">房型描述:</font></td>
                      <td bgcolor="#DEE3E7" width="448"><font style="FONT-SIZE: 12px"><input class="bginput"
                      name="modelname" size="30" maxlength="100" >(如:三室两厅)</font></td>
                    </tr>
                    <tr>
                      <td bgcolor="#EFEFEF" width="260"><font style="FONT-SIZE: 12px">面积:</font></td>
                      <td bgcolor="#EFEFEF" width="448"><font style="FONT-SIZE: 12px"><input class="bginput"
                      name="area" size="30" maxlength="100"></font></td>
                    </tr>
<!-- *** -->
                    <tr>
                      <td bgcolor="#DEE3E7" width="260"><font style="FONT-SIZE: 12px">房型介绍:</font></td>
                      <td bgcolor="#DEE3E7" width="448"><textarea name="modeldes" rows="5" wrap="physical"
                      cols="35" maxlength="1000"></textarea></td>
                    </tr>
                  </table>
                  </td>
                </tr>
              </table>
              <table cellpadding="2" cellspacing="0" border="0" width="100%" align="center">
                <tr>
                  <td align="middle"><font style="FONT-SIZE: 12px"><input type="submit" class="bginput"
                  name="Submit" value="提交"> <input type="reset" class="bginput" name="Reset"
                  value="重置"></font><!--end--></td>
                </tr>
              </table>
            </form>
            </td>
          </tr>
        </table>
        </center></div></td>
      </tr>
    </table>
    </center></div></td>
  </tr>
</table>

<!--#include file="footer.asp"-->
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -