请问yms123版主如下图如何用在ASP中实现,请帮助,谢谢

→大虾米々

请问yms123版主如下图如何用在ASP中实现,请帮助,谢谢
实现功能为:
    输入出生年月日:此处为方框

   模型如上面,当点击"此处为方框"时自动显示选择时间的对话框,请问如何实现版主

黑角残叶

<%   
dim rs,str,bh,ygh,pxsj,pxnr,pxdd,pxjg,rsMaxID,a
            
                  Set rsMaxID=conn.Execute("select MAX(编号) from pxinfo")
                  bh=rsMaxID.Fields(0).Value+1
                  rsMaxID.Close
                  Set rsMaxID=Nothing
   
ygh=session("ygh")
pxsj=request("pxsj")
pxnr=request("pxnr")
pxdd=request("pxdd")
pxjg=request("pxjg")
set rs=server.CreateObject("adodb.recordset")      
str="select * from pxinfo where 员工号='"&ygh&"'"
rs.open str,conn,1,3
rs.addnew
rs("编号")=bh
rs("员工号")=ygh
rs("培训时间")=pxsj
rs("培训内容")=pxnr
rs("培训地点")=pxdd
rs("培训结果")=pxjg
rs.update
response.Write"<script LANGUAGE='javascript'>alert('添加培训记录成功!');history.go(-2);</script>"
%>
</body>
</html>
版主例如上段代码,bh是我数据库里面的其中一个字段,我的问题是当我用清除数据库功能将表中的数据全部清除完后,为什么再用上段添加数据库记录代码添加时老是编号字段栏添加不上,但是当我事先在数据库内添加上一条记录后,再用上面的代码添加字段栏就能添加上,为什么??

简单快乐

各位版主请帮忙

轌婲の滿天飛

请问版主有QQ号吗?可以加你为好友吗?

ㄗs-﹎呯倓

请问yms123版主,那个控件名称是什么?如何查找?谢谢

紫禁之颠

日期控件的名称就叫做日期输入控件，百度上搜索
                 Set rsMaxID=conn.Execute("select MAX(编号) from pxinfo")
                  bh=rsMaxID.Fields(0).Value+1
                  rsMaxID.Close
                  Set rsMaxID=Nothing
因为你数据库没记录时这条语句获取不到最新的编号，因此应该改为
                 Set rsMaxID=conn.Execute("select * from pxinfo order by 编号 DESC")
                 if rsMaxID.EOF Then
                    bh=1
                 else
                    bh=bh=rsMaxID("编号")+1
                 end if     
                  rsMaxID.Close
                  Set rsMaxID=Nothing

ぁ贪ā.翫？

那个自动显示的网上有现成的控件可以下载。

劳资ぶ龍哥

哇塞!你太厉害了,yms123版主.
请问你是从事什么工作的?方便回答吗?