<% cMsg = "*** 请登录!***" 'Create database connection Set zhitong = Server.CreateObject("ADODB.Connection") zhitong.ConnectionTimeout = Session("zhitong_ConnectionTimeout") zhitong.ConnectionString = Session("zhitong_ConnectionString") zhitong.Open 'Check the action cUid = Trim(LTrim(Request("cUid"))) If IsNull(cUid) Then cUid = "" End If cPwd = Trim(LTrim(Request("cPwd"))) If IsNull(cPwd) Then cPwd = "" End If cUType = Trim(LTrim(Request("cUType"))) If IsNull(cUType) Or cUType = "" Then cUType = "APPLY" End If cAction = Trim(LTrim(Request("cAction"))) If IsNull(cAction) Or cAction = "" Then cMsg = "" ElseIf cAction = "登录" Then 'Check the login account If cUid = "" Then cMsg = "帐号不能为空!" Else If cUType = "APPLY" Then cSql = "select username,status from userfile where userid = '" + cUid + "' and password = '" + cPwd + "'" Else cSql = "select unitname,status from unitfile where unitid = '" + cUid + "' and password = '" + cPwd + "'" End If Set Result = zhitong.Execute(cSql) If Result.Eof Then Result.Close Set Result = Nothing cMsg = "帐号或密码错误!" Else If IsNull(Result("STATUS")) Or Trim(Result("STATUS")) <> "Y" Then Result.Close Set Result = Nothing cMsg = "此帐号已被禁用!" Else If cUType = "APPLY" Then Session("cUserId") = cUid Session("cUserName") = Trim(Result("username")) Else Session("cUnitId") = cUid Session("cUnitName") = Trim(Result("unitname")) End If Result.Close Set Result = Nothing zhitong.Close Set zhitong = Nothing If cUType = "APPLY" Then Response.Redirect "JobApply/JobApplyList.asp" Else Response.Redirect "JobWant/JobWantList.asp" End If End If End If End If ElseIf cAction = "注册" Then 'new register zhitong.Close Set zhitong = Nothing If cUType = "APPLY" Then Session("cUserId") = "" Session("cUserName") = "" Response.Redirect "JobApply/JobApplyRegNotes.htm" Else Session("cUnitId") = "" Session("cUnitName") = "" Response.Redirect "JobWant/JobWantRegNotes.htm" End If End If %> 智通网上人力资源 www.jobzt.com
站点导航 << 中国公众多媒体通信网
 

上海热线
天津热线
重庆热线
辽宁沈阳热线
吉林信息港
黑龙江信息港
陕西古城热线
宁夏169热线
甘肃西部时空
青海江河源热线
四川天府热线
河南信息港
齐鲁热线
浙江信息超市
安徽热线
湖南信息港
福建热线
广东视聆通
广西热线
贵州信息港
云南信息港
海南天涯热线
   

[TOP]

 



智通网上人力资源 * 版权所有
咨询热线:(0769)2457052、2457269 猎头服务热线:(0769)2470266
webmaster:webmaster@jobzt.com
建议采用IE4.0以上版本,800*600分辨率观看此网站。
<% zhitong.Close Set zhitong = Nothing %>