日期/时间影响用户输出

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


相关内容推荐

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

返回
顶部