| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1155 人关注过本帖
标题:急!文本框中默认值的问题
只看楼主 加入收藏
aspfans
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2008-6-24
收藏
 问题点数:0 回复次数:4 
急!文本框中默认值的问题
下面的语句是从库中提取条件记录显示在一个表格中,其中年度和月份插入了文本框,我想在年度栏中直接显示出当前年度,月份栏中显示库中提取的月份数值,应该怎样修改?请各位指教,谢谢
<%
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
%>
搜索更多相关主题的帖子: 文本框 年度 语句 表格 数值 
2008-07-01 17:05
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 
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

改变一切,须从改变观念开始!
2008-07-01 17:23
aspfans
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2008-6-24
收藏
得分:0 
谢谢楼主,辛苦了!
2008-07-01 17:24
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 
人家忙活大半天,你道是自己谢自己了哈

[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2008-07-01 18:30
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
在那位同志程序上作点修改

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
2008-07-01 19:09
快速回复:急!文本框中默认值的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027529 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved