📄 login_check.asp
字号:
<%@ Language=VBScript codepage ="936" %><!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"--><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/check_input.asp"-->
<!--#include file="../inc/check.asp"-->
<%
Response.Expires=true
Response.Buffer = true
%>
<HTML>
<HEAD>
<TITLE>会员登录</TITLE>
<body>
<%
dim UsernameGet,PasswordGet
dim rs,sql
UsernameGet=Request.Form("UsernameGet")
PasswordGet=Request.Form("PasswordGet")
UsernameGet=trim(UsernameGet)
PasswordGet=trim(PasswordGet)
PasswordGet=md5(PasswordGet)
UsernameGet=CheckInput(UsernameGet,"s","0")
PasswordGet=CheckInput(PasswordGet,"s","0")
sql="select * from qyml where [user]='"&UsernameGet&"' and Pass='" & PasswordGet & "'"
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if PasswordGet=rs("Pass") then
'-----判断享受收费会员到期后自动变成期满会员
if rs("flag")=0 and rs("enddate")<date() then
rs("flag")=1
rs.update
end if
'将用户资料记录到各自的Session变量中去
session("id")=cstr(rs("id"))
session("user")=rs("user")
session("pass")=rs("pass")
session("question")=rs("question")
session("answer")=rs("answer")
session("Qymc")=rs("Qymc")
session("Qylb")=rs("Qylb")
session("Qyxz")=rs("Qyxz")
session("Zczj")=rs("Zczj")
session("Frdb")=rs("Frdb")
session("Ygrs")=rs("Ygrs")
session("Zh")=rs("zh")
session("Bank")=rs("Bank")
session("Nyye")=rs("Nyye")
session("Zycp")=rs("Zycp")
session("jygs")=rs("jygs")
session("Qyjj")=rs("Qyjj")
session("Sf")=rs("Sf")
session("City")=rs("City")
session("mobile")=rs("mobile")
session("Post")=rs("Post")
session("Address")=rs("Address")
session("Phone")=rs("Phone")
session("Fax")=rs("Fax")
session("Email")=rs("Email")
session("Web")=rs("Web")
session("name")=rs("name")
session("ch")=rs("ch")
session("bm")=rs("bm")
session("zw")=rs("zw")
session("Flag")=rs("Flag")
session("uFlag")=rs("uFlag")
session("idate")=rs("idate")
session("begindate")=rs("begindate")
session("enddate")=rs("enddate")
session("hybz")=rs("hybz")
session("cimg")=rs("cimg")
session("sortid")=rs("sortid")
session("typeid")=rs("typeid")
session("url")=rs("url")
session("gs")=rs("gs")
if session("gs")="企业" then
session("gs")="公司"
end if
session("lx")=rs("lx")
select case session("PageID")
case "home" '跳转到本站首页
Response.Redirect ("../default.asp")
Response.End
case "buy" '在线定购管理
Response.Redirect ("../shop/Check_finish.asp")
Response.End
case "manage" '跳转到会员管理区域
Response.Redirect ("../manage/index.asp")
Response.End
case "syjh" '跳转到商业机会
Response.Redirect ("../syjh/syjh.asp")
Response.End
case "glsj" '跳转到管理供求商机
Response.Redirect ("../manage/syjh/sj_edit.asp")
Response.End
case "spzs" '跳转产品展厅
Response.Redirect ("../manage/spzs/showing.asp")
Response.End
case "cpadd" '添加产品
Response.Redirect ("../manage/spzs/add.asp")
Response.End
case "xxfb" '跳转发布商机
Response.Redirect ("../manage/syjh/publish_info.asp")
Response.End
case "job" '招聘信息发布
Response.Redirect ("../manage/job/company_job.asp")
Response.End
case "gljob" '招聘信息管理
Response.Redirect ("../manage/job/job_edit.asp")
Response.End
case "modify" '会员信息修改
Response.Redirect ("modify_info.asp")
Response.End
case "company_info" '发布公司资料
Response.Redirect ("../manage/qyml/company_info.asp")
Response.End
case "company_edit" '修改公司资料
Response.Redirect ("../manage/qyml/company_edit.asp")
Response.End
case "zhanhui" '展会信息察看
Response.Redirect ("../zhanhui/default.asp")
Response.End
case "Merch" '库存信息察看
Response.Redirect ("../Merch/default.asp")
Response.End
case "" '没有转来页
Response.Redirect ("../default.asp")
Response.End
end select
rs.close
set rs=nothing
conn.close
set conn=nothing
else
response.write"<SCRIPT language=JavaScript>alert('您输入的用户名和密码不正确。');"
response.write"this.location.href='javascript:history.back();'</SCRIPT>"
response.end
end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');history.go(-1);</script>"
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -