泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
源代码在线查看: login_check.asp
软件大小: |
3830 K |
上传用户: |
lujing200912345 |
|
|
关键词: |
服务端
|
下载地址: |
免注册下载 普通下载
|
|
pre_url = request("pre_url")
pre_url2 = Request.ServerVariables("HTTP_REFERER")
if (pre_url = "") then
pre_url = pre_url2
end if
idx_value = request("idx_value")
partner = trim(Request("partner"))
ip = Request.ServerVariables ("REMOTE_ADDR")
url_check = "F"
if (InStr(pre_url2, "bomb") > 0) then url_check = "T"
if (InStr(pre_url2, "127.0.0.1") > 0) then url_check = "T"
if url_check="T" then
user_id = request.form("userid")
user_pw = request.form("userpw")
else
response.redirect ("/main.asp")
end if
sql = "SELECT Idx, UserID, Name, Email FROM IB_Member "
sql = sql & "WHERE UserID='" & user_id & "' "
sql = sql & "AND UserPWD='" & user_pw & "' "
set rs = DBCon.Execute (sql)
if rs.EOF then
logincheck = "F"
else
logincheck = "T"
end if
if logincheck = "T" then
Response.Cookies("LOGIN")("check") = "true"
Response.Cookies("LOGIN")("bomb_id") = rs("UserID")
Response.Cookies("LOGIN")("bomb_index") = rs("Idx")
Response.Cookies("LOGIN")("bomb_name") = rs("Name")
Response.Cookies("LOGIN")("bomb_email") = rs("Email")
if (rs("UserID") = "rd52099") then
pre_url = "/admin/admin.asp"
end if
response.write(pre_url)
response.Redirect (pre_url)
else
call PageBack("雀盔沥焊啊 老摹窍瘤 臼芭唱 酒捞叼甫 荤侩且 荐 绝绰 惑怕涝聪促..\n\n促矫 茄锅 犬牢窍矫绊 肺弊牢秦林技夸.")
end if
%>
|
相关资源 |
|
-
泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
-
包括所有源文件类,加载容器类,FMS2.0服务端文件类 具体的请打开项目文件,所有文件都在那里 另外加点说明: config.xml,客户端和FMS服务端各有一个.两个设置要相同,里面是服务器运行路径
-
1. socket通信:有客户端和服务端的socket代码。
2. 多线程:客户端和服务端各用一线程发送信息;服务端另有一监听线程
-
使用CPLD仿真8088核,内有源程序和说明
-
vc的学生成绩管理系统。内有需求分析说明
-
16位循环冗余校验的4位查表法,用法在文件内有祥细说明
-
通讯串口程序,很使用,通过测试,内有源码说明
-
AVR单片机的原理与应用,内有大量源代码,供您使用,在您的开发项目中,节省很多时间和精力
|