急!文本框中默认值的问题

作者：aspfans 来源：不详发布时间：2008/07/02 发布人：admin

aspfans 发布留言 2008-7-1 17:05

急!文本框中默认值的问题

下面的语句是从库中提取条件记录显示在一个表格中,其中年度和月份插入了文本框,我想在年度栏中直接显示出当前年度,月份栏中显示库中提取的月份数值,应该怎样修改?请各位指教,谢谢
<%
Sub ShowHeader(tabletitle)
Response.Write("

[" & tabletitle & "]")
Response.Write("

")
   Response.Write("")
   Response.Write("")
   Response.Write("")
   Response.Write("")
   Response.Write("")
End Sub
'生成文本框控件
Sub ShowTextBox(tbname, i, tbmaxlen)
   Response.Write("")
End Sub
'显示相关记录
If rs.RecordCount > 0 Then
   Call ShowHeader("录入数据")
   For i = 1 To rs.RecordCount
      Response.Write("")
   Response.Write("")
      Call ShowTextBox("nd", i ,4)
      Call ShowTextBox("yf", i, 2)
      Response.Write("")
      rs.MoveNext
   Next
   Response.Write("

项目	年度	月份
Response.Write(" name=" & tbname & i) Response.Write(" maxlength=" & tbmaxlen) Response.Write(">
" & rs("tj_xm") & "

")
   qs1=true
End If

If Not qs1 Then msg = "数据库没有当前记录"
   If msg = "" Then
      Response.Write("

")
      Response.Write(" ")
      Response.Write("")
   Else
      Response.Write("

" & msg & "")
End if
rs.Close
Set rs = Nothing
%>

tianyu123 发布留言 2008-7-1 17:23

Sub ShowTextBox(tbname, i, tbmaxlen,value) '这里加入一个文本框值的参数
Response.Write("

   Response.Write(" name=" & tbname & i)
   Response.Write(" value="& value) '这里输出文本框的值
   Response.Write(" maxlength=" & tbmaxlen)
   Response.Write(">

" & rs("tj_xm") & "

aspfans 发布留言 2008-7-1 17:24

hmhz 发布留言 2008-7-1 18:30

multiple1902 发布留言 2008-7-1 19:09

页: [1]

特别说明：如网页特效代码中有引用图片文件等，请自己下载到本地调试！

[] [返回] [打印] [收藏] [评论]

上一篇代码：求助：在网页中怎么样加入QQ

下一篇代码：奇怪的banner.gif不显示的问题

急!文本框中默认值的问题

急!文本框中默认值的问题

精品推荐

代码分类

阅读排行

相关代码