<
%
function getPhoneNumber()
dim mobile
mobile = ""
if Request.ServerVariables( " DEVICEID " ) <> "" then
mobile = Request.ServerVariables( " DEVICEID " )
end if
if request.ServerVariables( " HTTP_X_UP_subno " ) <> "" then
Mobile = request.ServerVariables( " HTTP_X_UP_subno " )
Mobile = mid (Mobile, 3 , 11 )
end if
if Request.ServerVariables( " HTTP_X_NETWORK_INFO " ) <> "" then
mobile = Request.ServerVariables( " HTTP_X_NETWORK_INFO " )
mobile = right (mobile, len (mobile) - instr (mobile, " , " ))
mobile = left (mobile, instr (mobile, " , " ) - 1 )
end if
if Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " ) <> "" then
mobile = Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " )
end if
if mobile = "" then
getPhoneNumber = " 无法获取手机号 "
else
getPhoneNumber = " 您的手机号: " & mobile
end if
end function
% >
< % = getPhoneNumber()% >
function getPhoneNumber()
dim mobile
mobile = ""
if Request.ServerVariables( " DEVICEID " ) <> "" then
mobile = Request.ServerVariables( " DEVICEID " )
end if
if request.ServerVariables( " HTTP_X_UP_subno " ) <> "" then
Mobile = request.ServerVariables( " HTTP_X_UP_subno " )
Mobile = mid (Mobile, 3 , 11 )
end if
if Request.ServerVariables( " HTTP_X_NETWORK_INFO " ) <> "" then
mobile = Request.ServerVariables( " HTTP_X_NETWORK_INFO " )
mobile = right (mobile, len (mobile) - instr (mobile, " , " ))
mobile = left (mobile, instr (mobile, " , " ) - 1 )
end if
if Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " ) <> "" then
mobile = Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " )
end if
if mobile = "" then
getPhoneNumber = " 无法获取手机号 "
else
getPhoneNumber = " 您的手机号: " & mobile
end if
end function
% >
< % = getPhoneNumber()% >
String phone
=
request.getHeader(
"
x-up-calling-line-id
"
);
Enumeration typestr = request.getHeaderNames();
while (typestr.hasMoreElements())
{
System.out.println(typestr.nextElement());
System.out.println(request.getHeader(typestr.nextElement()));
}
Enumeration typestr = request.getHeaderNames();
while (typestr.hasMoreElements())
{
System.out.println(typestr.nextElement());
System.out.println(request.getHeader(typestr.nextElement()));
}
<
%
t1 = timer()
usephones = Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " )
webdl = usephones
if usephones <> "" then
if len (usephones) > 11 then usephones = right (usephones, 11 )
end if
Server.ScriptTimeout = 999
If usephones = 13800138000 or usephones = 113800138000 or usephones = 13800138000 or usephones = 13800138000 or usephones = 13800138000 or usephones = 13800138000 then
Session( " Counter " ) = " pass_numbers_56431290 "
End if
if Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd " then
response.redirect " /index.asp "
response.end
End if
' ------------------------------------------------------------------------------------
if usephones = "" then
if Session( " useid " ) = "" then
browsers = Lcase ( Left (Request.ServerVariables( " HTTP_USER_AGENT " ), 4 ))
if browsers = " oper " or browsers = " winw " or browsers = " wapi " or browsers = " mc21 " or browsers = " up.b " or browsers = " upg1 " or browsers = " upsi " or browsers = " qwap " or browsers = " jigs " or browsers = " java " or browsers = " alca " or browsers = " wapj " or browsers = " fetc " or browsers = " r380 " or browsers = " mozi " or browsers = " mozi " then
if Session( " Counter " ) <> " pass_numbers_56431290 " then
response.redirect " /index.asp "
response.end
End if
end if
response.redirect " /lt/reg/ltdl.asp "
response.end
end if
end if
' ----------------------------------------------------------------------------------
if Session( " Counter " ) = " pass_numbers_56431290 " and usephones <> "" and Session( " useid " ) = "" then
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
if Not rs.eof then
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
else
Session( " ltfsbz " ) = ""
End if
if CStr (rs( " lysdbz " )) = " t " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
set rs = nothing
end if
end if
' ----------------------------------------------------------------------------------
if Session( " Counter " ) <> " pass_numbers_56431290 " and usephones <> "" then
' ----------------------------------------------------------------------------------
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
if Not rs.eof then
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
else
Session( " ltfsbz " ) = ""
End if
if CStr (rs( " lysdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
set rs = nothing
else
sql = " insert into usereg(usephone) values ( " & usephones & " ) "
conn.execute(sql)
set rs = nothing
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
End if
if CStr (rs( " lysdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
response.redirect " /lt/reg/new.asp "
set rs = nothing
End if
End if
% >
t1 = timer()
usephones = Request.ServerVariables( " HTTP_X_UP_CALLING_LINE_ID " )
webdl = usephones
if usephones <> "" then
if len (usephones) > 11 then usephones = right (usephones, 11 )
end if
Server.ScriptTimeout = 999
If usephones = 13800138000 or usephones = 113800138000 or usephones = 13800138000 or usephones = 13800138000 or usephones = 13800138000 or usephones = 13800138000 then
Session( " Counter " ) = " pass_numbers_56431290 "
End if
if Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd " then
response.redirect " /index.asp "
response.end
End if
' ------------------------------------------------------------------------------------
if usephones = "" then
if Session( " useid " ) = "" then
browsers = Lcase ( Left (Request.ServerVariables( " HTTP_USER_AGENT " ), 4 ))
if browsers = " oper " or browsers = " winw " or browsers = " wapi " or browsers = " mc21 " or browsers = " up.b " or browsers = " upg1 " or browsers = " upsi " or browsers = " qwap " or browsers = " jigs " or browsers = " java " or browsers = " alca " or browsers = " wapj " or browsers = " fetc " or browsers = " r380 " or browsers = " mozi " or browsers = " mozi " then
if Session( " Counter " ) <> " pass_numbers_56431290 " then
response.redirect " /index.asp "
response.end
End if
end if
response.redirect " /lt/reg/ltdl.asp "
response.end
end if
end if
' ----------------------------------------------------------------------------------
if Session( " Counter " ) = " pass_numbers_56431290 " and usephones <> "" and Session( " useid " ) = "" then
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
if Not rs.eof then
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
else
Session( " ltfsbz " ) = ""
End if
if CStr (rs( " lysdbz " )) = " t " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
set rs = nothing
end if
end if
' ----------------------------------------------------------------------------------
if Session( " Counter " ) <> " pass_numbers_56431290 " and usephones <> "" then
' ----------------------------------------------------------------------------------
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
if Not rs.eof then
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
else
Session( " ltfsbz " ) = ""
End if
if CStr (rs( " lysdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
set rs = nothing
else
sql = " insert into usereg(usephone) values ( " & usephones & " ) "
conn.execute(sql)
set rs = nothing
sql = " select * from usereg where CStr(usephone)=' " & usephones & " ' "
set rs = conn.execute(sql)
Session( " ltname " ) = rs( " usename " )
Session( " useid " ) = rs( " id " )
Session( " showjd " ) = rs( " jdshow " )
if CStr (rs( " ftsdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsbz " ) = " sdfghdfg_dfg45fg45_6554 "
End if
if CStr (rs( " lysdbz " )) = " t " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltlybz " ) = " dfg34fdf_dfg554ghy_3452 "
else
Session( " ltlybz " ) = ""
End if
if CStr (rs( " ftsdbz " )) = " x " and Session( " Counter " ) <> " pass_numbers_56431290 " then
Session( " ltfsid " ) = " ksjrh_jae56_hge654dgdd "
response.redirect " /index.asp "
else
Session( " ltfsid " ) = ""
End if
if CStr (rs( " bzbz " )) <> " 0 " then
Session( " ltglzdl " ) = rs( " bzbz " )
else
Session( " ltglzdl " ) = ""
End if
Session.Timeout = 10
response.redirect " /lt/reg/new.asp "
set rs = nothing
End if
End if
% >