请问yms123版主如下图如何用在ASP中实现,请帮助,谢谢 - 编程论坛

#2

zhangliwei12009-09-01 17:31

各位版主请帮忙

#3

yms1232009-09-01 21:34

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

#4

zhangliwei12009-09-02 08:56

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

#5

zhangliwei12009-09-02 09:10

<%
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是我数据库里面的其中一个字段,我的问题是当我用清除数据库功能将表中的数据全部清除完后,为什么再用上段添加数据库记录代码添加时老是编号字段栏添加不上,但是当我事先在数据库内添加上一条记录后,再用上面的代码添加字段栏就能添加上,为什么??

#6

yms1232009-09-02 10:34

日期控件的名称就叫做日期输入控件，百度上搜索
                 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

#7

zhangliwei12009-09-02 11:10

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

#8

zhangliwei12009-09-02 11:11

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