问大家一个简单的asp问题！传递数据

[madnesser]

下面是代码：

-----------------------------------------------------------------------------------------------------------sub savedit()
Dim ipid
ipid=request.form("ipid")
ip1=trim(request.form("ip1"))
ip2=trim(request.form("ip2"))
ip3=trim(request.form("ip3"))
ip4=trim(request.form("ip4"))
reason=trim(Request.form("reason"))
ipsame=trim(request.form("ipsame"))

set rs = server.CreateObject ("adodb.recordset")
sql="select * from IpLock where ipid="&ipid&""
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs("ip1") = ip1
rs("ip2") = ip2
rs("ip3") = ip3
rs("ip4") = ip4
rs("iplock") = reason
rs("ipsame") = ipsame
rs.update
Response.write"<script>alert(""恭喜,修改成功！"");location.href=""m1l1ip.asp"";</script>"
else
Response.write"<script>alert(""修改错误！"");location.href=""m1l1ip2.asp"";</script>"
end if
rs.close
set rs=nothing
end sub
-----------------------------------------------------------------------------------------------------------

想让 reason 数值在传递数据的时候加上 一个“竖杠”和“现在的时间”（"|"&Now&" ），我应该怎么做啊？


例如： 如果reason 数值是：8888 那么在插入数据时候 插入：8888|2008-8-15 15:57:37

[hookee]

rs("iplock") = reason & "|" & Year(Now()) & "-" & Month(Now()) & "-" & Day(now) & " " & Time()

[lzp4881]

sub savedit()
Dim ipid
ipid=request.form("ipid")
ip1=trim(request.form("ip1"))
ip2=trim(request.form("ip2"))
ip3=trim(request.form("ip3"))
ip4=trim(request.form("ip4"))
reason=trim(Request.form("reason"))
ipsame=trim(request.form("ipsame"))

set rs = server.CreateObject ("adodb.recordset")
sql="select * from IpLock where ipid="&ipid&""
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs("ip1") = ip1
rs("ip2") = ip2
rs("ip3") = ip3
rs("ip4") = ip4
rs("iplock") = reason & "|" & now()
rs("ipsame") = ipsame
rs.update
Response.write" <script>alert(""恭喜,修改成功！"");location.href=""m1l1ip.asp""; </script>"
else
Response.write" <script>alert(""修改错误！"");location.href=""m1l1ip2.asp""; </script>"
end if
rs.close
set rs=nothing
end sub