- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页时间录入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161011)
-- 发布时间：2021/3/2 11:02:00
-- 网页时间录入
.AddInput("靠离日期","靠离日期","datetime-local")
用这段代码增加日期时间，总提示输入有效值。
此主题相关图片如下：qq图片20210302105843.png
此主题相关图片如下：qq图片20210302105843.png
此主题相关图片如下：qq图片20210302105843.png此主题相关图片如下：qq图片20210302105843.png-- 发布时间：2021/3/2 11:06:00
--
加一个初始值
.AddInput("靠离日期","靠离日期","datetime-local").value = Format(date.now,"yyyy-MM-dd HH:mm")
如果是苹果手机，改为：
.AddInput("靠离日期","靠离日期","datetime-local").Value = Format(date.now,"yyyy-MM-ddTHH:mm")
-- 发布时间：2021/3/2 11:14:00
--
可是不一定是安卓或者苹果啊？怎么办？
-- 发布时间：2021/3/2 11:39:00
--
判断一下是不是苹果系统：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125186&replyID=840895&skin=1
Dim agent As String = e.request.UserAgent
If agent.Contains("iPhone") orelse agent.Contains("iPad") orelse agent.Contains("iPod") Then
msgbox("苹果")
else
其它
end if