checkuser.asp

立以变更为核心的开发管理流程 项目修复-把有麻烦的项目带向成功 C# 源码下载

<!--#include file="conn.asp"-->
<%
name=Request.cookies("name")
depid=Request.cookies("depid")
oskey=Request.cookies("oskey")
userid=Request.cookies("userid")
logins=Request.cookies("logins")
fullname=Request.cookies("fullname")
if userid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from department where id="&depid
rs.open sql,conn,1,3
if not rs0.eof  then
depname=rs("depname")
end if
rs.close
set rs=nothing
end if
if  Request.cookies("name")="" or Request.cookies("oskey")="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if
'根据ID 查找航班

Function getname(Id)
    If Id = 0 Then
        getname = ""
        Exit Function
    Else
        Set rs99 = server.CreateObject("adodb.recordset")
        sql99 = "select * from hangban where Id=" & Id
        rs99.Open sql99, conn, 1, 1
		if not rs99.eof then
        getname = rs99("hangban")
		else
		getname = "已删除"
		end if
        rs99.Close
        Set rs99 = Nothing
    End If
End Function

%>