WEB源码(ASP,PHP,...)

开发平台：

DOS

checkuser.asp：源码内容

							<!--#include file="conn.asp"-->
<%
name=session("name")
depid=session("depid")
oskey=session("oskey")
userid=session("userid")
if userid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from department where id="&depid
rs.open sql,conn,1,3
if rs.eof or rs.bof then
depname=rs("depname")
end if
rs.close
set rs=nothing
end if
if session("name")="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if
Function getmaterial(Id)
    If Id = 0 Then
        getmaterial = ""
        Exit Function
    Else
        Set rs99 = server.CreateObject("adodb.recordset")
        sql99 = "select * from material where Id=" & Id
        rs99.Open sql99, conn, 1, 1
		if not rs99.eof then
        getmaterial = rs99("pinming")&"/"&rs99("guige")&"/"&rs99("unit")
		end if
        rs99.Close
        Set rs99 = Nothing
    End If
End Function
Function baojing_num(Id)
        Set rs99 = server.CreateObject("adodb.recordset")
        sql99 = "select * from material where Id=" & Id
        rs99.Open sql99, conn, 1, 1
		if not rs99.eof then
        baojing_num = rs99("baojing_num")
		end if
        rs99.Close
        Set rs99 = Nothing
End Function
%>

						