vbs实现的下拉框对应键入值     选择自 gu1dai 的 Blog  
关键字   vbs实现的下拉框对应键入值  
TITLE>select center/TITLE>
link rel="stylesheet" type="text/css" href="style.css">
META NAME="Generator" CONTENT="EditPlus">
META NAME="Author" CONTENT="">
META NAME="Keywords" CONTENT="">
META NAME="Description" CONTENT="">
head>
SCRIPT LANGUAGE="vbScript">
!--
function keypress()
 tname=mainform.tname.value
 'alert(mainform.tname.value)
 for each tn in mainform.tablename

  allvalue=tn.value
  if left(allvalue,len(tname))=tname then
   'alert(allvalue)
   mainform.tablename.value=allvalue
   exit for
  end if

 next
end function
//-->
/SCRIPT>
style>
body{text-align:left;font:12px #000080 ;}
#main{float:left;width:750px;border:#dddddd 1px solid;margin:5px 10px;padding:10px 5px;}
#maintable{width:700; padding:1px; border:1px solid #dddddd;font:12px;color:#000080;  }
#maintable  td{ border: 0px solid #008000; padding-left: 4px; padding-right: 4px; 
               padding-top: 1px; padding-bottom: 1px;background:#dddddd }
#search{float:left;width:600px;border-bottom:#0000ff 1px  solid;margin:0px;padding:2px 10px;}
#result{float:left;width:600px;border:#dddddd 0px  solid;margin:2px 1px;padding:2px 10px;}
#test{float:left;width:750px;border:#dddddd 1px  solid;margin:5px 10px;padding:10px 100px;}
#main p{}
/style>
BODY>
div id="test">
A HREF="classtrn.asp" target="blank">classtrn/A>
/div>
div id="main">
table  id=maintable>select top  10  * from adjust TR>TD>ad_emno/TD>
TD>ad_seqno/TD>
TD>ad_date/TD>
TD>ad_date1/TD>
TD>ad_csno1/TD>
TD>ad_dpno1/TD>
TD>ad_date2/TD>
TD>ad_csno2/TD>
TD>ad_dpno2/TD>
TD>ad_type/TD>
TD>ad_type2/TD>
TD>updid/TD>
TD>upddate/TD>
/tr>/table>FORM METHOD=POST id=mainform ACTION=mtable.asp>
select the table:select name=tableName>option value=a_prwork  >a_prwork/option>
option value=account  >account/option>
option value=adjust  selected>adjust/option>
option value=applica1  >applica1/option>
option value=aprwork  >aprwork/option>
option value=backb  >backb/option>
option value=clothes  >clothes/option>
option value=meal  >meal/option>
option value=mealdept  >mealdept/option>
option value=nosh  >nosh/option>
option value=ostockb  >ostockb/option>
option value=ostockh  >ostockh/option>
option value=palletc  >palletc/option>
option value=worktoholb  >worktoholb/option>
option value=worktoholh  >worktoholh/option>
option value=xcard  >xcard/option>
option value=zv01  >zv01/option>
option value=zv02  >zv02/option>
/select> 
tableame:input type=text name=tname onkeyup='vbscript:keypress()'> topnum:input type=text name=topnum size=5>INPUT TYPE=submit name=action value=submit>nbsp;nbsp;nbsp;nbsp;nbsp;INPUT TYPE=reset value=reset>/FORM>the time used 0.203125
/div>
/body>
/html>