兰溪人才网

<%@ Language=VBScript%> <% function formatnum(number) aa="0000000"&number formatnum=right(aa,7) end function sql8="update mycounter set [counter]=[counter]+1 where id=1" conn.execute(sql8) sql9="select counter from mycounter where id=1" set rs9=conn.execute(sql9) function checkpasswd(name,passwd,tab) sql2="select userid,loginname,loginpwd,special from "&tab&"login where loginname='"&fixquotes(name)&"'" set rs2=conn.Execute(sql2) if rs2.eof then checkpasswd=false elseif trim(rs2("loginpwd"))<>passwd then checkpasswd=false else checkpasswd=true if tab="user" then session("userid")=rs2(0) session("loginname")=rs2(1) session("userspecial")=rs2(3) elseif trim(rs2(1))="Administrator" then session("ad")="Administrator" response.redirect "sitemanage/syscon.asp" response.end elseif tab="com" then session("comuserid")=rs2(0) session("comloginname")=rs2(1) session("comspecial")=rs2(3) end if end if end function login=request("login") if login="action" then loginname=trim(Request.Form("loginname")) loginpwd=trim(Request.Form("loginpwd")) tab=trim(request("user")) if instr(loginpwd,"'") or instr(loginpwd,"=") or instr(loginpwd,chr(34)) then errmsg="用户名或密码错误！" else if not checkpasswd(loginname,loginpwd,tab) then errmsg="用户名或密码错误！" else session("passed")=true if tab="user" then response.redirect "manage/user/default.asp" if tab="com" then response.redirect "manage/com/default.asp" end if end if end if %> 兰溪人才网

		设为首页
		收藏本站
		联系我们

..............................................................................................................................

<%=session("loginname")%>

服务指南 - 兼职专栏 - 勤工俭学 - 邮件中心

本站实名：兰溪人才