incselectconst.asp

ASP编写的一个公司网站的源程序

 <%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%>