湖南电力物流

<%@ LANGUAGE="VBSCRIPT" %> <%response.buffer=false dim sql dim rs dim id id=request("id") set rs=server.createobject("adodb.recordset") sql="select * from userinf where id="&id&"" rs.open sql,conn,1,3 rs("shenhe")=true rs("iPageSize")=10 rs("iAdd")="" rs.update '-----------------------------以下为分配邮箱代码，请勿删除---------------------------------- set con2 = Server.CreateObject("ADODB.Connection") ConnStr="DBQ=" & Server.Mappath("database/mail.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};" con2.open(ConnStr) sql="create table recived" sql=sql+rs("username")+"(iDateTime varchar(50),iaddfile varchar(150), ifrom varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))" con2.Execute(sql) sql="create table sendout" sql=sql+rs("username")+"(iDateTime varchar(50),iaddfile varchar(150), ito varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))" con2.Execute(sql) sql="create table del" sql=sql+rs("username")+"(iDateTime varchar(50),iaddfile varchar(150), ifrom varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))" con2.Execute(sql) con2.close set con2=nothing '---------------------------------------------------------------------------------------------- %> <% '登录 username=request("username") password=request("password") if username<>"" and password<>"" then '打开数据库查找是否有此用户 set conn=opendb("oabusy","conn","accessdsn") set rs=server.createobject("adodb.recordset") sql="select * from userinf where username=" & sqlstr(username) & " and password=" & sqlstr(password) & " and forbid='no'" rs.open sql,conn,1 '如果有此用户就进入系统 if not rs.eof and not rs.bof then '------------------------------------------ Uname=trim(request("username")) Upass=trim(request("password")) Uname=replace(Uname,"'","") Upass=replace(Upass,"'","") '------------------------------------------ Set rs= Server.CreateObject("ADODB.Recordset") strSql="select * from userinf where username='"&Uname&"' and password='"&Upass&"'" rs.open strSql,Conn,1,3 response.cookies("oabusyname")=rs("name") response.cookies("oabusyusername")=rs("username") response.cookies("oabusyuserdept")=rs("userdept") response.cookies("oabusyuserlevel")=rs("userlevel") response.cookies("cook_allow_see_all_workrep")=rs("allow_see_all_workrep") response.cookies("cook_allow_see_dept_workrep")=rs("allow_see_dept_workrep") response.cookies("cook_allow_control_dept_user")=rs("allow_control_dept_user") response.cookies("cook_allow_control_all_user")=rs("allow_control_all_user") response.cookies("cook_allow_send_note")=rs("allow_send_note") response.cookies("cook_allow_control_note")=rs("allow_control_note") response.cookies("cook_allow_control_file")=rs("allow_control_file") response.cookies("cook_allow_control_level")=rs("allow_control_level") 'response.cookies("cook_allow_see_all_personinf")=rs("allow_see_all_personinf") 'response.cookies("cook_allow_see_dept_personinf")=rs("allow_see_dept_personinf") 'response.cookies("cook_allow_edit_all_jobchanginf")=rs("allow_edit_all_jobchanginf") 'response.cookies("cook_allow_edit_dept_jobchanginf")=rs("allow_edit_dept_jobchanginf") 'response.cookies("cook_allow_edit_all_rewpuninf")=rs("allow_edit_all_rewpuninf") 'response.cookies("cook_allow_edit_dept_rewpuninf")=rs("allow_edit_dept_rewpuninf") 'response.cookies("cook_allow_edit_all_checkinf")=rs("allow_edit_all_checkinf") 'response.cookies("cook_allow_edit_dept_checkin")=rs("allow_edit_dept_checkinf") '------------------------------------------------------- '------------------------------------------------------- IP= Request.ServerVariables("REMOTE_ADDR") nowtime=now() sj=cstr(year(nowtime))+"-"+cstr(month(nowtime))+"-"+cstr(day(nowtime))+" "+cstr(hour(nowtime))+":"+right("0"+cstr(minute(nowtime)),2)+":"+right("0"+cstr(second(nowtime)),2) shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)+right("0"+cstr(hour(nowtime)),2)+right("0"+cstr(minute(nowtime)),2) '----------------------------------------------------------- if rs("shenhe")=false then response.redirect "default.asp" end if 'response end rs("state")=true rs("loginIP")=IP rs("Utime")=shijian rs("times")=rs("times")+1 rs.update Session("Uid")=rs("id") Session("Uname")=rs("username") Session("Rname")=rs("name") Session("Upass")=rs("password") Session("Urule")=rs("rule") Session("Utime")=rs("Utime") Session("IP")=rs("logIP") Session("Ulogin")="yes" session("mobile")=rs("mobile") session("time")=rs("time") '----------------邮箱系统专用环境变量,请勿删除------------------- Session("id")=rs("username") Session("password")=rs("password") Session("level")=rs("ilevel") Session("iPageSize")=rs("iPageSize") Session("iAdd")=rs("iAdd") Session("iBegin")=rs("iBegin") Session("num")=0 '----------------邮箱系统专用环境变量,请勿删除------------------- response.redirect "gensystem.asp" end if end if %> 湖南电力物流

今天是：

　企业邮箱用户地址：

　密码：

	铁路大件运输
	公路大件运输
	普通货物运输
	运输技术咨询
	仓储及配送
	铁路企业站经营
	汽车修理