Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <html>
- <body>
- <%
- dim numvisits
- response.cookies("NumVisits").Expires=date+365
- numvisits=request.cookies("NumVisits")
- if numvisits="" then
- response.cookies("NumVisits")=1
- 'response.write("Welcome! This is the first time you are visiting this Web page.")
- else
- response.cookies("NumVisits")=numvisits+1
- 'response.write(numvisits)
- end if
- %>
- <br><br><br>
- <form method="post" action="log_process.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
- <table>
- <tr
- >
- <td>Id:</td>
- <td><input type="text" name="jId" value=<%response.write(date()) & "-"%><%response.write hour(Time()) & ":" & minute(Time()) & ":" &second(Time())%> size="35"></td>
- </tr>
- <tr>
- <td>Date:</td>
- <td><input type="text" name="jDate" value=<%response.write(date())%> size="35"></td>
- </tr>
- <tr>
- <td>Time:</td>
- <td><input type="text" name="jTime" value=<%response.write(time())%> size="35"></td>
- </tr>
- <tr>
- <td>IP:</td>
- <td><input type="text" name="jIp" value=<%Response.Write(Request.ServerVariables("remote_host"))%> size="35" maxlength="50"></td>
- </tr>
- <tr>
- <td>Browser:</td>
- <td>
- <input type="text" name="jBrowser" value=<%Response.Write(Request.ServerVariables("http_user_agent"))%> size="35" maxlength="200" >
- </tr>
- <tr>
- <td>Counter:</td>
- <td><input type="text" name="jCounter" value=<%response.write(numvisits)%> size="35"></td>
- </tr>
- </table>
- <br><br>
- <input type="submit" value="Save log">
- <!---<input type="reset" value="Cancel">--->
- </form>
- </body>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement