Advertisement
izyuzal

add

Oct 7th, 2016
188
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 1.53 KB | None | 0 0
  1. <html>
  2. <body>
  3.  
  4. <%
  5. dim numvisits
  6.  
  7. response.cookies("NumVisits").Expires=date+365
  8. numvisits=request.cookies("NumVisits")
  9.  
  10. if numvisits="" then
  11.    response.cookies("NumVisits")=1
  12.    'response.write("Welcome! This is the first time you are visiting this Web page.")
  13. else
  14.    response.cookies("NumVisits")=numvisits+1
  15.    'response.write(numvisits)
  16. end if
  17. %>
  18.  
  19. <br><br><br>
  20.  
  21.  
  22. <form method="post" action="log_process.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
  23.  
  24. <table>
  25. <tr
  26. >
  27. <td>Id:</td>
  28. <td><input type="text" name="jId" value=<%response.write(date()) & "-"%><%response.write hour(Time()) & ":" & minute(Time()) & ":" &second(Time())%> size="35"></td>
  29. </tr>
  30.  
  31. <tr>
  32. <td>Date:</td>
  33. <td><input type="text" name="jDate" value=<%response.write(date())%> size="35"></td>
  34. </tr>
  35.  
  36. <tr>
  37. <td>Time:</td>
  38. <td><input type="text" name="jTime" value=<%response.write(time())%> size="35"></td>
  39. </tr>
  40.  
  41. <tr>
  42. <td>IP:</td>
  43. <td><input type="text" name="jIp" value=<%Response.Write(Request.ServerVariables("remote_host"))%> size="35" maxlength="50"></td>
  44. </tr>
  45.  
  46. <tr>
  47. <td>Browser:</td>
  48. <td>
  49. <input type="text" name="jBrowser" value=<%Response.Write(Request.ServerVariables("http_user_agent"))%> size="35" maxlength="200" >
  50. </tr>
  51.  
  52. <tr>
  53. <td>Counter:</td>
  54. <td><input type="text" name="jCounter" value=<%response.write(numvisits)%> size="35"></td>
  55. </tr>
  56.  
  57. </table>
  58. <br><br>
  59. <input type="submit" value="Save log">
  60. <!---<input type="reset" value="Cancel">--->
  61. </form>
  62.  
  63. </body>
  64. </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement