📄 login_check.asp
字号:
<%@ Language=VBScript codepage ="936" %><%Response.Expires=trueResponse.Buffer = true %><HTML><HEAD><TITLE>会员登录</TITLE><!--#include file="../conn/dbconn1.asp"--><%dim UsernameGet,PasswordGetdim rs,sqlUsernameGet=Request.Form("UsernameGet")PasswordGet=Request.Form("PasswordGet")sql="select * from qyml where User='"&UsernameGet&"' and Pass='"&PasswordGet&"' "set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3If rs.EOF or rs.bof Then response.write"<SCRIPT language=JavaScript>alert('您输入的用户名和密码不正确。');" response.write"this.location.href='javascript:history.back();'</SCRIPT>" rs.close set rs=nothingelse%><%'-----判断享受收费会员到期后自动变成期满会员if rs("flag")=0 and rs("enddate")<date() thenrs("flag")=1rs.updateend if'将用户资料记录到各自的Session变量中去session("id")=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")select case session("PageID")case "home" '跳转到本站首页Response.Redirect ("../default.asp")Response.Endcase "buy" '在线定购管理Response.Redirect ("../dgd/buyfinish.asp")Response.End case "manage" '跳转到会员管理区域Response.Redirect ("../manage/index.asp")Response.Endcase "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.Endcase "cpadd" '添加产品Response.Redirect ("../manage/spzs/add.asp")Response.Endcase "xxfb" '跳转发布商机Response.Redirect ("../manage/syjh/publish_info.asp")Response.Endcase "job" '招聘信息发布Response.Redirect ("../manage/job/company_job.asp")Response.Endcase "gljob" '招聘信息管理Response.Redirect ("../manage/job/job_edit.asp")Response.Endcase "modify" '会员信息修改Response.Redirect ("modify_info.asp")Response.Endcase "company_info" '发布公司资料Response.Redirect ("../manage/qyml/company_info.asp")Response.Endcase "company_edit" '修改公司资料Response.Redirect ("../manage/qyml/company_edit.asp")Response.Endcase "" '没有转来页Response.Redirect ("../default.asp")Response.Endend selectrs.close set rs=nothing conn.closeset conn=nothing end if%></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -