建站代码网

热门标签

日期/时间影响用户输出

请问有没有用户有在线输入数据到数据库的?你想知道他们什么时候输入他们的数据吗?利用数据库的默认值选项,当你插入值到表格的时候,你可以创建一个自动输入现在日期()日期时间()的日期/时间区域。下面的例子会用到输入文本,然后把它添加到一个有三个示例文本区的数据库里面(不管用户输入什么),输入日期(设置日期(),)输入时间(设置现在())。在把输入添加到dc后,将会显示最后10个添加项。

<title>www.ttasp.net(Date/Time Stamping User Input)</title> <body bgcolor="#FFFFFF"> <% u_text=server.htmlencode(request.form("u_text"))
'检查用户是否输入了内容
if u_text <> "" then

插入用户只进入数据库的输入值

accessdb="datetime" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "insert into datetime_table (sample_text) " sql = sql & "values ('" & u_text & "')" rs.Open sql, cn

‘读取Access数据库以降序排列的最后10个值
rs.maxrecords=10
sql="select * from datetime_table order by input_datetime desc"
rs.Open sql, cn
写出浏览器的最后10个输入值

rs.movefirst for count = 1 to 10 %> <b>Number <%= count %> Most Recent</b> <br> <b>Inputted Text:</b> <%= rs("sample_text") %> <br> <b>Date Inputted:</b> <%= rs("input_date") %> <br> <b>Date/Time Inputted:</b> <%= rs("input_datetime") %> <br> <b>Day/Date Inputted:</b> <%= formatdatetime(rs("input_datetime"),vblongdate) %> <br> <br> <% rs.movenext next
如果没有用户输入或者如果空格没有被输入
显示输入表单

else %> <form action="<%= request.servervariables("script_name") %>" method="post"> <input type="text" name="u_text" maxlength="25"> <input type="submit" value="Submit"> </form> <% end if 'end check for user input %>


X