下面的语句是从库中提取条件记录显示在一个表格中,其中年度和月份插入了文本框,我想在年度栏中直接显示出当前年度,月份栏中显示库中提取的月份数值,应该怎样修改?请各位指教,谢谢
<%
Sub ShowHeader(tabletitle)
      Response.Write("<p>[<b>" & tabletitle & "</b>]")
      Response.Write("<table border='1' width='80%'>")
      Response.Write("<tr align='left'>")
      Response.Write("<th width='25%'>项目</th>")
      Response.Write("<th width='25%'>年度</th>")
      Response.Write("<th>月份</th>")
      Response.Write("</tr>")
   End Sub
'生成文本框控件
   Sub ShowTextBox(tbname, i, tbmaxlen)
      Response.Write("<td><input type=text size=16")
      Response.Write(" name=" & tbname & i)
      Response.Write(" maxlength=" & tbmaxlen)
      Response.Write("></td>")
   End Sub
'显示相关记录
   If rs.RecordCount > 0 Then
      Call ShowHeader("录入数据")
      For i = 1 To rs.RecordCount
         Response.Write("<tr>")
         Response.Write("<td>" & rs("tj_xm") & "</td>")
         Call ShowTextBox("nd", i ,4)
         Call ShowTextBox("yf", i, 2)
         Response.Write("</tr>")
         rs.MoveNext
      Next
      Response.Write("</table>")
      qs1=true
   End If
   
   If Not qs1 Then msg = "数据库没有当前记录"
      If msg = "" Then
         Response.Write("<p><hr>")
         Response.Write("<input name=reg type=button value=提交数据>&nbsp;")
         Response.Write("<input type=reset value=重置数据>")
      Else
         Response.Write("<p><font color=red>" & msg & "</font>")
      End if
   rs.Close      
   Set rs = Nothing
%>

Sub ShowTextBox(tbname, i, tbmaxlen,value) '这里加入一个文本框值的参数
      Response.Write("<td><input type=text size=16")
      Response.Write(" name=" & tbname & i)
      Response.Write(" value="& value) '这里输出文本框的值
      Response.Write(" maxlength=" & tbmaxlen)
      Response.Write("></td>")
   End Sub
'显示相关记录
   If rs.RecordCount > 0 Then
      Call ShowHeader("录入数据")
      For i = 1 To rs.RecordCount
         Response.Write("<tr>")
         Response.Write("<td>" & rs("tj_xm") & "</td>")
         Call ShowTextBox("nd", i ,4,Year(时间)) '调用函数
         Call ShowTextBox("yf", i, 2,Month(时间)) '调用函数
         Response.Write("</tr>")
         rs.MoveNext
      Next
      Response.Write("</table>")
      qs1=true
   End If

谢谢楼主,辛苦了!

人家忙活大半天，你道是自己谢自己了哈

在那位同志程序上作点修改

Sub ShowTextBox(tbname, i, tbmaxlen,value) '这里加入一个文本框值的参数
      Response.Write("<td><input type=text size=16")
      Response.Write(" name=" & tbname & i)
      Response.Write(" value="""& Replace(value,"""","""""")) '这里输出文本框的值 ''''''' 注意双引号的问题。
      Response.Write(""" maxlength=" & tbmaxlen)
      Response.Write("></td>")
   End Sub
'显示相关记录
   If rs.RecordCount > 0 Then
      Call ShowHeader("录入数据")
      For i = 1 To rs.RecordCount
         Response.Write("<tr>")
         Response.Write("<td>" & rs("tj_xm") & "</td>")
         Call ShowTextBox("nd", i ,4,Year(时间)) '调用函数
         Call ShowTextBox("yf", i, 2,Month(时间)) '调用函数
         Response.Write("</tr>")
         rs.MoveNext
      Next
      Response.Write("</table>")
      qs1=true
   End If