%
'登录
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 adminuser where username=" & sqlstr(username) & " and password=" & sqlstr(password) & " "
rs.open sql,conn,1
'如果有此用户就进入系统
if not rs.eof and not rs.bof then
response.cookies("oabusyusername")=rs("username")
else response.redirect "..\news\index.asp"
end if %>
<%
cj=rs("cj")
xw=rs("xw")
super=rs("super")
if cj="no" and xw="no" then
response.redirect "..\chengji\lookfor.asp"
else if cj= "yes" and xw="no" then
response.redirect "..\chengji\chengjigl.asp"
else if cj="no" and xw="yes" then
response.redirect "..\news\newsgl.asp"
else if super="yes" then
response.redirect "..\index1.asp"
end if
end if
end if
end if
end if
%>