ASP中会员开始日期与结束日期的问题
程序代码：<tr>
<td height="23" class="td_content">会员开始时间：</td>
<td class="td_content"><select name="BeginYear" class="input_1" id="BeginYear">
<%
For i = ThisYear To ThisYear + 15
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selBeginYear) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
年
<select name="BeginMonth" class="input_1" id="BeginMonth">
<%
For i = 1 To 12
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selBeginMonth) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
月
<select name="BeginDay" class="input_1" id="BeginDay">
<%
For i = 1 To 31
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selBeginDay) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
日</td>
</tr>
<tr>
<td height="23" class="td_content">会员结束时间：</td>
<td class="td_content"><select name="EndYear" class="input_1" id="EndYear">
<%
For i = ThisYear To ThisYear + 15
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selEndYear) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
年
<select name="EndMonth" class="input_1" id="EndMonth">
<%
For i = 1 To 12
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selEndMonth) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
月
<select name="EndDay" class="input_1" id="EndDay">
<%
For i = 1 To 31
Response.Write("<option value="""& i &""" ")
If Cint(i) = Cint(selEndDay) Then Response.Write(" selected")
Response.Write(">"& i &"</option>")
Next
%>
</select>
日</td>
</tr> 这个程序的写法，是直接调用了当前的系统日期，但是如果在数据库中已经存在了日期，如何使得程序读取的是数据库中的日期呢？该怎么改这个程序呢？请赐教，谢谢!
