incselectconst.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 13 行

 <%Sub Incdays(inivalue)
dim limitvalue

	limitvalue=inivalue
%>				
<OPTION value=3 <%If limitvalue="3" then Response.Write "selected"%>>3天
<OPTION value=7 <%If limitvalue="7" then Response.Write "selected"%>>7天
<OPTION value=15 <%If limitvalue="15" then Response.Write "selected"%>>15天
<OPTION value=30 <%If limitvalue="30" then Response.Write "selected"%>>30天
<OPTION value=40 <%If limitvalue="40" then Response.Write "selected"%>>40天
<OPTION value=60 <%If limitvalue="60" then Response.Write "selected"%>>60天

 <%End Sub%>