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>

这个程序的写法，是直接调用了当前的系统日期，但是如果在数据库中已经存在了日期，如何使得程序读取的是数据库中的日期呢？该怎么改这个程序呢？请赐教，谢谢!