<% user_lx=request.cookies("user_lx")
if user_lx="" then
user_lx="游客"
end if
o_ip=Request.ServerVariables("REMOTE_ADDR")
%>
<%
response.buffer=true
Response.Expires=0
id=request("id")
sql="select * from user where username='"&id&"'"
set rs=conn.execute(sql)
if id<>"" then
errors="錯誤:"&id&"，此會員編號不存在，請與會員部聯繫辦理入會！"
else
errors="錯誤：請先登入！"
end if
if rs.eof then
session("error")=errors
rs.close
conn.close
response.redirect "input.htm"
elseif request("password")<>rs("password") then
session("error")="錯誤：密碼錯誤，請重新輸入！"
rs.close
conn.close
response.redirect "input.ahtm"
end if
if not rs("active") then
session("error")="[編號:"&id&"],"&rs("memo")
ss="update user set count=count+1 where username='"&id&"'"
set rs=conn.execute(ss)
'======================================
set fso=server.createobject("scripting.filesystemobject")
filepath=server.mappath("text/"&id&".txt")
set f=fso.opentextfile(filepath,8,True)
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))
f.writeline Request.ServerVariables("Remote_Addr")&","&strsplit(2)&","&now()
f.close
response.redirect "input.htm"
else
ss="update user set count=count+1 where username='"&id&"'"
set rs=conn.execute(ss)
'======================================
set fso=server.createobject("scripting.filesystemobject")
filepath=server.mappath("text/"&id&".txt")
set f=fso.opentextfile(filepath,8,True)
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))
f.writeline Request.ServerVariables("Remote_Addr")&","&strsplit(2)&","&now()
f.close
end if
%>
香港六合彩公司摇奖科--资料库