vbs实现的下拉框对应键入值
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 <TITLE>selectcenter</TITLE> <linkrel="stylesheet"type="text/css"href="style.css"> <METANAME="Generator"CONTENT="EditPlus"> <METANAME="Author"CONTENT=""> <METANAME="Keywords"CONTENT=""> <METANAME="Description"CONTENT=""> <head> <SCRIPTLANGUAGE="vbScript"> <!-- functionkeypress() tname=mainform.tname.value ''alert(mainform.tname.value) foreachtninmainform.tablename allvalue=tn.value ifleft(allvalue,len(tname))=tnamethen ''alert(allvalue) mainform.tablename.value=allvalue exitfor endif next endfunction //--> </SCRIPT> <style> body{text-align:left;font:12px#000080;} #main{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px5px;} #maintable{width:700;padding:1px;border:1pxsolid#dddddd;font:12px;color:#000080;} #maintabletd{border:0pxsolid#008000;padding-left:4px;padding-right:4px; padding-top:1px;padding-bottom:1px;background:#dddddd} #search{float:left;width:600px;border-bottom:#0000ff1pxsolid;margin:0px;padding:2px10px;} #result{float:left;width:600px;border:#dddddd0pxsolid;margin:2px1px;padding:2px10px;} #test{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px100px;} #mainp{} </style> <BODY> <divid="test"> <AHREF="classtrn.asp"target="blank">classtrn</A> </div> <divid="main"> <tableid=maintable>selecttop10*fromadjust<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><FORMMETHOD=POSTid=mainformACTION=mtable.asp> selectthetable:<selectname=tableName><optionvalue=a_prwork>a_prwork</option> <optionvalue=account>account</option> <optionvalue=adjustselected>adjust</option> <optionvalue=applica1>applica1</option> <optionvalue=aprwork>aprwork</option> <optionvalue=backb>backb</option> <optionvalue=clothes>clothes</option> <optionvalue=meal>meal</option> <optionvalue=mealdept>mealdept</option> <optionvalue=nosh>nosh</option> <optionvalue=ostockb>ostockb</option> <optionvalue=ostockh>ostockh</option> <optionvalue=palletc>palletc</option> <optionvalue=worktoholb>worktoholb</option> <optionvalue=worktoholh>worktoholh</option> <optionvalue=xcard>xcard</option> <optionvalue=zv01>zv01</option> <optionvalue=zv02>zv02</option> </select> tableame:<inputtype=textname=tnameonkeyup=''vbscript:keypress()''>topnum:<inputtype=textname=topnumsize=5><INPUTTYPE=submitname=actionvalue=submit><INPUTTYPE=resetvalue=reset></FORM>thetimeused0.203125 </div> </body> </html> |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 用vbs实现不死帐号的代码下一篇: 使用SAFEARRAY返回的代码
关于vbs实现的下拉框对应键入值的所有评论