comcount.asp

来自「本学期要实讯」· ASP 代码 · 共 13 行

<%Response.buffer=true%>
<!--#include file="odbc_connection.asp"-->
<%if session("user")="" then
response.Redirect"login.asp" %>
<%else%>
<% Dim user,sql
user=request("user")
sql="Update cominfo Set hits=hits+1 where user='"&user&"' "
db.Execute(sql)
db.Close
Response.Redirect "incom1.asp?user="&user
end if
%>