服务器之家

服务器之家 > 正文

vbs实现的下拉框对应键入值

时间:2020-07-06 13:55     来源/作者:脚本之家

vbs实现的下拉框对应键入值选择自gu1dai的Blog

  1. <TITLE>select center</TITLE>  
  2. <link rel="stylesheet" type="text/css" href="style.css">  
  3. <META NAME="Generator" CONTENT="EditPlus">  
  4. <META NAME="Author" CONTENT="">  
  5. <META NAME="Keywords" CONTENT="">  
  6. <META NAME="Description" CONTENT="">  
  7. <head>  
  8. <SCRIPT LANGUAGE="vbScript">  
  9. <!--  
  10. function keypress()  
  11.  tname=mainform.tname.value  
  12.  'alert(mainform.tname.value)  
  13.  for each tn in mainform.tablename  
  14.  
  15.   allvalue=tn.value  
  16.   if left(allvalue,len(tname))=tname then  
  17.    'alert(allvalue)  
  18.    mainform.tablename.value=allvalue  
  19.    exit for  
  20.   end if  
  21.  
  22.  next  
  23. end function  
  24. //-->  
  25. </SCRIPT>  
  26. <style>  
  27. body{text-align:left;font:12px #000080 ;}  
  28. #main{float:left;width:750px;border:#dddddd 1px solid;margin:5px 10px;padding:10px 5px;}  
  29. #maintable{width:700; padding:1px; border:1px solid #dddddd;font:12px;color:#000080;  }  
  30. #maintable  td{ border: 0px solid #008000; padding-left: 4px; padding-right: 4px;   
  31.                padding-top: 1px; padding-bottom: 1px;background:#dddddd }  
  32. #search{float:left;width:600px;border-bottom:#0000ff 1px  solid;margin:0px;padding:2px 10px;}  
  33. #result{float:left;width:600px;border:#dddddd 0px  solid;margin:2px 1px;padding:2px 10px;}  
  34. #test{float:left;width:750px;border:#dddddd 1px  solid;margin:5px 10px;padding:10px 100px;}  
  35. #main p{}  
  36. </style>  
  37. <BODY>  
  38. <div id="test">  
  39. <A HREF="classtrn.asp" target="blank">classtrn</A>  
  40. </div>  
  41. <div id="main">  
  42. <table  id=maintable>select top  10  * from adjust <TR><TD>ad_emno</TD>  
  43. <TD>ad_seqno</TD>  
  44. <TD>ad_date</TD>  
  45. <TD>ad_date1</TD>  
  46. <TD>ad_csno1</TD>  
  47. <TD>ad_dpno1</TD>  
  48. <TD>ad_date2</TD>  
  49. <TD>ad_csno2</TD>  
  50. <TD>ad_dpno2</TD>  
  51. <TD>ad_type</TD>  
  52. <TD>ad_type2</TD>  
  53. <TD>updid</TD>  
  54. <TD>upddate</TD>  
  55. </tr></table><FORM METHOD=POST id=mainform ACTION=mtable.asp>  
  56. select the table:<select name=tableName><option value=a_prwork  >a_prwork</option>  
  57. <option value=account  >account</option>  
  58. <option value=adjust  selected>adjust</option>  
  59. <option value=applica1  >applica1</option>  
  60. <option value=aprwork  >aprwork</option>  
  61. <option value=backb  >backb</option>  
  62. <option value=clothes  >clothes</option>  
  63. <option value=meal  >meal</option>  
  64. <option value=mealdept  >mealdept</option>  
  65. <option value=nosh  >nosh</option>  
  66. <option value=ostockb  >ostockb</option>  
  67. <option value=ostockh  >ostockh</option>  
  68. <option value=palletc  >palletc</option>  
  69. <option value=worktoholb  >worktoholb</option>  
  70. <option value=worktoholh  >worktoholh</option>  
  71. <option value=xcard  >xcard</option>  
  72. <option value=zv01  >zv01</option>  
  73. <option value=zv02  >zv02</option>  
  74. </select>   
  75. 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  
  76. </div>  
  77. </body>  
  78. </html>  
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部